VB程序中如何添加圖標

用VB寫了一個小程序想添加一個圖標

往哪兒添加圖標，可以細說一下嗎？我現給你編一下程序，不知對這位朋友是否有用。

首先在VB中添加一個新的窗體，具體步驟：工程——添加窗體——打開即可。

第二、再在該窗體上添加一個command按鈕：命名爲cmddj(cmd單擊)、caption屬性爲“打開”.

微調內容：“第三、在工程——部件中選中“Microsoft Common Dialog Control 6.0”，並在工具箱中添加該控件到新建的窗體中。注意該控件在運行時不可見，大小不可調整。”

第四、再在窗體上畫一個Picture控件。大小適中name屬性爲Picture1。

然後爲cmddj控件添加單擊事件，代碼如下

Private Sub Command1_Click()

Dim s As String

CommonDialog1.InitDir = ＂e:＂

CommonDialog1.ShowOpen

s = CommonDialog1.FileName

Picture1.Picture = LoadPicture(s)

End Sub

在程序運行時單擊“打開”按鈕會出現一個對話框，然後找到你要的圖標單擊“打開”就可以打開了。

不知我說的這個是不是這位朋友想要的。如果不是我這還有一個方法。

如果你是要修改窗體的圖標的話，那就修改主個窗體的icon屬性即可。在這兒我推薦使用VB的圖標庫作爲圖標源。

先就到這兒了，如果不對，再聯繫。

VB6 0生成的程序 ICO圖標問題

用IconWorkshop 或者其他的軟件處理圖標，修改圖標，添加小分辨率低質量的，如果不確定，把全部都選上去，然後保存，vb裏就可以用了，在資源管理器裏是高質量的，但vb窗體圖標是低質量的，你需要用最下面的代碼設置圖標。

IconWorkshop的具體操作步驟：

打開圖標以後添加多種圖像格式

就像這樣，如果你不計較文件大小的話，你也可以全部選上

結果：

vb2005當然會簡單，但vb2005和vb6語法有很大不同，原來的代碼幾乎不能用

Private Const ICON_BIG = 1

Private Const ICON_SMALL = 0

Private Const WM_SETICON = &H80

Private Declare Function SendMessage Lib ＂user32＂ Alias ＂SendMessageA＂ (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Function ExtractIcon Lib ＂shell32.dll＂ Alias ＂ExtractIconA＂ (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long

Public Sub SetWindowIcon(hWnd As Long)

Dim hIcon As Long

hIcon = ExtractIcon(App.hInstance, App.EXEName & ＂.exe＂, 0)

SendMessage hWnd, WM_SETICON, ICON_SMALL, ByVal hIcon

SendMessage hWnd, WM_SETICON, ICON_BIG, ByVal hIcon

End Sub

以上就是VB程序中如何添加圖標的詳細內容，更多請關注本站其它相關文章！