loginevent.vb

来自「asp.net技术内幕的书配源码」· VB 代码 · 共 57 行

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls

Namespace myControls

Public Class LoginEvent
Inherits Control
Implements INamingContainer

Sub CheckPassword( s As Object, e As EventArgs )
  Dim strUsername, strPassword As String
  Dim lblLabel As Label
  strUsername = CTYPE( Controls( 2 ), TextBox ).Text
  strPassword = CTYPE( Controls( 5 ), TextBox ).Text
  lblLabel = CTYPE( Controls( 9 ), Label )
  If strUsername = "joe" and strPassword = "secret" Then
    lblLabel.Text = "Welcome Joe!"
  Else
    lblLabel.Text = "Invalid Password!"
  End If
End Sub

Protected Overrides Sub CreateChildControls()
  Me.Controls.Add( New LiteralControl( "<div style=""border: 5px " & _
    "inset #cccccc;background-color:#eeeeee;width:50%;padding:10px"">" ) )

  ' Add Username
  Me.Controls.Add( New LiteralControl( "<b>Username:</b> " ) )
  Me.Controls.Add( New TextBox )
  Me.Controls.Add( New LiteralControl( "<p>" ) )

  ' Add Password
  Dim txtPass As New TextBox
  Me.Controls.Add( New LiteralControl( "<b>Password:</b> " ) )
  txtPass.TextMode = TextBoxMode.Password
  Me.Controls.Add( txtPass )
  Me.Controls.Add( New LiteralControl( "<p>" ) )

  ' Add Submit Button
  Dim btnButton As New Button
  btnButton.Text = "Login!"
  AddHandler btnButton.Click, AddressOf checkPassword
  Me.Controls.Add( btnButton )
  Me.Controls.Add( New LiteralControl( "</div>" ) )

  ' Add Label Control
  Dim lblLabel As New Label
  lblLabel.EnableViewState = False
  Me.Controls.Add( lblLabel )
End Sub

End Class

End Namespace