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