在vb程序中如何测试文本框输入次数的返回值（就行输入银行密码一样，只能输入三次错误密码就自动锁住了）

2011-10-30 15:41

提问者： A张平A | 四级

输入到记事本，保存为Form1.frm即可每行代码均写了注释，应该知道意思了VERSION 5.00Begin VB.Form Form1    Caption         =   "Form1"   ClientHeight    =   3840   ClientLeft      =   60   ClientTop       =   450   ClientWidth     =   5625   LinkTopic       =   "Form1"   ScaleHeight     =   3840   ScaleWidth      =   5625   StartUpPosition =   3  '窗口缺省   Begin VB.TextBox Text1       Height          =   495      Left            =   720      TabIndex        =   0      Top             =   840      Width           =   3975   EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Text1_KeyPress(KeyAscii As Integer)    Static sum%     '定义一个静态变量sum用作计数器    If KeyAscii = 13 Then   '如果键入了一个回车则算一次输入(其他的可以自己改)        sum = sum + 1   '计数器加1        KeyAscii = 0    '忽略回车符的输入        If sum = 3 Then MsgBox "输入三次了！": Text1.Enabled = False    '当输入次数达到3次是提示，并屏蔽Text1    End IfEnd Sub