minilize to the systray

[Kars Lensen]

How can I minimize a Form to the systemtray by
clicking on a command button ?

[Edited by Kars Lensen on 07-11-2000 at 01:36 PM]

[HeSaidJoe]

See..the post above you..re: system icon bla bla
Change the mouse event to this..
you could put it into a cmdButton as well but
you need all except for the popup menu junk
and the msgbox...I'm sure you get the drift

minimze by clicking the icon in the system tray.

Private Sub picSysTray_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    'You can use the Hex of the X coord to findout if
    'there was any MouseButton activity
    '2D represents a Left Button Double Click
    '0F represents mouse down (zero)
    '1E represents mouse up
      If Right(Hex(x), 2) = "0F" Then
       
        'System tray Icon Double Clicked
        'If the Window is Minimized, Restore it,
        'Else Minimize it.
      WindowState = IIf(WindowState = vbNormal, vbMinimized, vbNormal)
      Text1.SetFocus
   End If
End Sub

[HeSaidJoe]

here is the complete thing..sorry the boss was coming
around the corner so I rushed my last post...

Option Explicit

' Constants required by Shell_NotifyIcon API call
      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 WM_MOUSEMOVE = &H200
      Private Const WM_LBUTTONDOWN = &H201     'Button down
      Private Const WM_LBUTTONUP = &H202       'Button up
      Private Const WM_LBUTTONDBLCLK = &H203   'Double-click
      Private Const WM_RBUTTONDOWN = &H204     'Button down
      Private Const WM_RBUTTONUP = &H205       'Button up
      Private Const WM_RBUTTONDBLCLK = &H206   'Double-click

'API call
      Private Declare Function SetForegroundWindow Lib "user32" _
      (ByVal hwnd As Long) As Long
      
      Private Declare Function Shell_NotifyIcon Lib "shell32" _
      Alias "Shell_NotifyIconA" _
      (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

    Const WM_NCLBUTTONDOWN = &HA1
    Const HTCAPTION = 2
    
'variable declaration
      Private nid As NOTIFYICONDATA

'Show form icon in system tray

' User defined type required by Shell_NotifyIcon API call
      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 Sub Form_Load()
       Me.Show
       Me.Refresh
       With nid
        .cbSize = Len(nid)
        .hwnd = Me.hwnd
        .uId = vbNull
        .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
        .uCallBackMessage = WM_MOUSEMOVE
        .hIcon = Me.Icon
        .szTip = App.ProductName & " " & App.Major & "." & App.Minor & ", Build " & App.Revision & vbNullChar
       End With
       Shell_NotifyIcon NIM_ADD, nid
   
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'You can use the Hex of the X coord to findout if
    'there was any MouseButton activity
    '2D represents a Left Button Double Click
    '0F represents mouse down (zero)
    '1E represents mouse up
      If Right(Hex(X), 2) = "0F" Then
       
        'System tray Icon Double Clicked
        'If the Window is Minimized, Restore it,
        'Else Minimize it.
      WindowState = IIf(WindowState = vbNormal, vbMinimized, vbNormal)
    
   End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
   
  ' Remove Icon from System Tray
  'if you use another unload put this there as well
  
  Shell_NotifyIcon NIM_DELETE, nid
   
End Sub

[Kars Lensen]

Thanks, but how do i this with me commandbutton ?

[kedaman]

You can not minimize anything to system tray, if you say minimize it will probably go under the taskbar, in your command button, put

yourform.windowstate=vbminimized

where yourform is your forms name

[Kars Lensen]

Originally posted by kedaman
You can not minimize anything to system tray, if you say minimize it will probably go under the taskbar, in your command button, put

yourform.windowstate=vbminimized

where yourform is your forms name

Thanks Kedeman, thats what I want.. (of course, it would be nice if it was just a small icon in the system tray but I am satisfied this far)

[Kars Lensen]

THANKS to ALL of you !! It works fine now.

[mags]

i do the samething. that the code i put.

Private Sub Form_Resize()
If Me.WindowState = vbMinimized Then
Me.Visible = False
End If
End Sub

and when i click on my icontray

Private Sub Tray1_DblClick(ByVal Button As Long)
Me.Visible = True
End Sub

But the problem is when i dblClik on the icon my form appear like 1 sec in the windowsBar and dessapear after...I cant see my form.

What is the problem?

Sorry for my english.

[Jimlin41]

Im not exactly sure what's happening but I think something similar has happened to me before. If you double click, I think your form gains focus and then loses focus again to the icon. That's what I've been assuming but I really don't know how to fix it. Try, adding me.setfocus in the tray doubleclick event.

[mags]

Originally posted by Jimlin41
Im not exactly sure what's happening but I think something similar has happened to me before. If you double click, I think your form gains focus and then loses focus again to the icon. That's what I've been assuming but I really don't know how to fix it. Try, adding me.socus in the tray doubleclick event.

Ok, i gonna try something else. if i found the answer i come back to post it. thanks

[BramVandenbon]

dear mags,

simple question simple answer ...

When you maximize the form, it also runs the resize code ...
Maximazing is also a way of resizing !!!