執(zhí)行鍵盤(pán)事件方法如下:
網(wǎng)站建設(shè)哪家好,找創(chuàng)新互聯(lián)建站!專注于網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開(kāi)發(fā)、重慶小程序開(kāi)發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了托克托免費(fèi)建站歡迎大家使用!
第一步,點(diǎn)擊VS工具。
第二步,打開(kāi)后,新建一個(gè)Windows窗體應(yīng)用程序。
第三步,請(qǐng)看右下方Form的屬性欄。
第四步,雙擊KeyDown。
第五步,輸入提示按鍵代碼,如圖所示。
第六步,再次輸入代碼,設(shè)置屬性KeyPreview為true。
第七步,運(yùn)行程序,按下舉例F5,則會(huì)彈出提示,表明已經(jīng)成功獲。
1.定義變量記錄鍵是否被按下,按下的累計(jì)時(shí)間
Dim?按下A鍵??As?Boolean
Dim?按下A鍵時(shí)間?As?Integer
2.添加一個(gè)TextBox1用于接收鍵盤(pán)事件,或者直接用窗體的鍵盤(pán)事件(確保KeyPreview為True)
在KeyDown事件中添加如下代碼:
If?e.Keycode?=?keys.A?Then?按下A鍵?=?True
在KeyUp事件中添加如下代碼:
If?e.Keycode?=?keys.A?Then?按下A鍵?=?False
3.添加一個(gè)Timer1控件,調(diào)整Timer1的Interval來(lái)決定按鍵頻率,記得要把Timer1.Enable開(kāi)啟
在Tick事件中添加如下代碼:
If?按下A鍵?=?True
按下A鍵時(shí)間+=1
Call?音量設(shè)置(按下A鍵時(shí)間?*?10)
End?If
PS:?按下的秒數(shù) =?按下A鍵時(shí)間*Timer1.Interval / 1000
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
If sender Is Me Then MsgBox(e.KeyData.ToString vbCrLf sender.ToString)
End Sub
Private Sub Button1_KeyDown(sender As Object, e As KeyEventArgs) Handles Button1.KeyDown
If sender Is Me Then MsgBox(e.KeyData.ToString vbCrLf sender.ToString)
End Sub
這樣就行了,第一個(gè)過(guò)程if語(yǔ)句結(jié)果為真,第二個(gè)過(guò)程if語(yǔ)句結(jié)果為假,你的所有問(wèn)題都可通過(guò)if判斷語(yǔ)句解決,msgbox代碼只是做個(gè)測(cè)試,實(shí)際為你響應(yīng)form鍵盤(pán)事件的代碼。
1、將窗口的KeyPreview屬性設(shè)置為True
Me.KeyPreview = True
2、處理窗口的KeyDown事件
Sub MainFormKeyDown(sender As Object, e As KeyEventArgs)
Select Case e.KeyCode
Case Keys.Escape
Me.button1.PerformClick
Case Keys.Enter
Me.button2.PerformClick
End Select
End Sub
1.
窗體有一個(gè)屬性
PressView(在
雜項(xiàng)
的倒數(shù)第二個(gè))
;
2.
這個(gè)屬性可以指示:是否從窗體接收鍵盤(pán)的輸入
3.
將其設(shè)置為
TRUE
,窗體就可以接受鍵盤(pán)事件了
4.
然后通過(guò)委托
或者
調(diào)用子控件里面的函數(shù)過(guò)程
就可以實(shí)現(xiàn)鍵盤(pán)事件參數(shù)的傳遞,完成
你所需要的
功能了!
5.
望采納~
窗體內(nèi)檢測(cè)按鍵
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.KeyPreview = True '注冊(cè)窗體的鍵盤(pán)事件
End Sub
在TextBox1中顯示按鍵代碼
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
TextBox1.Text = Str(e.KeyCode) + vbCrLf
End Sub
窗體沒(méi)有焦點(diǎn),用窗體監(jiān)測(cè)鍵盤(pán)輸入緩沖區(qū)可以解決,但這似乎可以用于監(jiān)測(cè)用戶輸入內(nèi)容,不要用于非法目的呀!所以就是知道也不會(huì)告訴你的。