ASP.Net/User Control and Master Page/Control Style

Материал из .Net Framework эксперт
Перейти к: навигация, поиск

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>
Источник — «http://www.nfex.ru/index.php?title=ASP.Net/User_Control_and_Master_Page/Control_Style&oldid=2424»