vb.netbutton改名由代碼找到button

vb.net教程之vb.net的Button控件

成都創(chuàng)新互聯(lián)專(zhuān)注于大洼網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠(chéng)為您提供大洼營(yíng)銷(xiāo)型網(wǎng)站建設(shè)，大洼網(wǎng)站制作、大洼網(wǎng)頁(yè)設(shè)計(jì)、大洼網(wǎng)站官網(wǎng)定制、微信平臺(tái)小程序開(kāi)發(fā)服務(wù)，打造大洼網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供大洼網(wǎng)站排名全網(wǎng)營(yíng)銷(xiāo)落地服務(wù)。

vb.net的Button控件

Button(按鈕)控件一般接受鼠標(biāo)單擊事件被用來(lái)啟動(dòng)、中斷或結(jié)束一個(gè)進(jìn)程（相當(dāng)于Visual Basic以前版本的CommandButton控件）。單擊Button控件時(shí)將調(diào)用已寫(xiě)入Click事件過(guò)程中的過(guò)程。Button控件在大多數(shù)Visual Basic應(yīng)用程序中都會(huì)用到，用戶可以單擊按鈕執(zhí)行操作。單擊時(shí)，按鈕不僅能執(zhí)行相應(yīng)的操作，而且看起來(lái)與被按下和松開(kāi)一樣。Button控件在工具箱中的圖標(biāo)如圖所示：

1.向窗體添加按鈕

在應(yīng)用程序中很可能要使用多個(gè)按鈕。就象在其他容器控件上繪制按鈕那樣，從工具箱里把Button控件直接拖到窗體上即可。可用鼠標(biāo)調(diào)整按鈕的大小，也可通過(guò)設(shè)置Location（坐標(biāo)，用來(lái)確定控件相對(duì)窗體左上方頂點(diǎn)的位置）和Size（大小，第一個(gè)參數(shù)代表寬度，第二個(gè)參數(shù)代表高度）屬性進(jìn)行調(diào)整。

2.設(shè)置按鈕顯示文本

可用Text屬性改變按鈕上顯示的文本。設(shè)計(jì)時(shí)，可在控件的“屬性窗口”中設(shè)置此屬性。在設(shè)計(jì)時(shí)設(shè)置Text屬性后將動(dòng)態(tài)更新按鈕文本。Text屬性最多包含255個(gè)字符。若標(biāo)題超過(guò)了命令按鈕的寬度，則會(huì)折到下一行。但是，如果控件無(wú)法容納其全部長(zhǎng)度，則標(biāo)題會(huì)被剪切。可以通過(guò)設(shè)置Font屬性改變?cè)诿畎粹o上顯示的字體。

3.創(chuàng)建鍵盤(pán)快捷方式

可通過(guò)Text屬性創(chuàng)建按鈕的訪問(wèn)鍵快捷方式。為此，只需在作為訪問(wèn)鍵的字母前添加一個(gè)連字符（）。例如，要為標(biāo)題“Ok”創(chuàng)建訪問(wèn)鍵，應(yīng)在字母“O”前添中連字符，于是得到“Ok”。運(yùn)行時(shí)，字母“O”將帶下劃線，同時(shí)按Alt+O鍵就可執(zhí)行單擊按鈕程序所執(zhí)行的動(dòng)作。

注意：如果不創(chuàng)建訪問(wèn)鍵，而又要使標(biāo)題中包含連字符，應(yīng)添加兩個(gè)連字符（）。這樣，在標(biāo)題中就只顯示一個(gè)連字符。

4.選定按鈕

運(yùn)行時(shí)，可用鼠標(biāo)或鍵盤(pán)通過(guò)下述方法選定按鈕：

(1)用鼠標(biāo)單擊按鈕；

(2)按Tab鍵，將焦點(diǎn)轉(zhuǎn)移到按鈕上，然后按Enter鍵選定按鈕；

(3)按按鈕的訪問(wèn)鍵（[Alt+帶有下劃線的字母]）。

5.Click事件

運(yùn)行時(shí)單擊按鈕，將觸發(fā)按鈕的Click事件并執(zhí)行寫(xiě)入Click事件過(guò)程中的代碼，同時(shí)，單擊按鈕的過(guò)程也將生成MouseMove、MouseLeave、MouseDown和MouseUp等事件。如果要在這些相關(guān)事件中附加事件過(guò)程，則應(yīng)確保操作不發(fā)生沖突。對(duì)控件的操作不同，這些事件過(guò)程發(fā)生的順序也不同。Button控件的單擊事件發(fā)生順序?yàn)椋?/p>

MouseMove→MouseDown→Click→MouseUp→MouseLeave

注意：如果用戶試圖雙擊按鈕控件，則其中每一次單擊都將分別處理；也即按鈕控件不支持雙擊事件。

6.增強(qiáng)按鈕的視覺(jué)效果

按鈕控件象復(fù)選框和選項(xiàng)按鈕一樣，可通過(guò)Image屬性設(shè)置Button控件上的圖標(biāo)以增強(qiáng)視覺(jué)效果，然后設(shè)置圖標(biāo)（圖片）的屬性：ImageAlign顯示圖標(biāo)（圖片）的位置。通過(guò)設(shè)置ImageIndex（圖片在圖片框中的索引）以及ImageList（圖片框）則可實(shí)現(xiàn)如下的效果，比如要向按鈕添加圖標(biāo)或位圖，或者在單擊、禁止控件時(shí)顯示不同的圖象等等。

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

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

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

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

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)鏈接庫(kù)（DLL）必須定義一個(gè)0xC000-0xFFFF范圍的值伯GlobalAddAtom函數(shù)返回該范圍）。為了避免與其他動(dòng)態(tài)鏈接庫(kù)定義的熱鍵沖突，一個(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)起來(lái)。

若為一熱鍵定義的擊鍵己被其他熱鍵所定義，則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可以被用來(lái)在線程之間登記熱鍵。

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

下面過(guò)程是注冊(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]

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

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

雙擊打開(kāi)指定的程序

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("路徑")打開(kāi)指定程序

先列出這些吧

VB.net如何實(shí)現(xiàn)點(diǎn)擊按鈕兩種圖標(biāo)進(jìn)行互換，就像播放器開(kāi)始暫停一樣?

'在窗體上添加一個(gè)按鈕測(cè)試

Private

m_PlayFlag

As

Boolean

=

False

'是否正在播放

Private

Sub

Button1_Click(ByVal

sender

As

System.Object,

ByVal

e

As

System.EventArgs)

Handles

Button1.Click

If

m_PlayFlag

=

False

Then

Button1.Image

=

Image.FromFile("d:\play.jpg")

'更換為播放圖標(biāo)

m_PlayFlag

=

True

'改變標(biāo)志

Else

Button1.Image

=

Image.FromFile("d:\pause.jpg")

'更換為暫停圖標(biāo)

m_PlayFlag

=

False

'改變標(biāo)志

End

If

End

Sub

Private

Sub

Form1_Load(ByVal

sender

As

System.Object,

ByVal

e

As

System.EventArgs)

Handles

MyBase.Load

'窗體加載時(shí)使用暫停圖標(biāo)

Button1.Image

=

Image.FromFile("d:\pause.jpg")

End

Sub

vb.net圖片按鈕如何實(shí)現(xiàn)?用什么控件?

用Button控件就可以了 修改BackgroundImage 屬性 類(lèi)似這樣

Button1.BackgroundImage = Image.FromFile("C:\Users\hp\Desktop\EMOTICONS\EMOTICON SMILE.png")

如果要實(shí)現(xiàn)動(dòng)態(tài)效果的話需要2個(gè)圖片當(dāng)Button1_MouseHover事件時(shí)也就是鼠標(biāo)停留在button上的時(shí)候顯示一個(gè)圖片,當(dāng)Button1_MouseLeave事件時(shí),也就是鼠標(biāo)離開(kāi)button時(shí)顯示原來(lái)的圖片,這樣就是動(dòng)態(tài)的了.

當(dāng)前標(biāo)題：vb.net按鈕圖標(biāo) vb按鈕加ico圖標(biāo)
標(biāo)題鏈接：http://vcdvsql.cn/article6/doppoig.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站建設(shè)、全網(wǎng)營(yíng)銷(xiāo)推廣、網(wǎng)站內(nèi)鏈、定制開(kāi)發(fā)、網(wǎng)站排名、微信公眾號(hào)

廣告

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