UC知道vb编程 文本框 中怎么使用快捷键
来源：百度知道 编辑：UC知道 时间：2024/05/24 00:45:57
比如像QQ一样，文本框激活后，只好按下Enter+Shift,就把文本框中的内容发送出去。
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And Shift = 1 Then
MsgBox "你按下了快捷键 ,发送"
End If
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 = 1 Then
MsgBox "按了 Enter+Shift", vbCritical
'你的发送代码
End If
End Sub