Dynamic 控制 WebControl
WebForm1.aspx |
<asp:PlaceHolder ID="PlaceHolder1" runat="server" /> |
WebForm1.aspx.vb |
Private Sub Layout() Dim BB As New TextBox BB.ID = "TextBox2" Dim CC As New TextBox CC.ID = "TextBox3" Dim DD As New TextBox DD.ID = "TextBox4" Dim EE As New Button EE.Text = "Submit" PlaceHolder1.Controls.Add(BB) PlaceHolder1.Controls.Add(New LiteralControl("<br />")) PlaceHolder1.Controls.Add(CC) PlaceHolder1.Controls.Add(New LiteralControl("<br />")) PlaceHolder1.Controls.Add(DD) PlaceHolder1.Controls.Add(New LiteralControl("<br />")) PlaceHolder1.Controls.Add(EE) Dim TempTextbox As TextBox TempTextbox = TryCast(FindControl("TextBox2"), TextBox) TempTextbox.Text = "TB2" TempTextbox = TryCast(FindControl("TextBox3"), TextBox) TempTextbox.Text = "TB3" TempTextbox = TryCast(FindControl("TextBox4"), TextBox) TempTextbox.Text = "TB4" End Sub |