<%@ Page Language="VB" AutoEventWireup="True" %>
<script runat="server">
      Sub Page_Load(Sender As Object, e As EventArgs)
          '----------------------------
          '定久可分行的LiteralControl
          Dim myLiteralControl As LiteralControl = New LiteralControl()
          myLiteralControl.Text = "<BR>"

          Dim myLiteralControl2 As LiteralControl = New LiteralControl()
          myLiteralControl2.Text = "<BR>"
          '----------------------------

          '定义一个Button实例
          Dim myButton As Button = New Button()
          myButton.ID = "Button1"
          myButton.Text = "Button 1(取得动态添加入PlaceHolder的Button1的属性)"
    
          Dim myButton2 As Button = New Button()
          myButton2.ID = "Button2"
          myButton2.Text = "Button 2(取得网页中TextBox控件的属性)"

          Dim myTextBox As TextBox = New TextBox()
          myTextBox.ID = "TextBox1"
          myTextBox.AutoPostBack="true"
          myTextBox.Text = "WorldCup 2006"

          '在PlaceHolder1中加入的控件
          PlaceHolder1.Controls.Add(myButton)
          PlaceHolder1.Controls.Add(myLiteralControl)
          PlaceHolder1.Controls.Add(myButton2)
          PlaceHolder1.Controls.Add(myLiteralControl2)
          PlaceHolder1.Controls.Add(myTextBox)    

          '将button的click事件对应处理的事件
          AddHandler myButton.Click, AddressOf Button1_Click 
          AddHandler myButton2.Click, AddressOf Button2_Click
          '将动态加入的TextBox控件进行触发TextChanged事件
          AddHandler myTextBox.TextChanged, AddressOf TextBox1_Changed

      End Sub

      Sub Button1_Click(Sender As Object, e As EventArgs)
          Response.Write("GOOD!<BR>") '显示一消息
          '---- 取得动态添加入PlaceHolder的Button1的属性 ---
          Dim btn as Button = New Button()
          btn = Page.FindControl("Button1")  '使用FindControl找到网页中的Button控件.
          Response.Write(btn.Text)
          '-------------------------------------------------
      End Sub

      Sub Button2_Click(Sender As Object, e As EventArgs)
          '---- 取得网页中TextBox控件的属性 ----------------
          Dim tbxTextBox as TextBox = New TextBox()
          tbxTextBox = Page.FindControl("tbxTextBox1")
          Response.Write(tbxTextBox.Text)
          '-------------------------------------------------
      End Sub

      Sub TextBox1_Changed(Sender As Object, e As EventArgs)
          Dim tbx as TextBox = New TextBox()
          tbx = Page.FindControl("TextBox1")
          Response.Write(tbx.Text)
      End Sub
   </script>

<html>
<body>
   <form runat="Server">
      <h3>PlaceHolder Example</h3>

      <asp:PlaceHolder id="PlaceHolder1" runat="server"/><HR>
      <asp:TextBox id="tbxTextBox1" runat="server" Text="我是中国人"/>
   </form>
</body>
</html>