VB中接受键盘事件(主要就是回车键)
一开始有一个登陆窗口,点击确定键变可在数据库端验证用户名和密码,但是在窗体接受键盘事件是我却不知道该怎么写了,是用Keypress吗?
这里只写了OK键被鼠标按下时,并不响应键盘事件
Private Sub cmdok_click()
Dim txtsql As String, mrc As ADODB.Recordset, msgtext As String
Dim miscount As Integer
If Trim(txtUserName.Text = "") Then
MsgBox "用户名不为空,请重新输入!", vbOKOnly + vbExclamation, "警告"
txtUserName.Text = "": txtUserName.SetFocus: Exit Sub
Else
txtsql = "Select * from user_info where user_id='" & _
Trim(txtUserName.Text) & "'"
msgtext = ""
Set mrc = executeSQL(txtsql, msgtext)
End If
If mrc.EOF = True Then
MsgBox "用户名出错,请重新输入!", vbOKOnly + vbExclamation, "警告"
txtUserName.SelStart = 0: txtUserName.SelLength = Len(txtUserName.Text)
txtUserName.SetFocus: Exit Sub
Else
If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then 'OK=True
mrc.Close: UserName = Trim(txtUserName.Text)
frmmain.Show: Unload Me
Else
MsgBox "密码出错,请重新输入!", vbOKOnly + vbExclamation, "警告"
txtPassword.Text = "": txtPassword.SetFocus: Exit Sub
End If
End If
miscount = miscount + 1
If miscount = 3 Then
MsgBox "尝试数超3次,您无权使用本程序", vbExclamation, "警告"
End
End If
End Sub