Question

VB6.0生成的程序,ICO图标问题

问题：
1.使用VB6.0编写的应用程序。若在Win7桌面下，查看方式：大图。自己的程序图标可以像QQ图标这样大吗？如果可以怎么做呢？？

2.如果换VB2005，这个问题，是不是简单了？？

希望知道的朋友，可以回答下。满意加分

Answer 1

用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

Answer 2

更改辨识度32*32

追问

我想显示大图标啊。。。更改这个可以吗？

Answer 3

因为你生成的时候选择的ICO图标是16*16大小的，要显示大图标在编写的时候换个32*32的

Answer 4

win98时代的vb6 你就别指望它能用大图标