Minimere til SysTray Part 2

(Fortsat fra <a href=\"http://www.eksperten.dk/spm/34557\">http://www.eksperten.dk/spm/34557</a>)

Ok, den minimerer og maksimerer fint nu... Næste hurdle: At skifte ikonet (og mouseover-teksten) i SysTray\'en når man dobbeltklikker på ikonet...

*** *** ***
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Select Case msg
      Case WM_LBUTTONDBLCLK
      If timDisplay.Enabled = False Then \'START

        * SKIFT TIL IKON2 *

      ElseIf timDisplay.Enabled = True Then \'STOP   

        * SKIFT TIL IKON1 *

      End If
  End Select
End Sub
*** *** ***


Mit module ser sådan her ud:

*** *** ***
      Public 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

      Public Const NIM_ADD = &H0
      Public Const NIM_MODIFY = &H1
      Public Const NIM_DELETE = &H2
      Public Const NIF_MESSAGE = &H1
      Public Const NIF_ICON = &H2
      Public Const NIF_TIP = &H4
      Public Const WM_MOUSEMOVE = &H200
      Public Const WM_LBUTTONDOWN = &H201    \'Button down
      Public Const WM_LBUTTONUP = &H202      \'Button up
      Public Const WM_LBUTTONDBLCLK = &H203  \'Double-click
      Public Const WM_RBUTTONDOWN = &H204    \'Button down
      Public Const WM_RBUTTONUP = &H205      \'Button up
      Public Const WM_RBUTTONDBLCLK = &H206  \'Double-click

      Public Declare Function SetForegroundWindow Lib \"user32\" _
      (ByVal hwnd As Long) As Long
      Public Declare Function Shell_NotifyIcon Lib \"shell32\" _
      Alias \"Shell_NotifyIconA\" _
      (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

      Public nid As NOTIFYICONDATA
*** *** ***

På forhånd tak... :o)