ASP.Net/User Control and Master Page/Control Style
Change user control style (VB.net)
<source lang="csharp">
<%@ Page Language=VB Debug=true %> <%@ Register
TagPrefix="My" TagName="SimpleControl" Src="UserControlWriteProp.ascx"
%> <script runat=server> Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
lblMessage.Text = "You entered: " & MSC1.UserName _ & " " & MSC1.Password MSC1.FontName = "Arial" MSC1.FontBold = "True" "lblMessage.Text = MSC1.FontName
End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Implementing a User Control on an ASP.NET Page</TITLE> </HEAD> <BODY LEFTMARGIN="40"> <form
runat="server" id="MyForm"
>
<My:SimpleControl
id="MSC1" runat="server" fontname="Comic Sans MS" fontbold="False"
/>
<asp:button
id="butOK" text=" OK " onclick="SubmitBtn_Click" runat="server"
/>
<asp:label
id="lblMessage" runat="server"
/> </form> </BODY> </HTML> <%--UserControlWriteProp.ascx <script language="VB" runat="server"> Public ReadOnly Property UserName() As String
Get UserName = txtUserName.Text End Get
End Property Public ReadOnly Property Password() As String
Get Password = txtPassword.Text End Get
End Property Public ReadOnly Property Version() As String
Get Version = "2.3.145" End Get
End Property Public WriteOnly Property FontName() As String
Set lbl1.Font.Name = value lbl2.Font.Name = value End Set
End Property Public WriteOnly Property FontBold() As Boolean
Set lbl1.Font.Bold = value lbl2.Font.Bold = value End Set
End Property </script>
<asp:Label id="lbl1" runat="server" Font-Bold="True" Text="User Name: " /> |
<asp:TextBox id="txtUserName" runat=server /> |
<asp:Label id="lbl2" runat="server" Font-Bold="True" Text="Password: " /> |
<asp:TextBox id="txtPassword" runat=server TextMode="Password" /> |
--%>
</source>