Use the volume control
<% @ Control ClassName = "Hello" %>
<Script language = "vb" runat = "server">
Private _ name As String
Public Property Name As String
Get
Return _ name
End Get
Set
_ Name = Value
End Set
End Property
Public Sub SayHello ()
Label1.Text = "Hello," & _ name &"! "
End Sub
</Script>
<Asp: Label id = Label1 runat = "server"> </asp: Label>
Web Interface
<% @ Page Language = "vb" %>
'Add the consumer control in the Xiaoming mode.
<% @ Register TagPrefix = "aspnetsbs" TagName = "Hello" Src = "Hello. ascx" %>
<Html>
<Head>
<Script runat = "server">
Sub Page_Load (Sender As Object, E As EventArgs)
MyHello. Name = "HURENFEI"
MyHello. SayHello
End Sub
</Script>
</Head>
<Body>
<Aspnetsbs: Hello id = "MyHello" runat = "server"/>
</Body>
</Html>
<% @ Page Language = "vb" %>
'Add the upload control as a stopped'
<% @ Reference Control = "Hello. ascx" %>
<Html>
<Head>
<Script runat = "server">
Sub Page_Load (Sender As Object, E As EventArgs)
Dim MyHello As Control = LoadControl ("Hello. ascx ")
Helloholder. Controls. Add (myhello)
Ctype (myhello, hello). Name = "hurenfei"
Ctype (myhello, hello). sayhello
End sub
</SCRIPT>
</Head>
<Body>
<Asp: placeholder id = "helloholder" runat = "server"/>
</Body>
</Html>
