vb.net多風(fēng)格按鈕,vb單選按鈕控件

vb.net 如何制作圖標(biāo)按鈕 ？急急急??！在線等！

窗口邊框（FormBorderStyle）設(shè)為None，窗口（WindowState）設(shè)為Maximized，如果想讓窗口背景透明，將窗口背景顏色和TransparencyKey設(shè)為同一種顏色，按鈕用Label（標(biāo)簽）代替，背景設(shè)為Transparent，邊框設(shè)為None，文字位置一般是下中，Label控件支持無邊框。

創(chuàng)新互聯(lián)網(wǎng)站設(shè)計(jì)，為客戶量身定制各類網(wǎng)站建設(shè)業(yè)務(wù)，包括企業(yè)型、電子商務(wù)型、成都響應(yīng)式網(wǎng)站建設(shè)公司、行業(yè)門戶型等各類網(wǎng)站，實(shí)戰(zhàn)經(jīng)驗(yàn)豐富，成功案例眾多。以客戶利益為出發(fā)點(diǎn)，創(chuàng)新互聯(lián)網(wǎng)站制作為客戶規(guī)劃、定制網(wǎng)站制作符合企業(yè)需求、帶有營銷價(jià)值的網(wǎng)絡(luò)建站方案認(rèn)真對(duì)待每一個(gè)客戶，我們不用口頭的語言來吹擂我們的優(yōu)秀，上千多家的成功案例見證著我們的成長。

動(dòng)感效果在鼠標(biāo)事件（MouseDown按下，MouseUp抬起，MouseEnter進(jìn)入，MouseLeave離開）更換指定的圖片；

添加timer控件還可以使用動(dòng)畫

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Me.Label1.Refresh()

End Sub

快捷鍵用熱鍵

RegisterHotKey

函數(shù)功能：該函數(shù)定義一個(gè)系統(tǒng)范圍的熱鍵。

函數(shù)原型：BOOL RegisterHotKey（HWND hWnd，intid，UINT fsModifiers，UINT vk）；

參數(shù)：

hWnd：接收熱鍵產(chǎn)生WM_HOTKEY消息的窗口句柄。若該參數(shù)NULL，傳遞給調(diào)用線程的WM_HOTKEY消息必須在消息循環(huán)中中進(jìn)行處理。

id：定義熱鍵的標(biāo)識(shí)符。調(diào)用線程中的其他熱鍵不能使用同樣的標(biāo)識(shí)符。應(yīng)用功能程序必須定義一個(gè)0X0000-0xBFFF范圍的值。一個(gè)共享的動(dòng)態(tài)鏈接庫（DLL）必須定義一個(gè)0xC000-0xFFFF范圍的值伯GlobalAddAtom函數(shù)返回該范圍）。為了避免與其他動(dòng)態(tài)鏈接庫定義的熱鍵沖突，一個(gè)DLL必須使用GlobalAddAtom函數(shù)獲得熱鍵的標(biāo)識(shí)符。

fsModifoers：定義為了產(chǎn)生WM_HOTKEY消息而必須與由nVirtKey參數(shù)定義的鍵一起按下的鍵。該參數(shù)可以是如下值的組合：

MOD_ALT：按下的可以是任一Alt鍵。MOD_CONTROL：按下的可以是任一Ctrl鍵。

MOD_SHIFT：按下的可以是任一Shift鍵。

MOD_WIN：按下的可以是任一Windows按鍵。

vk：定義熱鍵的虛擬鍵碼。

返回值：若函數(shù)調(diào)用成功，返回一個(gè)非O值。若函數(shù)調(diào)用失敗，則返回值為0。若要獲得更多的錯(cuò)誤信息，可以調(diào)用GetLastError函數(shù)。

備注：當(dāng)某鍵被接下時(shí)，系統(tǒng)在所有的熱鍵中尋找匹配者。一旦找到一個(gè)匹配的熱鍵，系統(tǒng)將把WM_HOTKEY消息傳遞給登記了該熱鍵的線程的消息隊(duì)列。該消息被傳送到隊(duì)列頭部，因此它將在下一輪消息循環(huán)中被移去。該函數(shù)不能將熱鍵同其他線程創(chuàng)建的窗口關(guān)聯(lián)起來。

若為一熱鍵定義的擊鍵己被其他熱鍵所定義，則RegisterHotKey函數(shù)調(diào)用失敗。

若hWnd參數(shù)標(biāo)識(shí)的窗口已用與id參數(shù)定義的相同的標(biāo)識(shí)符登記了一個(gè)熱鍵，則參數(shù)fsModifiers和vk的新值將替代這些參數(shù)先前定義的值。

若設(shè)置MOD_KEYUP位，則當(dāng)發(fā)生鍵被按下或被彈起的事件時(shí)，窗口將發(fā)送WM_HOTKEY消息。

RegisterHotKey可以被用來在線程之間登記熱鍵。

UnregisterHotKey

函數(shù)功能：該函數(shù)釋放調(diào)用線程先前登記的熱鍵。

函數(shù)原型：BOOL UnregisterHotKey（HWND hWnd，int id）；

參數(shù)：

hWnd：與被釋放的熱鍵相關(guān)的窗口句柄。若熱鍵不與窗口相關(guān)，則該參數(shù)為NULL。

id：定義被釋放的熱鍵的標(biāo)識(shí)符。

返回值：若函數(shù)調(diào)用成功，返回值不為0。若函數(shù)調(diào)用失敗，返回值為0。若要獲得更多的錯(cuò)誤信息，可以調(diào)用GetLastError函數(shù)。

1、首先定義所需要用到的常量

如圖所示，在窗體代碼后定義常量和API函數(shù)

代碼如下：

Public Const WM_HOTKEY As Integer = H312

Public Const MOD_ALT As Integer = H1

Public Const MOD_CONTROL As Integer = H2

Public Const MOD_SHIFT As Integer = H4

Public Const GWL_WNDPROC As Integer = (-4)

Public Declare Auto Function RegisterHotKey Lib "user32.dll" Alias "RegisterHotKey" (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Boolean

Public Declare Auto Function UnRegisterHotKey Lib "user32.dll" Alias "UnregisterHotKey" (ByVal hwnd As IntPtr, ByVal id As Integer) As Boolean

下面過程是注冊(cè)Ctrl+T的組合鍵為組合鍵，假如注冊(cè)成功，則返回true，反之注冊(cè)失敗則返回false，我們可以根據(jù)返回的結(jié)果判斷并提醒用戶注冊(cè)的情況。

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

Dim isResult As Boolean

isResult=RegisterHotKey(Handle, 0, MOD_CONTROL, Asc("T")) ’注冊(cè)Ctrl+T的組合鍵

If isResult = False Then

MsgBox("注冊(cè)熱鍵Ctrl+T失敗")

End If

End Sub

[apge]

下面過程為重載WndProc過程，響應(yīng)熱鍵并處理熱鍵，這里是用來隱藏和顯示程序主界面。

Protected Overrides Sub WndProc(ByRef m As Message)

If m.Msg = WM_HOTKEY Then

System.Diagnostics.Process.Start("C:\WINDOWS\system32\freecell.exe")'運(yùn)行當(dāng)空接龍游戲

End If

MyBase.WndProc(m)

End Sub

最后在關(guān)閉窗體的時(shí)候釋放占用的熱鍵，如果前面注冊(cè)失敗的話，則會(huì)出現(xiàn)釋放失敗的結(jié)果。

Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed

Dim isResult As Boolean

isResult=UnRegisterHotKey(Handle, 0)

End Sub

雙擊打開指定的程序

Private Sub Label1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.DoubleClick

System.Diagnostics.Process.Start("C:\WINDOWS\system32\freecell.exe")

End Sub

System.Diagnostics.Process.Start("路徑")打開指定程序

先列出這些吧

vb.NET 生成按鈕

Public Sub GenerateDynamiceButton()

'建立 坐標(biāo)位置的變數(shù), 方便一會(huì)兒安排 自動(dòng)生產(chǎn)的button 的位置

Dim y As Integer = 15

Dim x As Integer = 0

' 用for loop 來建立 這些button 做 18只button

For ButtonIndex As Integer = 0 To 17

' 建造新的 button

Dim MyButton As New Button

'設(shè)定這新的button 的闊度

MyButton.Width = 80

'設(shè)定這新的button 的高度

MyButton.Height = 20

'我們暫定每行有4個(gè)BUTTON, 當(dāng)每行有多個(gè)4個(gè)BUTTON 時(shí)重設(shè)行距, 令到下一行的和這一行的距離有10 個(gè)PIXEL

' 和重設(shè)x 坐標(biāo)` = 0, 令到位置由頭開始

If ButtonIndex Mod 4 = 0 Then

'設(shè)定 TOP 的 坐標(biāo)位置令他可以和上一排的有10個(gè)PIXEL 的距離

y += MyButton.Height + 10

x = 0

End If

'設(shè)定文字 和 位置

' Set the text and set its top and left based on its dimensions and count

MyButton.Text = "My Button" ButtonIndex

'設(shè)定 TOP 的 坐標(biāo)位置

MyButton.Top = y

'下面的CODE 可以令到這個(gè)BUTTON 和另一個(gè)BUTTON 有5個(gè)PIXEL 的距離

MyButton.Left = 26 + (x * (MyButton.Width + 5))

x += 1

'設(shè)定 BUTTON CLICK EVENT

AddHandler MyButton.Click, AddressOf MyButton_Click

'把button 加到 form 中

Me.Controls.Add(MyButton)

Next

End Sub

'處理 button click event

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

Dim btn As Button = sender

'pop up 一個(gè)自己button 的字的message

MsgBox(btn.Text)

vb.net 平面按鈕

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

'在鼠標(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)。

vb.net怎么樣美化按鈕

button 都是可以放圖片作為底圖的 字體顏色也可以更改的或者你知道畫圖的話 也可以把按鈕變成其他形狀

網(wǎng)站欄目：vb.net多風(fēng)格按鈕,vb單選按鈕控件
文章源于：http://m.jiaotiyi.com/article/dsgipge.html