File: index.aspx
<%@ Page Language="VB" %>
<%@ Register TagPrefix="rntsoftASP" TagName="LoginForm" src="Control.ascx" %>
sub Page_Load(Sender as Object, e as EventArgs)
lblMessage.Text = "Properties of the user control: " & _
"
id: " & LoginForm1.id & "
" & _
"BackColor: " & LoginForm1.BackColor & "
" & _
"Username: " & LoginForm1.Username & "
" & _
"Password: " & LoginForm1.Password
end sub
Username="Chris"
BackColor="Beige" />
File: Control.ascx
public BackColor as String = "White"
public property UserName as string
Get
UserName = User.Text
End Get
Set
User.Text = value
End Set
end property
public property Password as string
Get
Password = Pass.Text
End Get
Set
Pass.Text = value
End Set
end property
public sub Submit(obj as object, e as eventargs)
lblMessage.Text = "Username: " & User.Text & _
"
" & "Password: " & Pass.Text & ""
end sub
Login:
Password: