vb.net 如何制作圖標按鈕 ？急急急！！在線等！

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

成都創新互聯公司專注于企業全網營銷推廣、網站重做改版、邕寧網站定制設計、自適應品牌網站建設、成都h5網站建設、商城網站建設、集團公司官網建設、成都外貿網站建設公司、高端網站制作、響應式網頁設計等建站業務，價格優惠性價比高，為邕寧等各大城市提供網站開發制作服務。

動感效果在鼠標事件（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

函數功能：該函數定義一個系統范圍的熱鍵。

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

參數：

hWnd：接收熱鍵產生WM_HOTKEY消息的窗口句柄。若該參數NULL，傳遞給調用線程的WM_HOTKEY消息必須在消息循環中中進行處理。

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

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

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

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

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

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

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

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

若為一熱鍵定義的擊鍵己被其他熱鍵所定義，則RegisterHotKey函數調用失敗。

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

若設置MOD_KEYUP位，則當發生鍵被按下或被彈起的事件時，窗口將發送WM_HOTKEY消息。

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

UnregisterHotKey

函數功能：該函數釋放調用線程先前登記的熱鍵。

函數原型：BOOL UnregisterHotKey（HWND hWnd，int id）；

參數：

hWnd：與被釋放的熱鍵相關的窗口句柄。若熱鍵不與窗口相關，則該參數為NULL。

id：定義被釋放的熱鍵的標識符。

返回值：若函數調用成功，返回值不為0。若函數調用失敗，返回值為0。若要獲得更多的錯誤信息，可以調用GetLastError函數。

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

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

代碼如下：

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，我們可以根據返回的結果判斷并提醒用戶注冊的情況。

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過程，響應熱鍵并處理熱鍵，這里是用來隱藏和顯示程序主界面。

Protected Overrides Sub WndProc(ByRef m As Message)

If m.Msg = WM_HOTKEY Then

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

End If

MyBase.WndProc(m)

End Sub

最后在關閉窗體的時候釋放占用的熱鍵，如果前面注冊失敗的話，則會出現釋放失敗的結果。

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程序最小化到托盤圖標區

VB.NET編寫托盤程序

托盤程序作為一類特殊的窗體，其快捷圖標顯示在

系統托盤

中，窗體本身則隱藏不可見。在.NET之前版本的VB中編寫托盤程序是十分困難的，但是VB.NET提供的新的NotifyIcon組件卻使VB初學者也能輕松編寫一個這樣的程序：

新建“Windows應用程序”，設置主窗體Opacity屬性為0，FormBorderStyle屬性為None，ShowInTaskbar屬性為

False，這樣窗體將在啟動后隱藏。在窗體上放置一個NotifyIcon組件NotifyIcon1，一個ContextMenu（彈出菜單）組件

ContextMenu1，并根據需要為ContextMenu1添加菜單項。

設置NotifyIcon1的ICON屬性，這個圖標就是應用程序出現在系統托盤中的快捷圖標；設置NotifyIcon1的Text屬性為“VB.NET托盤程序”，這就是鼠標移動到托盤圖標時彈出的文字說明；設置NotifyIcon1的ContextMenu屬性為ContextMenu1，也就是右鍵單擊快捷圖標時的彈出菜單為

ContextMenu1。OK，按F5運行！

幾乎不用編寫代碼，一個托盤程序就這樣輕松實現了。

vb.net 在Win窗體中如何實現圖標或按鈕的拖放功能。

VB.NET做的窗體托盤，可以把窗體縮小到任務欄圖標，點右鍵可以觸發事件-VB.NET do form tray can form down to the taskbar icon, point right to trigger events

VB.net如何實現點擊按鈕兩種圖標進行互換，就像播放器開始暫停一樣?

'在窗體上添加一個按鈕測試

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")

'更換為播放圖標

m_PlayFlag

=

True

'改變標志

Else

Button1.Image

=

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

'更換為暫停圖標

m_PlayFlag

=

False

'改變標志

End

If

End

Sub

Private

Sub

Form1_Load(ByVal

sender

As

System.Object,

ByVal

e

As

System.EventArgs)

Handles

MyBase.Load

'窗體加載時使用暫停圖標

Button1.Image

=

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

End

Sub

VB.NET 窗體圖標和任務欄圖標設置問題

任務欄圖標就是窗體的ICON屬性設置的圖標，和標題欄的圖標是完全一樣的。如果你想做的不一樣，那就用無邊框窗體，自制一個標題欄

VB.NET中,代碼中改變窗體的ICON屬性

Dim ico As New Icon("D:\Temp\A.ico",16,16)

把窗體的圖標設置為ico即可

分享題目：vb.net窗體圖標 vb窗體顯示
本文路徑：http://www.yijiale78.com/article18/hhcpdp.html

成都網站建設公司_創新互聯，為您提供做網站、商城網站、品牌網站建設、企業建站、小程序開發、品牌網站制作

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯