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

Материал из .Net Framework эксперт
Версия от 11:53, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

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

<%@ 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"    
>
<BR><BR>
<My:SimpleControl 
    id="MSC1" 
    runat="server"
    fontname="Comic Sans MS"
    fontbold="False"
/>
<BR>
<asp:button 
    id="butOK"
    text="  OK  "
    onclick="SubmitBtn_Click" 
    runat="server"
/>
<BR><BR>
<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>
<Table style="font: 10pt verdana;border-width:1;
    border-style:solid;border-color:black;" cellspacing="15">
<TR>
<TD>
<asp:Label
    id="lbl1"
    runat="server"
    Font-Bold="True"
    Text="User Name: "
/>
</TD>
<TD>
<asp:TextBox 
    id="txtUserName"
    runat=server
/>
</TD>
</TR>
<TR>
<TD>
<asp:Label
    id="lbl2"
    runat="server"
    Font-Bold="True"
    Text="Password: "
/>
</TD>
<TD>
<asp:TextBox 
    id="txtPassword"
    runat=server
    TextMode="Password"
/>
</TD>
</TR>
</Table>
--%>



User control with functions (VB.net)

<%@ 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"    
>
<BR><BR>
<My:SimpleControl 
    id="MSC1" 
    runat="server"
/>
<BR>
<asp:button 
    id="butOK"
    text="  OK  "
    onclick="SubmitBtn_Click" 
    runat="server"
/>
<asp:button 
    id="butClear"
    text="Clear"
    onclick="Clear_Click" 
    runat="server"
/>
<BR><BR>
<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>
<Table style="font: 10pt verdana;border-width:1;
    border-style:solid;border-color:black;" cellspacing="15">
<TR>
<TD>
<asp:Label
    id="lbl1"
    runat="server"
    Font-Bold="True"
    Text="User Name: "
/>
</TD>
<TD>
<asp:TextBox 
    id="txtUserName"
    runat=server
/>
</TD>
</TR>
<TR>
<TD>
<asp:Label
    id="lbl2"
    runat="server"
    Font-Bold="True"
    Text="Password: "
/>
</TD>
<TD>
<asp:TextBox 
    id="txtPassword"
    runat=server
    TextMode="Password"
/>
</TD>
</TR>
</Table>
--%>
Источник — «http://nfex.ru/index.php?title=ASP.Net/User_Control_and_Master_Page/Define_Function&oldid=2442»