Private Sub cmdok_Click()
Dim struser As String
Dim strpwd As String
struser = Trim(txtuser.Text)
strpwd = Trim(txtpwd.Text)
If struser = Empty Then
MsgBox "用户名不能为空,请正确填写", vbCritical + vbOKOnly, "警告"
txtuser.Text = ""
txtpwd.Text = ""
txtuser.SetFocus
End If
If login(struser, strpwd) = True Then
MsgBox struser & ":欢迎使用本系统", vbInformation + vbOKOnly, "登陆成功"
Else
If MsgBox("输入的用户名或者密码不正确,请重新输入!", vbCritical + vbOKCancel, "警告") = vbOK Then
txtpwd.Text = ""
txtuser.SetFocus
SendKeys "{home}+{end}"
Else
Unload Me
End
End If
Exit Sub
End Sub
问题：第7行里的vbInformation + vbOKOnly是干什么用的？
问题：第17行里的vbOK Then是干什么用的？
问题：第20行里的SendKeys "{home}+{end}"是干什么用的？
參考答案:vbInformation + vbOKOnly 是弹出对话框显示图片+只有确定按钮
vbOK then 是当按下的为确定按钮 要执行下面的代码
SendKeys "{home}+{end}" 等于按下home 和end 键