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 |