'动态加Label For i = 0 To field - 1 Dim label1 = New Label() label1.ID = "label" + i.ToString Page.Controls(2).Controls.Add(label1) Next i '加Label.text 'Dim a = New Table() '''''''表格 For i = 0 To field - 1 Dim b = New TableRow() '’‘’‘’行 b.ID = "TableRow" + i.ToString Page.Controls(2).Controls.Add(b) Dim c1 = New TableCell() Dim c2 = New TableCell() c1.Controls.Add(CType(Me.FindControl("label" & i.ToString), Label)) '动态加TextBox Dim TextBox1 = New TextBox() TextBox1.ID = "TextBox" + i.ToString Page.Controls(2).Controls.Add(TextBox1) CType(Me.FindControl("TextBox" & i.ToString), TextBox).Width = Unit.Pixel(155) c2.Controls.Add(CType(Me.FindControl("TextBox" & i.ToString), TextBox)) CType(Me.FindControl("TableRow" & i.ToString), TableRow).Controls.Add(c1) CType(Me.FindControl("TableRow" & i.ToString), TableRow).Controls.Add(c2) Table2.Controls.Add(CType(Me.FindControl("TableRow" & i.ToString), TableRow)) next i
{
if(this.panel6.Controls[n].Name==this.messagewite[this.messagewite.Count-1].ToString())
{
this.messagewite.RemoveAt(n);
return;
}
}
Button newmesage=new Button();
newmesage.Text=this.messagewite[this.messagewite.Count-1].ToString();
newmesage.Name=this.messagewite[this.messagewite.Count-1].ToString();
newmesage.FlatStyle = System.Windows.Forms.FlatStyle.Popup;
this.toolTip1.SetToolTip(newmesage,"用户信息:"+publicdata.allonlineuser[this.messagewite[this.messagewite.Count-1]]);
newmesage.Location=new Point(30,this.panel6.Controls[this.panel6.Controls.Count-1].Bottom+10);
newmesage.Click+=new EventHandler(newmesage_Click);
this.panel6.Controls.Add(newmesage);在panel6中动态添加button,让按钮始终保持连续均匀的排列
For i = 0 To field - 1
Dim label1 = New Label()
label1.ID = "label" + i.ToString Page.Controls(2).Controls.Add(label1)
Next i
'加Label.text
'Dim a = New Table() '''''''表格
For i = 0 To field - 1
Dim b = New TableRow() '’‘’‘’行
b.ID = "TableRow" + i.ToString
Page.Controls(2).Controls.Add(b)
Dim c1 = New TableCell()
Dim c2 = New TableCell()
c1.Controls.Add(CType(Me.FindControl("label" & i.ToString), Label))
'动态加TextBox
Dim TextBox1 = New TextBox()
TextBox1.ID = "TextBox" + i.ToString
Page.Controls(2).Controls.Add(TextBox1)
CType(Me.FindControl("TextBox" & i.ToString), TextBox).Width = Unit.Pixel(155)
c2.Controls.Add(CType(Me.FindControl("TextBox" & i.ToString), TextBox))
CType(Me.FindControl("TableRow" & i.ToString), TableRow).Controls.Add(c1)
CType(Me.FindControl("TableRow" & i.ToString), TableRow).Controls.Add(c2)
Table2.Controls.Add(CType(Me.FindControl("TableRow" & i.ToString), TableRow))
next i