в 15:30, 26 мая 2010

2010-05-26T15:30:47Z

Admin: 1 версия

2010-05-26T11:53:57Z

1 версия

Новая страница

==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"
>
<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>
--%>

</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"
>
<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>
--%>

</source>

← Предыдущая	Версия 15:30, 26 мая 2010
(нет различий)

ASP.Net/User Control and Master Page/Define Function - История изменений

в 15:30, 26 мая 2010

Admin: 1 версия