form1.frm

vb电子书籍

   VERSION 5.00
   Begin VB.Form Form1
      Caption         =   "密码"
      ClientHeight    =   2355
      ClientLeft      =   60
      ClientTop       =   345
      ClientWidth     =   4725
      LinkTopic       =   "Form1"
      MaxButton       =   0   'False
      ScaleHeight     =   2355
      ScaleWidth      =   4725
      StartUpPosition =   2  '屏幕中心
      Begin VB.TextBox Text2
         Height          =   495
         IMEMode         =   3  'DISABLE
         Left            =   1680
         MaxLength       =   6
         PasswordChar    =   "*"
         TabIndex        =   4
         Top             =   1200
         Width           =   2055
      End
      Begin VB.TextBox Text1
         Height          =   375
         Left            =   1680
         TabIndex        =   3
         Top             =   480
         Width           =   2055
      End
      Begin VB.CommandButton Command1
         Caption         =   "确定"
         Height          =   495
         Left            =   600
         TabIndex        =   2
         Top             =   1800
         Width           =   1095
      End
      Begin VB.Label Label2
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         BorderStyle     =   1  'Fixed Single
         Caption         =   "密码："
         BeginProperty Font
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   300
         Left            =   720
         TabIndex        =   1
         Top             =   1200
         Width           =   780
      End
      Begin VB.Label Label1
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         BorderStyle     =   1  'Fixed Single
         Caption         =   "帐号："
         BeginProperty Font
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   300
         Left            =   720
         TabIndex        =   0
         Top             =   480
         Width           =   780
      End
   End
   Attribute VB_Name = "Form1"
   Attribute VB_GlobalNameSpace = False
   Attribute VB_Creatable = False
   Attribute VB_PredeclaredId = True
   Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
'******************************************************************
'************** 过程名称：Command1_Click
'************** 参数： 无
'******************************************************************
Private Sub Command1_Click()
  Dim i As Integer
  If Text2.Text <> "gong" Then
    i = MsgBox("密码错误", 5 + vbExclamation, "输入密码")
    If i = 2 Then
      End
    Else
      Text2.Text = ""
      Text2.SetFocus
    End If
  End If
  
End Sub
  
'******************************************************************
'************** 过程名称：Form_Load
'************** 参数： 无
'******************************************************************
Private Sub Form_Load()
  
End Sub
  
'******************************************************************
'************** 过程名称：Text1_Change
'************** 参数： 无
'******************************************************************
Private Sub Text1_Change()
  If Not IsNumeric(Text1) Then
    MsgBox "帐号有非数字字符错误"
    Text1.Text = ""
    Text1.SetFocus
  End If
End Sub