Question

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

比如像QQ一样，文本框激活后，只好按下Enter+Shift,就把文本框中的内容发送出去。

Answer 1

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 = 1 Then
MsgBox "按了 Enter+Shift", vbCritical
'你的发送代码
End If
End Sub

Answer 2

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And Shift = 1 Then
MsgBox "你按下了快捷键 ,发送"
End If
End Sub