VB.NET即時窗口快捷鍵

VB.NET即時窗口用于在設計時調(diào)試和計算表達式、執(zhí)行語句、輸出變量值等

創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設,定日企業(yè)網(wǎng)站建設,定日品牌網(wǎng)站建設,網(wǎng)站定制,定日網(wǎng)站建設報價,網(wǎng)絡營銷,網(wǎng)絡優(yōu)化,定日網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強企業(yè)競爭力。可充分滿足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學習、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。

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

vb點虐 組合鍵Ctrl+Enter怎樣發(fā)送

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

我用一種最簡單的方法，只要思路對所有人都能用得起。

其實非常簡單，就是獲取鍵值，Ctrl+Enter的健值是10，是不是思路一下就通了。以下是源碼：

Private Sub 聊天輸入框_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 聊天輸入框.KeyPress

If Asc(e.KeyChar) = 發(fā)送快捷鍵值 Then

發(fā)送消息過程()

End If

End Sub

源內(nèi)容出處：

VB.NET鍵盤Hook成功后攔截不了組合鍵

最簡單的就是把屬性改一下,效果跟無框的差不多。

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle

Me.ControlBox = False

Me.MaximizeBox = False

Me.Text = ""

至于hook的問題,它確實是比系統(tǒng)慢了一步得到消息,當前線程或全局的都一樣,不過你可以先攔截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