1,451
社区成员
发帖
与我相关
我的任务
分享vb.net 键盘事件
写了一段代码获取键盘F1--F12事件,
Private Sub FormKeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Try
Select Case e.KeyCode
Case Keys.F1
If Not FK_B1.Enabled Then Return
e.Handled = True
FunButtonClick(FK_B1, New System.EventArgs())
Case Keys.F2
If Not FK_B2.Enabled Then Return
e.Handled = True
FunButtonClick(FK_B2, New System.EventArgs())
................
End Select
Catch ex As Exception
MsgBox("ERROR!", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "ERROR")
CloseMe()
End Try
End Sub
(学长说是内置函数,不会有问题.而且在别的界面测试的时候也好用,转到我做的就没反应)
已经把界面属性KeyPreview 设定为了true
实在是不知道问题处在什么地方了,求指教
或者说加什么代码可以解决可以解决
谢谢!
Private Sub FormKeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Try
Select Case e.KeyCode
Case Keys.F1
If Not FK_B1.Enabled Then Return
e.Handled = True
FunButtonClick(FK_B1, New System.EventArgs())
Case Keys.F2
If Not FK_B2.Enabled Then Return
e.Handled = True
FunButtonClick(FK_B2, New System.EventArgs())
................
End Select
Catch ex As Exception
MsgBox("ERROR!", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "ERROR")
CloseMe()
End Try
End Sub
(学长说是内置函数,不会有问题.而且在别的界面测试的时候也好用,转到我做的就没反应)
已经把界面属性KeyPreview 设定为了true
实在是不知道问题处在什么地方了,求指教
或者说加什么代码可以解决可以解决
谢谢!
...全文
请发表友善的回复…
发表回复
cccxxxsssxxxchen 2012-08-01
- 打赏
- 举报
点击按钮完全没有反应,时间也不触发,
cccxxxsssxxxchen 2012-08-01
- 打赏
- 举报
点击按钮完全没有反应,时间也不触发,
FN2023 2012-08-01
- 打赏
- 举报
什么现象 ？
cccxxxsssxxxchen 2012-07-26
- 打赏
- 举报
厄...先自己撞一下
