VB鍵盤判斷按鍵

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

10多年品牌的成都網(wǎng)站建設(shè)公司,上1000+企業(yè)網(wǎng)站設(shè)計經(jīng)驗.價格合理,可準(zhǔn)確把握網(wǎng)頁設(shè)計訴求.提供定制網(wǎng)站建設(shè)、商城建設(shè)、微信小程序開發(fā)、成都響應(yīng)式網(wǎng)站建設(shè)等服務(wù),我們設(shè)計的作品屢獲殊榮,是您值得信賴的專業(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 程序畫的按鈕如何判斷點擊

Public Class Form1

'/////////////////////動態(tài)添加一個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 '就是這個起的作用,給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 = "動態(tài)添加的按鈕被按下"

End Sub

End Class

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

'要是有一堆類似的玩意兒,定義一個全局數(shù)組變量,哪個按鈕點擊過,就數(shù)組中的第幾號就變?yōu)閠rue,沒點擊過,就是false

'以后隨時看看數(shù)組中有幾個true,不就知道有幾個按鈕被點擊過了么?

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

VB.NET 怎樣識別用戶按下的 Shift 按鍵？？

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

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判斷語句
瀏覽路徑：http://www.rwnh.cn/article36/doohgsg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計公司、移動網(wǎng)站建設(shè)、虛擬主機、服務(wù)器托管、全網(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)