VB.NET设置窗体图标仅窗体生效 任务栏图标未更新如何全局修改

核心原因 #

Windows任务栏默认读取窗口类绑定的大尺寸（通常32x32以上）图标，你当前的代码仅修改了窗体标题栏使用的小图标实例，没有同步更新窗口级的大图标配置，因此会出现显示不同步的问题。

解决方法 #

首先在模块内补充必要的Win32 API声明：

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As IntPtr) As Integer
Private Declare Function ExtractAssociatedIconA Lib "shell32.dll" (ByVal hInst As IntPtr, ByVal lpIconPath As String, ByRef lpiIcon As Integer) As IntPtr
Private Declare Function DestroyIcon Lib "user32.dll" (ByVal hIcon As IntPtr) As Integer

Private Const WM_SETICON As Integer = &H80
Private Const ICON_SMALL As Integer = 0 ' 对应标题栏小图标
Private Const ICON_BIG As Integer = 1 ' 对应任务栏/Alt+Tab面板大图标

修改你的gIconLoad函数，同时为窗口配置两种尺寸的图标：

Public Function gIconLoad(ByRef frm As System.Windows.Forms.Form, ByVal iconpath As String) As Boolean
    gIconLoad = False
    If Not System.IO.File.Exists(iconpath) Then Exit Function
    
    Try
        Dim hIcon As IntPtr = ExtractAssociatedIconA(frm.Handle, iconpath, 0)
        If hIcon = IntPtr.Zero Then Exit Function
        
        ' 同时更新窗口大小图标配置
        SendMessage(frm.Handle, WM_SETICON, ICON_SMALL, hIcon)
        SendMessage(frm.Handle, WM_SETICON, ICON_BIG, hIcon)
        
        ' 同步Form内置的Icon属性状态
        frm.Icon = Icon.FromHandle(hIcon)
        
        gIconLoad = True
    Catch
        ' 可按需添加异常处理逻辑
    End Try
End Function

额外注意事项 #

• 你使用的图标文件需要包含多尺寸规格（至少覆盖16x16、32x32、48x48），才能在标题栏、任务栏、Alt+Tab切换面板等不同场景下都显示清晰的对应尺寸图标
• 如果修改后仍显示旧图标，属于系统图标缓存问题，重启资源管理器后即可正常显示
• 如果需要固定程序默认图标，除了运行时加载外，也可以直接在项目属性的「应用程序」选项卡中指定默认图标，避免首次启动时短暂显示系统默认窗体图标

内容的提问来源于stack exchange，提问作者user12365590