創建用戶控件

Posted on 2006-01-12 21:38  飞鼠  阅读(416)  评论(0)    收藏  举报

用戶控件

<% @ 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頁面

<% @ Page Language="vb" %>
'以聲明方式添加用戶控件
<% @ 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" %>
'以編程方式添加用戶控件
<% @ 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>


<% @ Control ClassName="Hello" %>