十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
十年的紫阳网站建设经验,针对设计、前端、开发、售后、文案、推广等六对一服务,响应快,48小时及时工作处理。营销型网站的优势是能够根据用户设备显示端的尺寸不同,自动调整紫阳建站的显示方式,使网站能够适用不同显示终端,在浏览器中调整网站的宽度,无论在任何一种浏览器上浏览网站,都能展现优雅布局与设计,从而大程度地提升浏览体验。成都创新互联公司从事“紫阳网站设计”,“紫阳网站推广”以来,每个客户项目都认真落实执行。
If e.KeyCode = Keys.Enter Then....................... End If End Sub
照你说的有两种情况
1.设置窗体的acceptbutton属性为button1 ,就能 使回车相当于button1,
但是esc无法设置
2.获取按键,若为keys.enter ,调用button1的事件处理函数
若为keys。escape 调用button2
通过两个按键的时间差来判断。
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Static Last As Double = -1
If e.KeyChar = vbCr Then
If Microsoft.VisualBasic.Timer() - Last 0.3 Then
Debug.Print("enter")
Last = -1
Else
Last = Microsoft.VisualBasic.Timer()
End If
End If
End Sub
思路很简单:通过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