johnsoncontrols:自动生成SERVER CONTROLS的应用



private listFolder(EASYMAILIMAP4Lib.EasyMailIMAP4 IMAP4, strFolder, perpage)
{
TableRow r;
TableCell c;
x,pages,pgnum,start,end;
str1;

x = IMAP4.SelectMailbox(strFolder);
(x != 0)
{
IMAP4.CreateMailbox(strFolder);
\"(Created!)\";
}

{

r = TableRow;
c = TableCell;
str1 = \"当前邮箱\"+strFolder+\"\";
str1 = str1+\"共有邮件\"+IMAP4.MessageCount+\"封\";
Folder_Info.Text = str1;

(IMAP4.MessageCount0)
{
\"No Message\";
}

((IMAP4.MessageCount%perpage) 0 )
{
pages=IMAP4.MessageCount/perpage;
}

{
pages=()IMAP4.MessageCount/perpage+1;
}

pgnum=1;
try
{
pgnum=Convert.ToInt32(Request.QueryString[\"pg\"].);
}
catch
{
pgnum=1;
}


(pgnum>1)
{
end=pgnum*perpage;
start=end-perpage+1;


}

{
end=perpage;
start=1;
}


x = IMAP4.DownloadEnvelopes(start, end, 0);

(x != 0)
{
\"(Error:\"+x+\")\";
}

r = TableRow;

c = TableCell;
c.Controls.Add( LiteralControl(\"\"));
c.Width=15;
r.Cells.Add(c);

c = TableCell;
c.Controls.Add( LiteralControl(\"\"));
c.Width=15;
r.Cells.Add(c);

c = TableCell;
c.Controls.Add( LiteralControl(\"发件人\"));
c.Attributes.Add(\"nowrap\",\"true\");
c.Attributes.Add(\"align\",\"center\");
c.Width=80;
r.Cells.Add(c);

c = TableCell;
c.Controls.Add( LiteralControl(\"主题\"));
c.Attributes.Add(\"align\",\"center\");
r.Cells.Add(c);

c = TableCell;
c.Controls.Add( LiteralControl(\"日期\"));
c.Attributes.Add(\"align\",\"center\");
c.Width=120;
r.Cells.Add(c);

c = TableCell;
c.Controls.Add( LiteralControl(\"大小\"));
c.Width=40;


c.Attributes.Add(\"align\",\"center\");
r.Cells.Add(c);

c = TableCell;
c.Controls.Add( LiteralControl(\"附\"));
c.Attributes.Add(\"align\",\"center\");
c.Width=10;
r.Cells.Add(c);
r.BackColor=.Drawing.Color.FromName(\"#6699cc\");
r.ForeColor=.Drawing.Color.WhiteSmoke;
listTable.Rows.Add(r);

EASYMAILIMAP4Lib.IEMIMAP4Envelopes pEnvelopes;
pEnvelopes= (EASYMAILIMAP4Lib.IEMIMAP4Envelopes) IMAP4.Envelopes ;

EASYMAILIMAP4Lib.IEMIMAP4Message pMessage;
EASYMAILIMAP4Lib.IEMIMAP4AttachmentspAttachments;
IEnumerator e = pEnvelopes.GetEnumerator;

CheckBox o;
foreach(EASYMAILIMAP4Lib.IEMIMAP4Envelope pEnvelope in pEnvelopes)
{
IMAP4.DownloadMessage(pEnvelope.IMAPID,1);
pMessage = (EASYMAILIMAP4Lib.IEMIMAP4Message) IMAP4.Message;

r = TableRow;

c = TableCell;
o = CheckBox;
o.ID=pEnvelope.IMAPID.;
//MailBoxesform.Controls.Add(o);

//str1=\"<input type=\\\"checkbox\\\" name=\\\"chk\" + pEnvelope.IMAPID. + \"\\\" =\\\"in1\\\" style=\\\"width:15px;height:15px\\\">\";
//c.Controls.Add( LiteralControl(\"\"));
c.Controls.Add(o);
c.Attributes.Add(\"align\",\"center\");
r.Cells.Add(c);

c = TableCell;
(pMessage.Priority.\"1\")
{


str1=\"<font color=Red style=\\\"width:15px;height:15px\\\">!</font>\";
}

{
str1=\"\";
}
c.Controls.Add( LiteralControl(str1));
c.Attributes.Add(\"align\",\"right\");
r.Cells.Add(c);

c = TableCell;
c.Controls.Add( LiteralControl(pEnvelope.From));
c.Attributes.Add(\"nowrap\",\"true\");
c.Width=80;
r.Cells.Add(c);

c = TableCell;
str1 = \"<a href=\\\"viewdraft.aspx?folder=\"+strFolder+\"&imapid=\" + pEnvelope.IMAPID. + \"\\\">\"+pEnvelope.Subject+\"</a>\";
c.Controls.Add( LiteralControl(str1));
r.Cells.Add(c);


c = TableCell;
c.Controls.Add( LiteralControl(pEnvelope.Date.Sub(0,20)));
r.Cells.Add(c);

c = TableCell;
(pEnvelope.Size/1000<1)
{
c.Controls.Add( LiteralControl(pEnvelope.Size.+\"B\"));
}



{
(pEnvelope.Size/1000000<1)
{
c.Controls.Add( LiteralControl((pEnvelope.Size/1000).+\"K\"));
}

{
c.Controls.Add( LiteralControl((pEnvelope.Size/1000).+\"M\"));
}
}
c.Attributes.Add(\"align\",\"right\");
r.Cells.Add(c);

c = TableCell;
pAttachments = (EASYMAILIMAP4Lib.IEMIMAP4Attachments) pMessage.Attachments;
(pAttachments.Count>0)
{
c.Controls.Add( LiteralControl(\"有\"));
}

{
c.Controls.Add( LiteralControl(\"无\"));
}
c.Attributes.Add(\"align\",\"center\");
r.Cells.Add(c);

listTable.Rows.Add(r);

}

r = TableRow;
c = TableCell;
str1 = \"<a style=\\\"TEXT-DECORATION: none;\\\" href=\\\"Drafts.aspx?pg=1\\\"> << </a>\";
(pgnum1)
{
str1 = str1+\"<\";


}

{
str1 = str1+\"<a style=\\\"TEXT-DECORATION: none;\\\" href=\\\"Drafts.aspx?pg=\" + (pgnum-1) + \"\\\"> < </a>\";
}
(pgnumpages)
{
str1 = str1+\">\";
}

{
str1 = str1+\"<a style=\\\"TEXT-DECORATION: none;\\\" href=\\\"Drafts.aspx?pg=\" + (pgnum+1) + \"\\\"> > </a>\";
}
str1 = str1+\"<a style=\\\"TEXT-DECORATION: none;\\\" href=\\\"Drafts.aspx?pg=\" + pages+ \"\\\"> >> </a>\";
c.Controls.Add( LiteralControl(str1));
c.Attributes.Add(\"align\",\"right\");
c.ColumnSpan=7;
r.Cells.Add(c);
listTable.Rows.Add(r);

\"Ok\";
}
}

这段生成乐个CHECKBOX控制对象加入列邮件TABLE里面去
这样就通过这些CHECKBOX来选择特定邮件来进行删除修改朝左

o = CheckBox;
o.ID=pEnvelope.IMAPID.;
c.Controls.Add(o);
Tags:  controls.play vbcontrols controls johnsoncontrols

延伸阅读

最新评论

发表评论