看了很多这方便的解决方案,很多都是一大段代码,版本也有差别,既然有可能别人用得起我也用不起。
我用一种最简单的方法,只要思路对所有人都能用得起。
其实非常简单,就是获取键值,Ctrl+Enter的健值是10,是不是思路一下就通了。以下是源码:
Private Sub 聊天输入框_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 聊天输入框.KeyPress
If Asc(e.KeyChar) = 发送快捷键值 Then
发送消息过程()
End If
End Sub
源内容出处:http://www.int114.com/Article/Html/ArticlePage/2SE/G80/KR_HP_2SEG9U.htm
sendkeys.shend("^{ENTER}") 后面的键可以自己找对照表
如果是CTRL+ENTER的话,SendKeys.Send("^(ENTER)")。