vb设置快捷键
展开全部
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'先设置 Form1.KeyPreview = True
If KeyCode = vbKeyD And Shift = 2 Then'CTRL+D
End 'or Unload Me
End If
End Sub
'先设置 Form1.KeyPreview = True
If KeyCode = vbKeyD And Shift = 2 Then'CTRL+D
End 'or Unload Me
End If
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
最简单的方法是按Ctrl+E打开菜单编辑器,然后设置个菜单项为退出什么的,设置其快捷键为Ctrl+D,勾选掉“可见”属性(如果是“不可见”属性请勾上)。然后运行就可以了。
还有的方法:(代码)
方法①:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Me.KeyPreview = True
If KeyCode = vbKeyD And Shift = 2 Then End
End Sub
方法②:
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Me.KeyPreview = True
If KeyCode = vbKeyD And Shift = 2 Then End
End Sub
方法③:
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 4 Then End
End Sub
方法①②③的灵敏度不一样,③里面的KeyAscii=4是Ctrl+D的Ascii值,是测试出来的。
至于Ascii值测试代码,只要将方法③的语句换为MsgBox KeyAscii就行了
还有的方法:(代码)
方法①:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Me.KeyPreview = True
If KeyCode = vbKeyD And Shift = 2 Then End
End Sub
方法②:
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Me.KeyPreview = True
If KeyCode = vbKeyD And Shift = 2 Then End
End Sub
方法③:
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 4 Then End
End Sub
方法①②③的灵敏度不一样,③里面的KeyAscii=4是Ctrl+D的Ascii值,是测试出来的。
至于Ascii值测试代码,只要将方法③的语句换为MsgBox KeyAscii就行了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
按钮属性里面可以设置快捷键,或者自己捕捉keydown事件。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询