ASP.Net/User Control and Master Page/Control Action — различия между версиями

Текущая версия на 11:53, 26 мая 2010

Содержание

1 Clear textbox in a user defined control (VB.net)
2 User control with event
3 User Control with Events (VB.net)
4 User control with event (VB)

Clear textbox in a user defined control (VB.net)

<%@ Page Language=VB Debug=true %>
<%@ Register 
    TagPrefix="My" 
    TagName="SimpleControl" 
    Src="UserControlSub.ascx" 
%>
<script runat=server>
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  "
    runat="server"
/>
<asp:button 
    id="butClear"
    text="Clear"
    onclick="Clear_Click" 
    runat="server"
/>
<BR><BR>
<asp:label
    id="lblMessage"
    runat="server"
/>
</form>
</BODY>
</HTML>
<%--UserControlSub.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
</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 event

<%@ Page language="c#" %>
<%@ Register TagPrefix="uc1" TagName="Control" Src="Control.ascx" %>
<script runat="server">
  void MultipleReached(object sender, EventArgs e) {
    Message.Text="Congratulations!";
  }
</script>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" > 
<html>
  <body MS_POSITIONING="FlowLayout">
    <form id="Control" method="post" runat="server">
      <uc1:Control id="Control1" 
                   runat="server" 
                   Multiple="5" 
                   OnMultipleReached="MultipleReached"></uc1:Control>
      <asp:Label ID="Message" Runat="server" EnableViewState="False" />
     </form>
  </body>
</html>
File: Control.ascx
<%@ Control Language="c#" AutoEventWireup="false" Codebehind="Control.ascx.cs" Inherits="Control.Control" TargetSchema="http://schemas.microsoft.ru/intellisense/ie5" %>
<asp:Label id="OutputLabel" runat="server"></asp:Label>
File: Control.ascx.cs
namespace Control
{
  using System;
  using System.Data;
  using System.Drawing;
  using System.Web;
  using System.Web.UI.WebControls;
  using System.Web.UI.HtmlControls;
  public abstract class Control : System.Web.UI.UserControl
  {
    protected static readonly object EventMultipleReached = new Object();
    protected System.Web.UI.WebControls.Label OutputLabel;
    private int multiple = 10;
    public int Multiple 
    {
      get 
      {
        return multiple;
      }
      set
      {
        multiple = value;
      }
    }
    private void Page_Load(object sender, System.EventArgs e)
    {
      if(Application["count"] == null)
        Application["count"] = 0;
      Application.Lock();
      Application["count"] = (int)Application["count"] + 1;
      Application.UnLock();
      if((int)Application["count"] % Multiple == 0)
        OnMultipleReached(EventArgs.Empty);
      OutputLabel.Text = Application["count"].ToString();
    }
    public event EventHandler MultipleReached 
    {
      add 
      {
        Events.AddHandler(EventMultipleReached, value);
      }
      remove
      {
        Events.RemoveHandler(EventMultipleReached, value);
      }
    }
    public virtual void OnMultipleReached(EventArgs e)
    {
      EventHandler MultipleReachedHandler = (EventHandler)Events[EventMultipleReached];
      if (MultipleReachedHandler != null)
      {
        MultipleReachedHandler(this, e);
      }
    }
    override protected void OnInit(EventArgs e)
    {
      InitializeComponent();
      base.OnInit(e);
    }
    
    private void InitializeComponent()
    {
      this.Load += new System.EventHandler(this.Page_Load);
    }
  }
}

User Control with Events (VB.net)

<%@ Page Language=VB Debug=true %>
<%@ Register 
    TagPrefix="My" 
    TagName="SimpleControl" 
    Src="UserControlEvents.ascx" 
%>
<script runat=server>
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
    If MSC1.ValidateLogin("Joe", "nfex") 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>
<%--UserControlEvents.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
Sub UserName_Changed(Sender As Object, E As EventArgs)
    txtUserName.Text = UCase(txtUserName.Text)
End Sub
</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
    autopostback="True"
    ontextchanged="UserName_Changed"
/>
</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 event (VB)

<%@ Page language="vb" AutoEventWireUp="false" %>
<%@ Register TagPrefix="uc1" TagName="Control" Src="Control.ascx"%>
<script runat="server">
  Sub MultipleReached(ByVal sender As Object, ByVal e As EventArgs)
    Message.Text="Congratulations!  You were the 5th visitor!"
  End Sub
</script>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<html>
  <body MS_POSITIONING="FlowLayout">
    <form id="Control" method="post" runat="server">
      <uc1:Control id="Control1" 
                   runat="server" 
                   Multiple="5" 
                   OnMultipleReached="MultipleReached"></uc1:Control>
      <asp:Label ID="Message" Runat="server" EnableViewState="False" />
    </form>
  </body>
</html>
File: Control.ascx
<%@ Control Language="vb" Src="Control.ascx.vb" Inherits="Control.Control" AutoEventWireup="false" %>
<asp:Label id="OutputLabel" runat="server"></asp:Label>
File: Control.ascx.vb
Namespace Control
    Public MustInherit Class Control
        Inherits System.Web.UI.UserControl
        Protected WithEvents OutputLabel As System.Web.UI.WebControls.Label
        Private _multiple As Integer = 10
        Public Property Multiple() As Integer
            Get
                Return _multiple
            End Get
            Set(ByVal Value As Integer)
                _multiple = Value
            End Set
        End Property
        Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
            InitializeComponent()
        End Sub
        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            If Application("count") Is Nothing Then
                Application("count") = 0
            End If
            Application.Lock()
            Application("count") = Application("count") + 1
            Application.UnLock()
            If Application("count") Mod Multiple = 0 Then
                OnMultipleReached(System.EventArgs.Empty)
            End If
            OutputLabel.Text = Application("count").ToString()
        End Sub
        Public Event MultipleReached(ByVal sender As Object, ByVal e As System.EventArgs)
        Public Overridable Sub OnMultipleReached(ByVal e As System.EventArgs)
            RaiseEvent MultipleReached(Me, e)
        End Sub
    End Class
End Namespace

ASP.Net/User Control and Master Page/Control Action — различия между версиями

Текущая версия на 11:53, 26 мая 2010

Содержание

Clear textbox in a user defined control (VB.net)

User control with event

User Control with Events (VB.net)

User control with event (VB)

Навигация

Персональные инструменты

Пространства имён

Варианты

Просмотры

Ещё

Поиск

Разделы

Инструменты

Навигация

Версия 15:30, 26 мая 2010 (просмотреть исходный код) (обсуждение) ← Предыдущая правка	Текущая версия на 11:53, 26 мая 2010 (просмотреть исходный код) Admin (обсуждение \| вклад) м (1 версия)
(нет различий)