VB.NET即时窗口快捷键

VB.NET即时窗口用于在设计时调试和计算表达式、执行语句、输出变量值等

创新互联公司是一家集网站建设,定日企业网站建设,定日品牌网站建设,网站定制,定日网站建设报价,网络营销,网络优化,定日网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

快捷键是：CTRL+G 或者按 CTRL+ALT+I

vb点虐 组合键Ctrl+Enter怎样发送

看了很多这方便的解决方案，很多都是一大段代码，版本也有差别，既然有可能别人用得起我也用不起。

我用一种最简单的方法，只要思路对所有人都能用得起。

其实非常简单，就是获取键值，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

源内容出处：

VB.NET键盘Hook成功后拦截不了组合键

最简单的就是把属性改一下,效果跟无框的差不多。

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle

Me.ControlBox = False

Me.MaximizeBox = False

Me.Text = ""

至于hook的问题,它确实是比系统慢了一步得到消息,当前线程或全局的都一样,不过你可以先拦截Windows键或者Up键其中一键来阻拦组合键。

VB.NET组合键

直接设置貌似不行 可以在窗体的 KeyDown事件里面写Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MsgBox("快捷键设置成功")

End Sub

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

If e.Shift And e.KeyCode = Keys.C Then

Button1_Click(sender, e)

End If

End Sub

End Class