十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
因为你用的是H,是十六进制,你可以写成
成都创新互联公司专注为客户提供全方位的互联网综合服务,包含不限于成都网站建设、成都做网站、沙市网络推广、重庆小程序开发、沙市网络营销、沙市企业策划、沙市品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;成都创新互联公司为所有大学生创业者提供沙市建站搭建服务,24小时服务热线:18982081108,官方网址:www.cdcxhl.com
Const VK_ALT=18
或者
Const VK_ALT=H12
十六进制的H12就是十进制的18。
'----------------------edit by yiensoha------2017.05.02-----------------------------------------
Private Sub txtMain_KeyDown(sender As Object, e As KeyEventArgs) Handles txtMain.KeyDown
If (e.KeyCode = 9) Then '表示tab键按下
txtMain.Text = "keytab"
End If
End Sub
在这里一定要注意:如果你要识别tab键,那么必须保证所有控件的tabstop属性均为false,否则的话,tab键会当做控件之间的跳转功能,而不是作为tab键按下。
If e.Shift And e.KeyCode = Keys.Tab Then
MsgBox("Is ""Shift+Tab""")
End If