vb.net的，按鍵連續(xù)觸發(fā)事件，比如，按著鍵不放，音量增大。

1.定義變量記錄鍵是否被按下，按下的累計時間

專注于為中小企業(yè)提供成都做網(wǎng)站、網(wǎng)站建設(shè)服務(wù),電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業(yè)濮陽免費做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動了近千家企業(yè)的穩(wěn)健成長，幫助中小企業(yè)通過網(wǎng)站建設(shè)實現(xiàn)規(guī)模擴充和轉(zhuǎn)變。

Dim?按下A鍵??As?Boolean

Dim?按下A鍵時間?As?Integer

2.添加一個TextBox1用于接收鍵盤事件，或者直接用窗體的鍵盤事件(確保KeyPreview為True)

在KeyDown事件中添加如下代碼：

If?e.Keycode?=?keys.A?Then?按下A鍵?=?True

在KeyUp事件中添加如下代碼：

If?e.Keycode?=?keys.A?Then?按下A鍵?=?False

3.添加一個Timer1控件，調(diào)整Timer1的Interval來決定按鍵頻率，記得要把Timer1.Enable開啟

在Tick事件中添加如下代碼：

If?按下A鍵?=?True

按下A鍵時間+=1

Call?音量設(shè)置(按下A鍵時間?*?10)

End?If

PS:?按下的秒數(shù) =?按下A鍵時間*Timer1.Interval / 1000

VB.net的快捷鍵

1． F12：轉(zhuǎn)到定義；Shift+F12：轉(zhuǎn)到引用

2． F5：啟動；Ctrl+F5：開始執(zhí)行（不調(diào)試）；Shift+F5：停止調(diào)試

3． F7：查看代碼；Shift+F7：查看視圖設(shè)計器

4． Ctrl+Alt+L：解決方案資源管理器

5． Ctrl+Alt+J：對象瀏覽器

6． F4：顯示屬性窗口

7． Ctrl+Alt+X：工具箱

8． Ctrl+Alt+C類視圖

9． Alt+Enter：查看屬性

10．F10：逐過程調(diào)試

11．F11：逐語句調(diào)試

12．Ctrl+B：新斷點

13．Ctrl+Shift+F9：清除所有斷點

14．Ctrl+Shift+B生成解決方案

15．Shift+Alt+Enter：全屏

16．大綱顯示：Ctrl+M, Ctrl+M：切換大綱顯示展開；Ctrl+M, Ctrl+L：切換所有大綱顯示；Ctrl+M,Crtl+P停止大綱顯示；Ctrl+M, Ctrl+O：折疊到定義

17．智能感知：Ctrl＋J：列出成員；Ctrl+Shift+空格：參數(shù)信息； Ctrl+K,Ctrl+I：快速信息；Alt+右箭頭鍵：完成單詞

VB.net 怎么制作按鍵連發(fā)功能

用API函數(shù)，以下代碼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

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) '調(diào)用這個過程即可對目標(biāo)窗體發(fā)送F1鍵

Call PostMessage(hwnd, WM_KEYDOWN, VK_F1, 0)

Call PostMessage(hwnd, WM_KEYUP, VK_F1, 0)

End Sub這里是發(fā)送F1的實例，各個按鍵對應(yīng)的虛擬鍵碼，要到網(wǎng)上查

標(biāo)題名稱：包含vb.net按鍵同時的詞條
分享鏈接：http://aaarwkj.com/article18/dssghdp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計公司、面包屑導(dǎo)航、移動網(wǎng)站建設(shè)、軟件開發(fā)、定制網(wǎng)站、企業(yè)網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)