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

更改辨识度32*32

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

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