frmpass.vb

来自「Online Telephone Directory in Visual Bas」· VB 代码 · 共 30 行

Option Strict Off
Option Explicit On
Friend Class Form2
	Inherits System.Windows.Forms.Form
	Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
		If Text1.Text = "Admin" And Text2.Text = "phone" Then
			Me.Close()
			Form3.Show()
		Else
			MsgBox("Invalid Entry.. Try Again", MsgBoxStyle.Critical)
			Text1.Text = ""
			Text2.Text = ""
			Text1.Focus()
		End If
	End Sub
	
	Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click
		Me.Close()
		Form1.Show()
	End Sub
	
	Private Sub Text2_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles Text2.KeyPress
		Dim KeyAscii As Short = Asc(eventArgs.KeyChar)
		If KeyAscii = 13 Then Command1_Click(Command1, New System.EventArgs())
		eventArgs.KeyChar = Chr(KeyAscii)
		If KeyAscii = 0 Then
			eventArgs.Handled = True
		End If
	End Sub
End Class