vbnet按鍵設(shè)置 vbnet輸入輸出方法

vb.net 平面按鈕

本來有個(gè)屬性FlatStyle設(shè)置為Popup基本上能實(shí)現(xiàn)這個(gè)情況，怎奈有個(gè)線框怎么也弄不掉。FlatAppearance.BorderSize設(shè)置為0不起作用，只對(duì)Flat有用，所以用代碼在Flat和Popup兩種風(fēng)格之間切換。

創(chuàng)新互聯(lián)公司是一家成都網(wǎng)站制作、成都網(wǎng)站設(shè)計(jì)、外貿(mào)營(yíng)銷網(wǎng)站建設(shè)，提供網(wǎng)頁設(shè)計(jì)，網(wǎng)站設(shè)計(jì)，網(wǎng)站制作，建網(wǎng)站，按需求定制制作，網(wǎng)站開發(fā)公司，從2013年開始是互聯(lián)行業(yè)建設(shè)者，服務(wù)者。以提升客戶品牌價(jià)值為核心業(yè)務(wù)，全程參與項(xiàng)目的網(wǎng)站策劃設(shè)計(jì)制作，前端開發(fā)，后臺(tái)程序制作以及后期項(xiàng)目運(yùn)營(yíng)并提出專業(yè)建議和思路。

'在鼠標(biāo)進(jìn)入時(shí)設(shè)置為浮雕風(fēng)格

Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter

Button1.FlatStyle = FlatStyle.Popup

End Sub

'離開時(shí)設(shè)置為平面風(fēng)格，這樣像標(biāo)簽一樣只剩下文字，當(dāng)然要FlatAppearance.BorderSize設(shè)置為0

Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave

Button1.FlatStyle = FlatStyle.Flat

End Sub

'另外把UseVisualStyleBackColor 設(shè)置為 False也會(huì)好看一點(diǎn)。

請(qǐng)問VB.net中該如何設(shè)置按鍵輸入與Button有相同的作用？

這個(gè)好辦??！在form1 keydown事件中輸入if e.keycode=keys.F1 then

加語句即可!!

vb.net怎么設(shè)置快捷鍵

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

拖入一個(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

vb.net 如何添加菜單快捷鍵

ToolStripMenuItem.ShortcutKeys 屬性

獲取或設(shè)置與 ToolStripMenuItem 關(guān)聯(lián)的快捷鍵。

使用 ShortcutKeys 屬性可以將組合鍵分配給菜單命令，例如，將 Ctrl+C 分配給“復(fù)制”命令。 您可以使用快捷鍵而不使用訪問鍵，也可以同時(shí)使用快捷鍵和訪問鍵，訪問鍵是菜單或菜單項(xiàng)中與 Alt 鍵一起使用的帶下劃線的字母。 通過在要用于訪問鍵的字母前面鍵入一個(gè)“and”符 ()，可以在代碼中定義訪問鍵。

VB.net 怎么制作按鍵連發(fā)功能

用API函數(shù)，以下代碼Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Const WS_EX_LAYERED = H80000

Private Const GWL_EXSTYLE = (-20)

Private Const LWA_ALPHA = H2

Private Const LWA_COLORKEY = H1Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Const HWND_TOPMosT = -1

Private Const SWP_NOMOVE = H2

Private Const SWP_NosIZE = H1

Private Declare Function GetForegroundWindow Lib "user32" () As Long

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Const WM_KEYDOWN = H100

Const WM_KEYUP = H101

Const WM_CHAR = H102

Const VK_F1 = H70

Private Sub SendF1(hwnd) '調(diào)用這個(gè)過程即可對(duì)目標(biāo)窗體發(fā)送F1鍵

Call PostMessage(hwnd, WM_KEYDOWN, VK_F1, 0)

Call PostMessage(hwnd, WM_KEYUP, VK_F1, 0)

End Sub這里是發(fā)送F1的實(shí)例，各個(gè)按鍵對(duì)應(yīng)的虛擬鍵碼，要到網(wǎng)上查

本文標(biāo)題：vbnet按鍵設(shè)置 vbnet輸入輸出方法
當(dāng)前網(wǎng)址：http://muchs.cn/article20/docceco.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供標(biāo)簽優(yōu)化、小程序開發(fā)、網(wǎng)頁設(shè)計(jì)公司、營(yíng)銷型網(wǎng)站建設(shè)、軟件開發(fā)、建站公司

廣告

聲明：本網(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í)需注明來源： 創(chuàng)新互聯(lián)