VB写的简单登陆框

作者: | 日期: 2010 年 09 月 27 日 | 围观: 4132次+ | 没有评论

  Private Sub Command1_Click()
Dim name, mima As Single
name = Text1.Text
mima = Val(Text2.Text) If name = "abc" And mima = 123456 Then MsgBox "登陆成功", vbOKOnly, "恭喜你。。"
Else MsgBox "登录失败", vbOKOnly, "提示"
Text1.SetFocus End If E[……]

继续阅读

第 1 页，共 1 页1