PlaceHolder + Code Behind 自行增加 WebControl

 

   Default.aspx
 
   <form id="form1" runat="server">
      <div>
         <asp:PlaceHolder ID="Holder1" runat="server" />
      </div>
   </form>
 

 

   Default.aspx.vb
 
   Partial Public Class _Default
      Inherits System.Web.UI.Page
 
      Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
         Dim TB1 As New TextBox
         TB1.ID = "Textbox1"
         TB1.Text = "Input Here"
         Holder1.Controls.Add(TB1)
 
         Dim Btn1 As New Button
         Btn1.ID = "Button1"
         Btn1.Text = "Submit"
         Holder1.Controls.Add(Btn1)
 
         Dim Lb1 As New Label
         Lb1.ID = "Label1"
         Lb1.Text = ""
         Holder1.Controls.Add(Lb1)
 
         AddHandler Btn1.Click, AddressOf Form_Submit
 
      End Sub
 
      Sub Form_Submit(ByVal sender As Object, ByVal e As System.EventArgs)
 
         Dim Lb1 As Label = Me.FindControl("Label1")
         Dim TB1 As TextBox = Me.FindControl("Textbox1")
 
         Lb1.Text = TB1.Text.ToString.Trim
         TB1.Text = ""
 
      End Sub
 
   End Class