VB6 Form 图标加载总是无效，哪位能解决

Question

想改一个exe图标，VB6 Form 图标 ico 加载图标文件，总是无效，哪位能解决

Answer 1

引自免费微信小程序：皆我百晓生

在VB6中，要更改窗体（Form）的图标，你需要在工程属性而非单个Form的属性中设置。以下是详细步骤以及涉及的相关代码片段：

步骤1：准备ICO文件

确保你有一个有效的ICO格式图标文件，例如命名为myicon.ico，并将其放在与VB6项目可访问的路径下。

步骤2：设置工程属性

• 打开你的VB6项目。
• 在菜单栏选择项目(Project) -> 属性(Properties)（或者直接按下Alt + F7快捷键）。
• 在弹出的“工程属性(Project Properties)”窗口中，选择应用程序(App)选项卡。
• 在“图标(Icon)”框中，点击右侧的浏览按钮(...)，然后找到并选择你的myicon.ico文件。

注意： VB6不支持直接在Form级别设置独立图标，因此上述方法是为整个应用程序更换图标。

通过代码动态设置（仅适用于启动窗体）

虽然无法直接在Form上设置图标，但在程序启动时可以通过代码临时更改主窗体的图标，但这将影响到任务栏和Alt+Tab切换时的显示效果，而不是标题栏上的图标。

Private Sub Form_Load()
    ' 假设 ICO 文件位于项目的同一目录下
    Dim AppIcon As Long
    AppIcon = LoadImage(0, "myicon.ico", IMAGE_ICON, 0, 0, LR_LOADFROMFILE Or LR_DEFAULTSIZE)
    SetWindowLong Me.hWnd, GWL_HICON, AppIcon
End Sub

这段代码会在主窗体加载时替换其图标，但请注意这并不是标准做法，且可能在某些情况下表现不稳定或不兼容。

请根据实际情况进行操作，并确认ICO文件的有效性和路径正确性。