vb.net中 如何改變button控件的形狀

vb.net中控件都是矩形的，如果一定要看起來是其他形狀的，只能用背景圖片，一般要三個背景圖片，正常時候、鼠標(biāo)移上時候、按下時候的。分別在按鈕的四個事件：MouseHover MouseLeave MouseDown MouseUp的時候更換成相應(yīng)的背景圖片

網(wǎng)站建設(shè)哪家好，找創(chuàng)新互聯(lián)！專注于網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、小程序開發(fā)、集團企業(yè)網(wǎng)站建設(shè)等服務(wù)項目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了舞陽免費建站歡迎大家使用！

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

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

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

添加timer控件還可以使用動畫

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ù)定義一個系統(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)中中進行處理。

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

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

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

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

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

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

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

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

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

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

若設(shè)置MOD_KEYUP位，則當(dāng)發(fā)生鍵被按下或被彈起的事件時，窗口將發(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ù)調(diào)用成功，返回值不為0。若函數(shù)調(diào)用失敗，返回值為0。若要獲得更多的錯誤信息，可以調(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

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

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")) ’注冊Ctrl+T的組合鍵

If isResult = False Then

MsgBox("注冊熱鍵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")'運行當(dāng)空接龍游戲

End If

MyBase.WndProc(m)

End Sub

最后在關(guān)閉窗體的時候釋放占用的熱鍵，如果前面注冊失敗的話，則會出現(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的按鈕形狀、窗口形狀

使用SetWindowRgn函數(shù)可以設(shè)置窗體形狀，定義如下：

Declare Function SetWindowRgn Lib "user32" Alias "SetWindowRgn" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

hWnd既可以是窗體的句柄，又可以是按鈕的句柄

hRgn是要用下述幾個函數(shù)設(shè)置的

bRedraw設(shè)置為True就行了

在設(shè)置之前首先要設(shè)置區(qū)域句柄（0為整個窗體）：

CreateRectRgn、CreateEllipticRgn、CreatePolygonRgn等可以創(chuàng)建各種形狀

然后用CombineRgn函數(shù)合并形狀

例如（真對不起，我遇到麻煩了）：

Option Explicit

Private Type POINTAPI

x As Long

y As Long

End Type

Dim XY() As POINTAPI

'創(chuàng)建一個由一系列點圍成的區(qū)域。windows在需要時自動將最后點與第一點相連以封閉多邊形

Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long

'創(chuàng)建一個由點X1，Y1和X2，Y2描述的矩形區(qū)域

Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

'創(chuàng)建一個橢圓，該橢圓與X1，Y1和X2，Y2坐標(biāo)點確定的矩形內(nèi)切

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

'API函數(shù)中的一個。本函數(shù)允許您改變窗口的區(qū)域。 _

通常所有窗口都是矩形的——窗口一旦存在就含有一個矩形區(qū)域。本函數(shù)允許您放棄該區(qū)域。這意味著您可以創(chuàng)建圓的、星形的窗口，也可以將它分為兩個或許多部分——實際上可以是任何形狀。為區(qū)域指定的所有坐標(biāo)都以窗口坐標(biāo)（不是客戶坐標(biāo)）表示，它們以整個窗口（包括標(biāo)題欄和邊框）的左上角為起點

Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

'將兩個區(qū)域組合為一個新區(qū)域

Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long

'nCombineMode 的可能值

Private Const RGN_AND As Long = 1

Private Const RGN_COPY As Long = 5

Private Const RGN_DIFF As Long = 4

Private Const RGN_OR As Long = 2

Private Const RGN_XOR As Long = 3

Private Sub Form_Load()

Dim hRgn As Long, h1 As Long, h2 As Long

Dim lRes As Long

ReDim XY(7) As POINTAPI 'T shape has 8 points

Me.ScaleMode = vbPixels

With Me

XY(0).x = 0

XY(0).y = 0

XY(1).x = .ScaleWidth

XY(1).y = 0

XY(2).x = .ScaleWidth

XY(2).y = .ScaleHeight / 2

XY(3).x = .ScaleWidth - (.ScaleWidth / 3)

XY(3).y = .ScaleHeight / 2

XY(4).x = .ScaleWidth - (.ScaleWidth / 3)

XY(4).y = .ScaleHeight

XY(5).x = .ScaleWidth / 3

XY(5).y = .ScaleHeight

XY(6).x = .ScaleWidth / 3

XY(6).y = .ScaleHeight / 2

XY(7).x = 0

XY(7).y = .ScaleHeight / 2

End With

h1 = CreatePolygonRgn(XY(0), 8, 2)

h2 = CreateRectRgn(XY(5).x, 0, XY(3).x, 50)

' 這個語句我調(diào)試半天不知為什么不成功

' 這個要靠你自己研究了……

'Call CombineRgn(hRgn, h1, h2, RGN_OR)

lRes = SetWindowRgn(Me.hWnd, h1, True)

End Sub

Private Sub Form_Click()

Unload Me

End Sub

VB中.怎么設(shè)置按鈕的自定義形狀哦

我給你幾種我的做法吧

其實vb本身的按鈕就可以設(shè)置為圖片的 這樣你就可以在上面添加些圖片 能起到一定的美化作用

具體做法這樣 添加一個按鈕控件到窗體上 然后選擇按鈕的style屬性設(shè)置為1 然后到downpicture就可以添加圖片了

還有種方法就是如果你希望你的按鈕在按下時候能動 哪就直接添加個Image控件就型了 按鈕觸發(fā)的代碼就寫在Image的click事件里就可以替代按鈕了 再添加2個Picture控件 然后在Image的MouseMove或者MouseMove里寫上裝載Picture里的圖片 這樣就可以在你移動鼠標(biāo)時圖片就動了 當(dāng)然你還得編寫當(dāng)鼠標(biāo)離開它的時把圖片重新裝載回來 否則就停哪不動了

只要你自己肯動腦子 其實都很簡單的 不一定非得用那個按鈕控件的啊 實在不行可以找些現(xiàn)成的按鈕控件也可以

分享文章：關(guān)于vB.Net異形按鈕的信息
網(wǎng)址分享：http://chinadenli.net/article37/dsecpsj.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供Google、搜索引擎優(yōu)化、App設(shè)計、關(guān)鍵詞優(yōu)化、網(wǎng)站設(shè)計公司、響應(yīng)式網(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)