frmmain.frm

来自「创建一个用户登陆枢,如何用Visual.Basic来完成」· FRM 代码 · 共 38 行

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Const Password As String = "111"
Private Sub Form_Load()
    Const MAX_LOGON_ATTEMPTS As Integer = 3
    Static sintLogonAttempts As Integer
    frmLogon.Show vbModal
    Do Until frmLogon.txtPassword.Text = Password
        sintLogonAttempts = sintLogonAttempts + 1
        If sintLogonAttempts < MAX_LOGON_ATTEMPTS Then
            MsgBox prompt:="密码无效", _
            buttons:=vbOKOnly + vbInformation
            frmLogon.txtPassword.Text = ""
            frmLogon.Show vbModal
        Else
            MsgBox prompt:="试图登录次数太多，再见", _
            buttons:=vbOKOnly + vbInformation
            End
        End If
    Loop
End Sub