VB鍵盤判斷按鍵

如果是在自己的程序中，可以利用自身的按鍵事件，如果是全局鍵盤，那就要用到鍵盤hook技術(shù)了，比較復(fù)雜。

10多年品牌的成都網(wǎng)站建設(shè)公司,上1000+企業(yè)網(wǎng)站設(shè)計(jì)經(jīng)驗(yàn).價(jià)格合理,可準(zhǔn)確把握網(wǎng)頁(yè)設(shè)計(jì)訴求.提供定制網(wǎng)站建設(shè)、商城建設(shè)、微信小程序開發(fā)、成都響應(yīng)式網(wǎng)站建設(shè)等服務(wù),我們?cè)O(shè)計(jì)的作品屢獲殊榮,是您值得信賴的專業(yè)網(wǎng)站制作公司。

Private Sub Form_Load()

Label1.Caption = ""

Text1 = ""

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then '回車鍵

Label1.Caption = 1

ElseIf KeyAscii = 8 Then '退格鍵

Label1.Caption = 2

Else '其他按鍵

Label1.Caption = 3

End If

Me.Cls

Print KeyAscii

End Sub

vb.net 程序畫的按鈕如何判斷點(diǎn)擊

Public Class Form1

'/////////////////////動(dòng)態(tài)添加一個(gè)btn/////////////////////////

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim btn As New Button

btn.Width = 100 : btn.Text = "New created btn"

AddHandler btn.Click, AddressOf btn_Click '就是這個(gè)起的作用,給btn添加click事件

Me.Controls.Add(btn)

End Sub

'/////////////////////btn的響應(yīng)事件(Click事件響應(yīng))/////////////////////////

Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Me.Text = "動(dòng)態(tài)添加的按鈕被按下"

End Sub

End Class

'/////////////////////////

'要是有一堆類似的玩意兒,定義一個(gè)全局?jǐn)?shù)組變量,哪個(gè)按鈕點(diǎn)擊過(guò),就數(shù)組中的第幾號(hào)就變?yōu)閠rue,沒點(diǎn)擊過(guò),就是false

'以后隨時(shí)看看數(shù)組中有幾個(gè)true,不就知道有幾個(gè)按鈕被點(diǎn)擊過(guò)了么?

'我是這么想的啦,可能有些小兒科^-^

VB.NET 怎樣識(shí)別用戶按下的 Shift 按鍵？？

這就要調(diào)用API函數(shù)了 給你代碼吧 記得給點(diǎn)分啊

Private Const KeysM = H8000

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

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

Me.Text = e.KeyValue

If e.KeyValue = Keys.ShiftKey And GetAsyncKeyState(160) And KeysM Then

MsgBox("你按的是左SHIFT")

ElseIf e.KeyValue = Keys.ShiftKey And GetAsyncKeyState(161) And KeysM Then

MsgBox("你按的是右SHIFT")

End If

End Sub

標(biāo)題名稱：vb.net判斷制定按鍵 VB判斷語(yǔ)句
瀏覽路徑：http://chinadenli.net/article36/doohgsg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計(jì)公司、移動(dòng)網(wǎng)站建設(shè)、虛擬主機(jī)、服務(wù)器托管、全網(wǎng)營(yíng)銷推廣、微信小程序

廣告

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