怎样把某一菜单项的快捷键设为ctrl + HV?

Question

ctrl+HV 表示按下ctrl键的同时，先后按下H键和V键。
菜单编辑器的快捷键栏的列表框不支持自定义快捷键，怎么办？

Answer 1

用keydown事件截获~~~~如果用form截获,请把form的KeyPreview 设为true
Dim HotH As BooleanPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If HotH = True And KeyCode = 86 Then
  MsgBox ("您按下了快捷键")
End If
If Shift = 2 And KeyCode = 72 Then HotH = True: L.Caption = "11111"End Sub

Answer 2

哈哈！！
不好意思，把那個l.caption=“lll” 去掉，那是我調試用的~~~~