大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
通过两个按虚笑备键的时间差来判断。升消
创新互联建站是一家集网站建设,浙江企业网站建设,浙江品牌网站建设,网站定制,浙江网站建设报价,网络营销,网络优化,浙江网站推广为一体的创新建站企业,帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿,时刻以成就客户成长自我,坚持不断学习、思考、沉淀、净化自己,让我们为更多的企业打造出实用型网站。
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
如果是正扰简单的换行用帆渗vbcrlf 或 environment.newline
要获得键举轿旦盘的回车键用api 的
Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
照你说的有两种岁谨情况
1.设置窗体的acceptbutton属性为button1
,就能
使回车相当于乎肢基button1,
但是esc无法设置
2.获取按键,若为keys.enter
,调用button1的事饥弯件处理函数
若为keys。escape
调用button2
思路很简单:通过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