|
<%@ Page Language="VB" %>
<%@ Register TagPrefix="uc1" TagName="header" Src="Control.ascx" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<HTML>
<HEAD>
<title>User Controls</title>
<Script Runat="Server">
Private Sub Page_Load(sender As Object, e As System.EventArgs)
header1.Author = "Snoopy"
FooterLabel.Text = "Rendered " + header1.RenderDate
End Sub 'Page_Load
</Script>
</HEAD>
<body>
<form id="dependingdropdowns" method="post" runat="server">
<uc1:header id="header1" runat="server" Title="A Tale of Mystery"></uc1:header>
<p>It was a dark and stormy night.</p>
<hr />
<asp:Label ID="FooterLabel" Runat="server" />
</form>
</body>
</HTML>
File: Control.ascx
<%@ Control Language="vb" %>
<script runat="server">
Private _title As String
Private _author As String
Private _renderDate As DateTime = System.DateTime.Now
Public Property Title() As String
Get
Return _title
End Get
Set
_title = value
End Set
End Property
Public Property Author() As String
Get
Return _author
End Get
Set
_author = value
End Set
End Property
Public ReadOnly Property RenderDate() As DateTime
Get
Return _renderDate
End Get
End Property
Private Sub Page_Load(sender As Object, e As EventArgs)
TitleLabel.Text = Title
AuthorLabel.Text = Author
End Sub
</script>
<h1><asp:Label id="TitleLabel" runat="server" /></h1>
<h3><asp:Label id="AuthorLabel" runat="server" />
</h1>
|