www.pudn.com > 维文输入法源代码.rar > Form4.frm

VERSION 5.00 
Begin VB.Form Form4  
   BackColor       =   &H0000C000& 
   BorderStyle     =   1  'Fixed Single 
   Caption         =   "密码输入框" 
   ClientHeight    =   1350 
   ClientLeft      =   45 
   ClientTop       =   330 
   ClientWidth     =   3195 
   Icon            =   "Form4.frx":0000 
   LinkTopic       =   "Form4" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   1350 
   ScaleWidth      =   3195 
   StartUpPosition =   3  '窗口缺省 
   Begin VB.Timer Timer2  
      Enabled         =   0   'False 
      Interval        =   800 
      Left            =   240 
      Top             =   960 
   End 
   Begin VB.Timer Timer1  
      Interval        =   500 
      Left            =   2520 
      Top             =   960 
   End 
   Begin VB.CommandButton Command1  
      BackColor       =   &H0000C000& 
      Caption         =   "确认(&Y)" 
      Enabled         =   0   'False 
      Height          =   375 
      Left            =   1080 
      Style           =   1  'Graphical 
      TabIndex        =   1 
      Top             =   840 
      Width           =   975 
   End 
   Begin VB.TextBox Text1  
      BackColor       =   &H0080FFFF& 
      ForeColor       =   &H0000C000& 
      Height          =   375 
      IMEMode         =   3  'DISABLE 
      Left            =   480 
      PasswordChar    =   "*" 
      TabIndex        =   0 
      Top             =   360 
      Width           =   2175 
   End 
   Begin VB.Label Label2  
      BackColor       =   &H0000C000& 
      Caption         =   "密码输入的不对!请重新输入一边" 
      ForeColor       =   &H000000FF& 
      Height          =   255 
      Left            =   240 
      TabIndex        =   3 
      Top             =   120 
      Width           =   2895 
   End 
   Begin VB.Label Label1  
      BackColor       =   &H0000C000& 
      Caption         =   "请输入使用权密码" 
      Height          =   255 
      Left            =   720 
      TabIndex        =   2 
      Top             =   120 
      Width           =   2175 
   End 
End 
Attribute VB_Name = "Form4" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
Dim b1, b2 As Boolean 
Dim ml As Integer 
Private Sub Command1_Click() 
Dim i As Integer 
If Text1.Text = "yusupnazar" Then 
mima = True 
Form2.Show 
Unload Me 
Else 
If ml < 3 Then 
Timer2.Enabled = True 
b1 = False 
Text1.Text = "" 
ml = ml + 1 
Else 
If MsgBox("你是否非法用户?", vbOKOnly + vbQuestion, "JSW SOFT") = vbOK Then 
End 
End If 
End If 
End If 
End Sub 
Private Sub Form_Load() 
Form4.Move ((Screen.Width - Form4.Width) / 2), ((Screen.Height - Form4.Height) / 2) 
Label1.Visible = True 
Label2.Visible = False 
End Sub 
Private Sub Timer1_Timer() 
If Text1.Text <> "" Then 
Command1.Enabled = True 
Timer1.Enabled = False 
End If 
End Sub 
Private Sub Timer2_Timer() 
If b1 = False Then 
Label1.Visible = False 
Label2.Visible = True 
b1 = True 
Else 
Label1.Visible = True 
Label2.Visible = False 
Timer2.Enabled = False 
Command1.Enabled = False 
Timer1.Enabled = True 
End If 
End Sub