VB鍵盤判斷按鍵

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

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

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

標題名稱：vb.net判斷制定按鍵 VB判斷語句
瀏覽路徑：http://jinyejixie.com/article36/doohgsg.html

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

廣告

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