系统托盘内如何实现动画图标

Question

要求像QQ来消息的情况，或者是网络连接有动静的时候。我在程序里面改图标文件，但是不显示，那位大虾指导指导？

Answer 1

Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Private Type NOTIFYICONDATA
    cbSize As Long
    hwnd As Long
    uID As Long
    uFlags As Long
    uCallbackMessage As Long
    hIcon As Long
    sTip As String * 64
End Type
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const NIF_DOALL = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
With sysIcon
        .cbSize = LenB(sysIcon)
        .hwnd = Me.hwnd
        .uID = 1&
        .uFlags = NIF_DOALL
        .uCallbackMessage = WM_MOUSEMOVE
        .hIcon = ImageList1.ListImages(7).Picture
        .sTip = value & vbNullChar
End With
Shell_NotifyIcon NIM_ADD, sysIcon
'循环改变 .hIcon = ImageList1.ListImages(i).Picture
Shell_NotifyIcon NIM_MODIFY, sysIcon