VB中关于快捷键的设置

来源：百度知道 编辑：UC知道 时间：2024/06/16 14:53:51
窗体上有一个TEXT控件,只有这一个控件,我主要是为了方便记事
其他的都OK了,就是关于快捷键的问题
快捷键的代码是写在Text1_KeyPress事件中吗?
我希望按下CTRL+ENTER 时,程序就会执行Unload Me命令,怎么弄?
这个快捷键的代码怎么编?看到网上还写了一大篇,连模块都弄了一大堆进去,真有怎么复杂吗?
简单最好,谢谢了
先告诉我当前窗口的热键代码怎么写,就是在TEXT的编辑中,按CTRL+ENTER组合键后,执行Unload Me

不过你能发全那更好,我加分

呵呵，如果只是在自己的程序搞快捷键，好办：

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 10 Then
Unload Me
End If
End Sub

Private Sub Form_Load()
'在激活其它控件的键盘事件之前先激活窗体的键盘事件
Me.KeyPreview = True

...... '你的其它代码

End Sub

现在无论光标在那里，只要按了 CTRL + ENTER 就会退出程序。

确实有这么复杂,但是看你要的是什么类型的热键,如果就是当前窗口热键就很简单,如果是全局的是很复杂的,我整理了一个热键模块,差不多算最简单功能又比较齐全的吧!你如果要可以给你贴出来
这个就简单了看下面的
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And Shift = 2 Then End
End Sub

If KeyAscii = 10 Then
Unload Me
End If
按ctrl+j也会执行unload me

一个TEXT控件
只用这个记事的话
敲回车不能够分行
要能够分行的，要使用RichtextBox控件（富文本控件）
按CTRL+ENTER组合键后,执行Unload Me 的代码：
If KeyAscii = 10 Then
Unload Me
End If