System Tray Icon Question

[kleinma]

How can I put a different icon in the system tray other than the one assigned to my programs form? I want to be able to change the icon in the system tray durring different parts of my program.. depending on what it is doing (ie. running.. idle) i tried setting .icon property of the NOTIFYICONDATA data type to LoadPicture(iconfile) i get no error but it does not work...

[Hack]

See code line in Red.

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
 
Private Type NOTIFYICONDATA
    cbSize As Long
    hWnd As Long
    uId As Long
    uFlags As Long
    ucallbackMessage As Long
    hIcon As Long
    szTip As String * 64
End Type
 
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
 
Private SysTray As NOTIFYICONDATA
 
Private Sub StartInSysTray()
    SysTray.cbSize = Len(SysTray)
    SysTray.hwnd = Picture1.hwnd
    SysTray.uId = 1&
    SysTray.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    SysTray.ucallbackMessage = WM_MOUSEMOVE
    'change the below line to the desired icon
    [COLOR=red]SysTray.hIcon = Me.Icon[/COLOR] 
    SysTray.szTip = "&R&e&s&t&a&r&t" & Chr$(0)
    Shell_NotifyIcon NIM_ADD, SysTray
    Me.Hide
    App.TaskVisible = False
End Sub
 
Private Sub Form_Load()
StartInSysTray
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    SysTray.cbSize = Len(SysTray)
    SysTray.hwnd = Picture1.hwnd
    SysTray.uId = 1&
    Shell_NotifyIcon NIM_DELETE, SysTray
End Sub
 
'Add A Picture Control To The Form.   Set its visible property to False
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
Static rec As Boolean, msg As Long
    Dim RetVal As String
    Dim returnstring
    Dim retvalue
    msg = X / Screen.TwipsPerPixelX
    If rec = False Then
        rec = True
    Select Case msg
    Case WM_LBUTTONDOWN
    
    Case WM_LBUTTONDBLCLK
          
    Case WM_LBUTTONUP
         
    Case WM_RBUTTONUP
          
    End Select
        rec = False
    End If
 
End Sub

[ober0330]

I know this probably isn't what you want, but why not just change the icon of the form whenever you want it to change?

--EDIT--

yeah... what Hack said... damn he's quick.

[kleinma]

Hack,
The problem that I was having is that I wanted to Load the icon from a file and the LoadPicture method wasn't doing it.. but I came up with another solution anyway since I have a status bar that has the icons I need in it.. i just referenced the panel(x).picture property and loaded that icon into the system tray over the old one... is there a way I can make an icon blink at a certain time in the systray? I am creating a crystal reports scheduler and I want it to blink while the reports are running

[Hack]

Right off the top of my head, I'd say use two buttons, one with the icon, one without. Set a timer to toggle their visible property but there is probably a better way. I'm taking a half day, so I'm outta here.