-
I have a form that contains a PicutreBox called picTray. I then have this code:
Code:
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 Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Private Const NIF_ICON = &H2
Private Const NIF_MESSAGE = &H1
Private Const NIF_TIP = &H4
Private Const NIM_ADD = &H0
Private Const NIM_DELETE = &H2
Private Const NIM_MODIFY = &H1
Private Const WM_MOUSEMOVE = &H200
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_RBUTTONDOWN = &H204
Private tTrayIcon As NOTIFYICONDATA
Private Sub Form_Load()
'Create a Tray Icon
picTray.Visible = False
With tTrayIcon
.hIcon = Icon
.hwnd = picTray.hwnd
.szTip = "Test" & Chr(0)
.uCallbackMessage = WM_MOUSEMOVE
.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
.uID = 1
.cbSize = Len(tTrayIcon)
End With
End Sub
Private Sub Form_Resize()
If WindowState = vbMinimized Then
Hide
'Send it to the tray
Shell_NotifyIcon NIM_ADD, tTrayIcon
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Remove the Tray Icon
Shell_NotifyIcon NIM_DELETE, tTrayIcon
End Sub
Private Sub picTray_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case ScaleX(X, vbTwips, vbPixels)
Case WM_RBUTTONDOWN
Case WM_LBUTTONDBLCLK
Me.Show
Me.WindowState = vbNormal
End Select
End Sub
It works yet it doesn't...Everything works fine except when I double click which would call this code:
Code:
Private Sub picTray_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case ScaleX(X, vbTwips, vbPixels)
Case WM_RBUTTONDOWN
Case WM_LBUTTONDBLCLK
Me.Show
Me.WindowState = vbNormal
End Select
End Sub
I have to double click and then double click again to make the form show itself. Anyone know what's up?? Thanks in advance.
Edited by _eclipsed_ on 03-10-2000 at 12:19 AM
-
If I could give you a reason why it behaves this way I would but I really have no idea. My best guess is that it seems to show the form temporarily and the re-send it to the tray. Re entering the resize event pehaps. Anyway.... this seems to correct it
'define mod level var
private trayed as boolean
Private Sub Form_Resize()
If trayed Then: Exit Sub
If WindowState = vbMinimized Then
Hide
'Send it to the tray
Shell_NotifyIcon NIM_ADD, tTrayIcon
trayed = True
End If
End Sub
Private Sub picTray_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case ScaleX(X, vbTwips, vbPixels)
Case WM_RBUTTONDOWN
Case WM_LBUTTONDBLCLK
Me.Show
Me.WindowState = vbNormal
trayed = False
Case Else
End Select
End Sub
hope this helps...
