Dynamic 控制 WebControl

 
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