新建一個(gè)Form1把Form1的KeyPreview改成True

創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供灤南網(wǎng)站建設(shè)、灤南做網(wǎng)站、灤南網(wǎng)站設(shè)計(jì)、灤南網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)與制作、灤南企業(yè)網(wǎng)站模板建站服務(wù),10多年灤南做網(wǎng)站經(jīng)驗(yàn),不只是建網(wǎng)站,更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。
拖入一個(gè)Button1到Form1上面
然后加入以下代碼
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
If e.KeyData = (Keys.Alt Or Keys.G) Then
Button1.PerformClick() '或者用Button1_Click(Nothing, New EventArgs)
'快捷鍵Alt+G觸發(fā)Button1_Click()事件。
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Button1.Size = New Size(180, 23)
Button1.Text = "我被局部快捷鍵給召喚了~"
End Sub
'先建立一個(gè)注冊表鍵;此列注冊表鍵名為TestKey。
My.Computer.Registry.CurrentUser.CreateSubKey("TestKey")
'定義注冊表鍵路徑,并賦值于注冊表鍵;此列路徑為HKEY_CURRENT_USER\TestKey,賦值為 "Test Value"
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\TestKey", "TestValue", "This is a test value.")
左鍵是1
右鍵是2
中鍵是4
可以組合相加
左右同時(shí)就是3,也可以寫做:vbleftbutton+vbrightbutton
VB.NET 參考代碼:
Imports?Microsoft.Win32
Public?Class?Form1
Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click
Dim?regKey?As?RegistryKey?=?Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Windows",?False)
For?Each?strSubKeyName?In?regKey.GetValueNames()
If?regKey.GetValueKind(strSubKeyName)?=?RegistryValueKind.String?Then
MessageBox.Show(regKey.GetValue(strSubKeyName))
'?regKey.SetValue(strSubKeyName,?"修改后的值")
End?If
Next
End?Sub
End?Class
新聞標(biāo)題:vb.net鍵鍵值,vb中數(shù)字鍵
網(wǎng)站地址:http://chinadenli.net/article28/dsidocp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供電子商務(wù)、微信公眾號、網(wǎng)站設(shè)計(jì)、做網(wǎng)站、服務(wù)器托管、商城網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)