Vb登陆界面设计(共4页).doc

精选优质文档-----倾情为你奉上
精选优质文档-----倾情为你奉上
专心---专注---专业
专心---专注---专业
精选优质文档-----倾情为你奉上
专心---专注---专业
Vb登陆界面设计
，精选优质文档-----倾情为你奉上
精选优质文档-----倾情为你奉上
专心---专注---专业
专心---专注---专业
精选优质文档-----倾情为你奉上
专心---专注---专业
Vb登陆界面设计
，以及关键属性：
控件
关键属性
Label
Caption,backstyle,font
text
Caption, passwordchar
Command
caption,font,style,picture

登陆界面程序代码：
Dim i As Integer, j As Integer
Private Sub Command1_Click()
If Text2 <> "" Then
j = j + 1
i = MsgBox("请重新输入密码？", vbOKCancel + vbQuestion, "密码错误！" & "第" & j & "次")
If i = 1 Then
= ""

If j > 3 Then
MsgBox ("密码错误3次，强制退出！")
End
Else
= ""

End If
End If
If i = 2 Then
End
End If
Else
Load Form2

精选优质文档-----倾情为你奉上
精选优质文档-----倾情为你奉上
专心---专注---专业
专心---专注---专业
精选优质文档-----倾情为你奉上
专心---专注---专业
End If
End Sub
Private Sub Text1_LostFocus()
If IsNumeric(Text1) = False Then
MsgBox ("请输入数字！")
End If
End Sub
程序实现的功能：
用户名必须输入数字，不然会出现提示窗口：请输入数字。
密码如果