VB點虐 怎么制作按鍵連發功能

用API函數，以下代碼Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

八宿ssl適用于網站、小程序/APP、API接口等需要進行數據傳輸應用場景，ssl證書未來市場廣闊！成為創新互聯的ssl證書銷售渠道，可以享受市場價格4-6折優惠！如果有意向歡迎電話聯系或者加微信：18980820575（備注：SSL證書合作）期待與您的合作！

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Const WS_EX_LAYERED = H80000

Private Const GWL_EXSTYLE = (-20)

Private Const LWA_ALPHA = H2

Private Const LWA_COLORKEY = H1Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Const HWND_TOPMosT = -1

Private Const SWP_NOMOVE = H2

Private Const SWP_NosIZE = H1

Private Declare Function GetForegroundWindow Lib "user32" () As Long

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Const WM_KEYDOWN = H100

Const WM_KEYUP = H101

Const WM_CHAR = H102

Const VK_F1 = H70

Private Sub SendF1(hwnd) '調用這個過程即可對目標窗體發送F1鍵

Call PostMessage(hwnd, WM_KEYDOWN, VK_F1, 0)

Call PostMessage(hwnd, WM_KEYUP, VK_F1, 0)

End Sub這里是發送F1的實例，各個按鍵對應的虛擬鍵碼，要到網上查

VB.NET即時窗口快捷鍵

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

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

如何用VB.NET設置菜單項的熱鍵

不清楚熱鍵和快捷鍵是什么區別

1.如果你是指Chrl+S這樣的快捷鍵，可以設置ShortCutKeys屬性，屬性窗口就有可視化編輯器。

2.如果你是指"保存(S)"，其中s有下劃線這樣的用Alt+字母來訪問的設置，應該在菜單項的Text屬性中使用符號。符號后面的字母將被作為快速訪問字符，顯示的時候不會被顯示出來，而字母會自動加上下劃線。比如"保存(s)"。

3.和選中標記有關的屬性有兩個

CheckOnClick 在菜單項上單擊時是否改變Checked屬性

Checked 設置/獲取 菜單項是否被選中

4.設置菜單項的Enabled屬性為False