vbKeyEnter不是vb库标准常量,换句话说,如果用户没定义vbKeyEnter,则vbKeyEnter值为零,根本没有这个键值!
专注于为中小企业提供网站建设、网站制作服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业双峰免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了超过千家企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。
您错写的vbKeyEnter应该写成“vbKeyReturn”(13)换行键。
注:建议楼主开启变量检查开关Option Explicit
开启此开关后,若运行楼主贴出来的代码,程序会抛出异常“变量未定义。”
希望对楼主有帮助。
思路很简单:通过textbox的keypress事件来捕获键盘输入,输入输入的是回车键,则调用Button_click事件
代码如下:
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = 13 Then
call Button1_Click()
end if
End Sub
在KeyPress事件中加入代码
if keyascii=13 then
keyascii=0
end if
请各位大侠帮忙.比如 密码框的输入,当输入完用户名和密码后,这时按下回车键就触发确定按钮!!如何编程实现? 满意答案Harrie5级2013-01-20Private Sub form_KeyPress(KeyAscii As Integer) '快捷键,前提form1.keypreview=ture If KeyAscii = 13 Then Call Command1_Click '按回车键(13)执行Command1_Click End If End Sub 补充: Private Sub Form_Load()
Me.KeyPreview = TrueEnd SubPrivate Sub form_KeyPress(KeyAscii As Integer) '快捷键,前提form1.keypreview=tureIf KeyAscii = 13 Then Call Command1_Click '按回车键(13)执行Command1_ClickEnd IfEnd Sub 其他回答(2)这女人不错。
在按下事件中进行响应,在响应的时候进行对按键的顾虑,如果是回车键就可以执行函数,否则按键都无效。
Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Enter Then....................... End If End Sub