ASP.Net/User Control and Master Page/Define Function

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

Get and set data to a user defined function (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <%@ Register 

   TagPrefix="My" 
   TagName="SimpleControl" 
   Src="UserControlReadWriteProp.ascx"

%> <script runat=server> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) 

   If MSC1.UserNameLabel = "User Name: " Then
       MSC1.UserNameLabel = "Your Name: "
   End If
   MSC1.PasswordLabel = UCase(MSC1.PasswordLabel)

End Sub 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> <%-- UserControlReadWriteProp.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 Public Property UserNameLabel() As String 

   Get
       UserNameLabel = lbl1.Text
   End Get
   Set
       lbl1.Text = value
   End Set

End Property Public Property PasswordLabel() As String 

   Get
       PasswordLabel = lbl2.Text
   End Get
   Set
       lbl2.Text = 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>


User control with functions (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <%@ Register 

   TagPrefix="My" 
   TagName="SimpleControl" 
   Src="UserControlFunction.ascx"

%> <script runat=server> Sub SubmitBtn_Click(Sender As Object, E As EventArgs) 

   If MSC1.ValidateLogin("Bob", "aspx") Then
       lblMessage.Text = "Entry allowed!"
   Else
       lblMessage.Text = "Entry denied!"
   End If

End Sub Sub Clear_Click(Sender As Object, E As EventArgs) 

   MSC1.ClearText("All")

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"

/>
<asp:button 

   id="butOK"
   text="  OK  "
   onclick="SubmitBtn_Click" 
   runat="server"

/> <asp:button 

   id="butClear"
   text="Clear"
   onclick="Clear_Click" 
   runat="server"

/>

<asp:label 

   id="lblMessage"
   runat="server"

/> </form> </BODY> </HTML> <%-- UserControlFunction.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 Public Property UserNameLabel() As String 

   Get
       UserNameLabel = lbl1.Text
   End Get
   Set
       lbl1.Text = value
   End Set

End Property Public Property PasswordLabel() As String 

   Get
       PasswordLabel = lbl2.Text
   End Get
   Set
       lbl2.Text = value
   End Set

End Property Public Sub ClearText (TextToClear as String) 

   If TextToClear = "All" Then
       txtUserName.Text = ""
       txtPassword.Text = ""
   ElseIf TextToClear = "UserName" Then        
       txtUserName.Text = ""
   ElseIf TextToClear = "Password" Then        
       txtPassword.Text = ""
   Else
       Err.Raise(vbObjectError + 513, "User Control Error!", _
           "TextToClear parameter must be set to " _
           & "All, UserName or Password!")
   End If

End Sub Public Function ValidateLogin (TestUserName as String, _ 

   TestPassword as String) as Boolean
  If txtUserName.Text = TestUserName and _
      txtPassword.Text = TestPassword Then
      ValidateLogin = True
  Else
      ValidateLogin = False
  End If

End Function </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://nfex.ru/index.php?title=ASP.Net/User_Control_and_Master_Page/Define_Function&oldid=2442»