vb编程 文本框 中怎么使用快捷键 ctrl+enter

来源：百度知道 编辑：UC知道 时间：2024/05/18 00:15:56
比如像QQ一样，文本框激活后，只要按下Ctrl+Enter,就把文本框中的内容发送出去。
问题是ctrl键没有ASCII

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
if KeyCode=13 and Shift=2 then '发送
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
'上面语句使窗体先于控件拦截键盘事件，这样只要窗体是活动的，用户无论何时按键，都会响应你设置的快捷键
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'设置快捷键 Enter+Shift 的代码
If KeyCode = 13 And Shift = 2 Then
MsgBox "按了 Ctrl+Enter", vbCritical
'你的发送代码
End If
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And Shift = 2 Then MsgBox ""
End Sub
最佳方案
KeyCode 是按键
Shift 是辅助按键,也就是允许组合的键