VB 快捷键的操作问题

来源：百度知道 编辑：UC知道 时间：2024/07/03 03:23:06
在VB设计聊天工具中，怎么做到类似QQ聊天软件中的快捷键ctrl+enter 达到发送消息到对话框的功能

假设你的工具的输入框是一个textbox1,
代码：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And Shift = 2 Then
MsgBox "啊 "
End If
End Sub
你可以看下效果。