vb.net安裝后自帶非常多的圖標,我的是vb2008,其路徑為:C:\Program Files\Microsoft Visual Studio 9.0\Common7\VS2008ImageLibrary\2052\VS2008ImageLibrary
創(chuàng)新互聯(lián)公司是一家專注于成都做網(wǎng)站、網(wǎng)站制作與策劃設計,龍港網(wǎng)站建設哪家好?創(chuàng)新互聯(lián)公司做網(wǎng)站,專注于網(wǎng)站建設十年,網(wǎng)設計領域的專業(yè)建站公司;建站業(yè)務涵蓋:龍港等地區(qū)。龍港做網(wǎng)站價格咨詢:18980820575
自己解壓VS2008ImageLibrary后就能看到大量的常用圖標
任務欄圖標就是窗體的ICON屬性設置的圖標,和標題欄的圖標是完全一樣的。如果你想做的不一樣,那就用無邊框窗體,自制一個標題欄
VB.NET編寫托盤程序
托盤程序作為一類特殊的窗體,其快捷圖標顯示在
系統(tǒng)托盤
中,窗體本身則隱藏不可見。在.NET之前版本的VB中編寫托盤程序是十分困難的,但是VB.NET提供的新的NotifyIcon組件卻使VB初學者也能輕松編寫一個這樣的程序:
新建“Windows應用程序”,設置主窗體Opacity屬性為0,F(xiàn)ormBorderStyle屬性為None,ShowInTaskbar屬性為
False,這樣窗體將在啟動后隱藏。在窗體上放置一個NotifyIcon組件NotifyIcon1,一個ContextMenu(彈出菜單)組件
ContextMenu1,并根據(jù)需要為ContextMenu1添加菜單項。
設置NotifyIcon1的ICON屬性,這個圖標就是應用程序出現(xiàn)在系統(tǒng)托盤中的快捷圖標;設置NotifyIcon1的Text屬性為“VB.NET托盤程序”,這就是鼠標移動到托盤圖標時彈出的文字說明;設置NotifyIcon1的ContextMenu屬性為ContextMenu1,也就是右鍵單擊快捷圖標時的彈出菜單為
ContextMenu1。OK,按F5運行!
幾乎不用編寫代碼,一個托盤程序就這樣輕松實現(xiàn)了。
''' summary
''' Returns an icon for a given file - indicated by the name parameter.
''' /summary
''' param name="name"Pathname for file./param
''' param name="size"Large or small/param
''' param name="linkOverlay"Whether to include the link icon/param
''' returnsSystem.Drawing.Icon/returns
Public Shared Function GetFileIcon(ByVal name As String, ByVal size As IconSize, ByVal linkOverlay As Boolean) As System.Drawing.Icon
Dim shfi As New Shell32.SHFILEINFO()
Dim flags As UInteger = Shell32.SHGFI_ICON Or Shell32.SHGFI_USEFILEATTRIBUTES
If True = linkOverlay Then
flags += Shell32.SHGFI_LINKOVERLAY
End If
' Check the size specified for return.
If IconSize.Small = size Then
flags += Shell32.SHGFI_SMALLICON
Else
flags += Shell32.SHGFI_LARGEICON
End If
Shell32.SHGetFileInfo(name, Shell32.FILE_ATTRIBUTE_NORMAL, shfi, CInt(System.Runtime.InteropServices.Marshal.SizeOf(shfi)), flags)
' Copy (clone) the returned icon to a new object, thus allowing us to clean-up properly
Dim icon As System.Drawing.Icon = DirectCast(System.Drawing.Icon.FromHandle(shfi.hIcon).Clone(), System.Drawing.Icon)
User32.DestroyIcon(shfi.hIcon)
' Cleanup
Return icon
end function
文章名稱:vb.net的圖標 vb控件圖標
分享URL:http://muchs.cn/article0/dospcoo.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供域名注冊、網(wǎng)站設計公司、、虛擬主機、用戶體驗、網(wǎng)站維護
聲明:本網(wǎng)站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經(jīng)允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)