Application In Systray...

How Can I Put My Application Is The SysTray... Pls Help
Please help how to put my application in the systray so that everytime I minimize my application it will go to systray and by clicking the icon in the systray my application will be restore..... please give some information, code or something that can help me with this....... thx

---

Application In Systray
Hi every body,

Does any one can tell me what code i should use to make my application
disapear and show it only in the systray and vice versa?

Best R.
JA

---

Application In Systray In Win98
hi
i used this code in windows 2000 and it works perfectly but the same code does not work in windows 98. what should i do for windows 98?
haroon

---

Run Application As Systray Service
Hi,

I have an application that checks for messages in a POP3 mailbox by using WinSock.

The application runs in the system tray, but only when a user is logged on. Since I want this application to run as a service, independent of user logon, I want to know how to make this application run as a service. It runs a Windows 2000 Server.

These things I need to know:
- How to put messages to the event log (application log or system log)
- How to run independent of a logged on user
- Are there any special thing to watch for

Any advice is appreciated very much.

Regards,

Jeroen van den Bergh

---

Indication That Application Is Running (using Systray?) [VB6]
I have an application (no form, just a VB.bas module that I load, it is a command line application) but I need some way to indicate that it has started/running/finished.
So I was thinking of adding an icon in the SYSTRAY when the application starts and then remove it when the application is finished processing (this would fix everytihng).

Can I do this? If so how? (I have no clue how to interact with the Systray)
Or if anyone has other suggestions (easier/better) please feel free.
Thanks,

---

Indication That Application Is Running (using Systray?) [VB6]
I have an application (no form, just a VB.bas module that I load, it is a command line application) but I need some way to indicate that it has started/running/finished.
So I was thinking of adding an icon in the SYSTRAY when the application starts and then remove it when the application is finished processing (this would fix everytihng).

Can I do this? If so how? (I have no clue how to interact with the Systray)
Or if anyone has other suggestions (easier/better) please feel free.
Thanks,

---

Indication That Application Is Running (using Systray?) [VB6]
I have an application (no form, just a VB.bas module that I load, it is a command line application) but I need some way to indicate that it has started/running/finished.
So I was thinking of adding an icon in the SYSTRAY when the application starts and then remove it when the application is finished processing (this would fix everytihng).

Can I do this? If so how? (I have no clue how to interact with the Systray)
Or if anyone has other suggestions (easier/better) please feel free.
Thanks,

---

Systray Menu Appears At Random When Program Is Not In Systray
I have a menu that is only supposed to appear when the icon in the system tray is clicked. It works fine from the system tray. But when I have the program opened the menu will appear at random times and locations. Why?

I put the debug commands in to notifiy me when the event(s) fire. This problem also occurs in all of my other programs that have this code BUT ONLY if there is a right click menu associated with that icon. I have already run Windows Update and installed VB6 SP6.

The code I am using I got from msdn.microsoft.com.


Code:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'intDebugCnt is located in the General Declarations section of the form
intDebugCnt = intDebugCnt + 1
Debug.Print MODULE_NAME & "Form_MouseMove" & intDebugCnt

Dim Result As Long
Dim msg As Long

If Me.ScaleMode = vbPixels Then
msg = X
Else
msg = X / Screen.TwipsPerPixelX
End If

Debug.Print "X = " & X

Select Case msg
Case WM_RBUTTONUP
Debug.Print "WM_RBUTTONUP"
'517 - Display popup menu
Result = SetForegroundWindow(Me.hwnd)
Me.PopupMenu Me.mnuSysTray
Case WM_LBUTTONDBLCLK
Debug.Print "WM_LBUTTONDBLCLK"
'515 - Restore frmMain
Me.WindowState = vbNormal
cmdReturnToTray.visible = True
Result = SetForegroundWindow(Me.hwnd)
Me.Show
End Select
End Sub

---

How Can I Add A Systray Icon And A Systray Menu.
SupZ.... I got as pic that i want to be the systray icon. I dono how to addit. I also need to add clicking options to the icon. ex: If I right click it , a menu pups up and sais about , exit and so on. when left clicked, It restores the program.

Help?

Th,x L8ter

---

Systray?
how to send program to systray, and, then when i click on his icon, it restores?

---

Systray
I need a really good systray source code if you know which one is good please tell me. I dont want one that minimize into tray i want one that closes into tray. When click minimize it still minimizes into the taskbar.


-Hao Li-

---

Systray
How do make my software appear in the system tray with an icon when minimized and how do i make a menu when right-clicked on the icon in system tray.

Please help thanx

-Hao Li-

---

Systray
I am trying to make my program only show up in the systray. I know this is a common thing, however I did a search and did not find too much.
http://www.google.com/search?hs=tDe&...um&btnG=Search

One thing I found was fairly complicated. Anyways, I was wondering what you would recommend to do the job? Thanks.
http://www.xtremevbtalk.com/showthread.php?t=19087

---

Systray
What is the simplest code to make a program that run in systray ??

PLZ help me

---

Systray
how to make a vb application to be included inside the systray such as MSN or ICQ?

---

Systray Help
Hi, I got the following code example from here. How can I change it so that when a user clicks on the "X" button the program goes to the system tray instead of when the user clicks on the "-"minibuton.
Thanks

Code Code:
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
'declaration for putting the application to system tray
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

    'declare constants
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

'The following constants are used to determine the mouse input on the

    'Left-click
Private Const WM_LBUTTONDBLCLK = &H203   'Double click
Private Const WM_LBUTTONDOWN = &H201     'down
Private Const WM_LBUTTONUP = &H202       'up

    'Right-click
Private Const WM_RBUTTONDBLCLK = &H206   'Double click
Private Const WM_RBUTTONDOWN = &H204     'down
Private Const WM_RBUTTONUP = &H205       'up

'Dimension a variable as the user-defined data type.
Dim nid As NOTIFYICONDATA


Private Sub Ex_Click()
Unload Me
Shell_NotifyIcon NIM_DELETE, nid 'Delete the form's icon from the sys tray
End Sub
'   one main menu by Caption"Menu" name "TrayMenu"
'   one sub menu by name caption "Exit" name "Ex"
'   one sub menu by name caption "Show" name "Show"

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Long
Dim sFilter As String
msg = X / Screen.TwipsPerPixelX
    Select Case msg
        Case WM_LBUTTONDOWN
            MsgBox "you clicked me!"
        '      Me.PopupMenu TrayMenu   'if u want u can call the popup menu
        Case WM_LBUTTONUP
        Case WM_LBUTTONDBLCLK
        Case WM_RBUTTONDOWN
        Case WM_RBUTTONUP
            Me.PopupMenu TrayMenu  'call the popup menu
        Case WM_RBUTTONDBLCLK
    End Select
End Sub


Private Sub Form_Resize()
If Me.WindowState = 1 Then

    Me.Hide
    nid.cbSize = Len(nid)
        nid.hwnd = Me.hwnd
        nid.uId = vbNull
        nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
        nid.uCallBackMessage = WM_MOUSEMOVE
        nid.hIcon = Me.Icon
        'u can give a tool tip text here
        nid.szTip = "My System Tray Message" & vbNullChar
       'Call the Shell_NotifyIcon function to add the icon to the System Tray, defulte form's icon

        Shell_NotifyIcon NIM_ADD, nid
        Else
End If
End Sub

Private Sub Show_Click()
Me.WindowState = 0
Me.Show
Shell_NotifyIcon NIM_DELETE, nid 'Delete the form's icon from the sys tray
End Sub

---

Systray
i cant seem to find this code on the internet, so there might not be one.

I am trying to hide the system tray so just the clock and the taskbar is showing.

Please let me know if it is possible, and if you know the code please post it.

---

Systray
Hi
I have a VB6 program that alert the user about his schedule,I want to include a shortcut of this program into the systray toolbar.
Also,upon starting up the PC,i want to load this program

How can I do it?
thanks

---

Systray Help
Hey, I cant seem to get ANY of the examples of minimizing to the System tray and then restoring the form when clicking the icon to work. With every example it minimizes fine, but then the Icon just sits in the systray.

Please help me out with this. Sorry for the inconvience..

- BorT

---

Need Help With Systray App
I've tried to get my systray app to work, but i haven't managed in 4 hours, so i'm kinda tired at it. If anyone could take a look at it, I would be grateful.

if you want any more info, just tell me

---

Systray IP
*first post first thread*

Alright im making a very very simple program that hides in the notification area by the clock down at the task bar, that when you hover over the icon it shows your IP address.

I already made the code for getting the local IP, i know its one line of code its easy, and right now all my program does is change the form caption to the IP address. I was guessing that you needed to do this in order for the tooltip to display the IP.

---

Systray
How to make an application go to the systray when it's minimized?
I mean only to the systray so it's not shown in the taskbar.
thx

---

My Own Systray????
Hi again.
I would like to make my own systray, but I don't know how to handle programs, which want to show an icon in it. Know this somebody?



------------------
Thanks,
John, 14 years old

---

App In Systray
Is there a way to determine if my current app is also running in the systray?

---

Systray
How can I add my program link in systray.

---

Who Try This ? (VB6 From Systray)
Hello,

I don't know if somebody have experience this !

If you call a VB program from the systray (SE: Windows ME and Office 2000), it launch systematically the Microsoft Office 2000 SETUP !...

I have try to put only the call of VB6.EXE in the systray and I get the same problem (see bitmap)

Please HELP !.....

Thanks,
Thierry Demoy

---

Systray
Can somebody plese tell me how i can put the program sortoff into the systray so that i can control it?

can it be done?

---

SysTray
Is there any way (VB or not) that i can get rid of the systray icon without closing the program down, in particular the program Mirc, I wanna it that way so the program is hidden when on

Thanks

---

SysTray????
Is there any way (VB or not) that i can get rid of a tray icon, in particular the mirc tray icon when its minimized....?


Thanks

---

SysTray
Hi, I have the following code which tells when the user has clicked on my minimized-to-systray icon.


Code:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msgCallBackMessage As Long
msgCallBackMessage = X / Screen.TwipsPerPixelX
Select Case msgCallBackMessage
Case WM_MOUSEMOVE: MySysTray.TipText = MySysTray.PopUpMessage
Case WM_LBUTTONDOWN: Me.Show
Case WM_RBUTTONDOWN: MsgBox "BSS Action Centre - Unisys Ltd"
End Select
End Sub


I want it to behave like a normal icon, which you have to double click (like outlooks email envelope). How can I go about doing this?

---

SysTray Help Please!
I've created a program that shrinks into the systray the only problem is that I can't seem to be able to show a menu of some sort on the right mouse click?

Help!

---

Systray
i am working on ticker application ..where data scroll in a form ..how can i place this ticker the systray..in the lines of yahoo ticker

---

SysTray.ocx
Can anyone explain to me how I use this damn thing - it was working fine under VB5, now all the properties seem to have changed....

---

Own Systray
how can i make my own systray..ie. icons added when programs like icq start, etc. i need this for a shell replacement btw, cos not having systray icons is really annoying

---

SysTray
How do I change the icon Of my Appl in the systray?

Thanks

---

SysTray!!!
Does someone know how to put a clock in the SysTray? Yes, I know it´s already a clock there but i want to do one on my own. So can someone solve this little problem fo me?¿

---

SysTray
Add an Invisible Picturebox to your Form, then Paste 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
Picture1.Visible = False
With tTrayIcon
.hIcon = Icon
.hwnd = Picture1.hwnd
.szTip = "My Tray Icon" & Chr(0)
.uCallbackMessage = WM_MOUSEMOVE
.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
.uID = 1
.cbSize = Len(tTrayIcon)
End With
Shell_NotifyIcon NIM_ADD, tTrayIcon
End Sub

Private Sub Form_Resize()
DoEvents
If WindowState = vbMinimized Then
Hide
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
'Remove the Tray Icon
Shell_NotifyIcon NIM_DELETE, tTrayIcon
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case ScaleX(X, vbTwips, vbPixels)
Case WM_RBUTTONDOWN
'Show Popup Menu
Case WM_LBUTTONDBLCLK
'Show the Form
WindowState = vbNormal
Show
End Select
End Sub

If you want it even simpler I believe there's an OCX available on this site somewhere, which bascially does all this in the background.

Only downside is you have to ship the OCX with your Project.

------------------
Aaron Young
Analyst Programmer
aarony@redwingsoftware.com
adyoung@win.bright.net

---

SYSTRAY
Hi I am trying to make my application hide and show a icon in the system tray. I found some code to do this and it seems to work in the example but when I run my code it dosen't work.


Code:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim Msg As Long

Msg = X
' The message is passed to the X value

' You must set your form's ScaleMode property to pixels in order to get the correct message

If Msg = WM_LBUTTONDBLCLK Then
' The user has double-clicked your icon

Call mnuShow_Click
' Show the window

ElseIf Msg = WM_RBUTTONDOWN Then
' Right-click

PopupMenu mnuPopup
' Popup the menu

End If

End Sub



It seems that the X variable never changes so the condition never gets meet. Even though this works on the sample program. Thank you for you help in advance.

---

Systray
there's loads of code around that allows a program to minimize to the systray and have a pop-up menu. but none of it (that ive found at least) lets u change the icon used without first removing it and then adding it again. id also like to be able to use icons with more than 16 colours

anyone help??

---

Systray
How can I write a program which is not shown in the Task Bar but has an Icon in the SysTray.

Please help

mfG Pueromane

---

Icon In Systray Bug
I follow the tutorial gave by MS in the linkhttp://support.microsoft.com/default...;en-us;Q162613 , with the following 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

'Declare the constants for the API function. These constants can be
'found in the header file Shellapi.h.

'The following constants are the messages sent to the
'Shell_NotifyIcon function to add, modify, or delete an icon from the
'taskbar status area.
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2

'The following constant is the message sent when a mouse event occurs
'within the rectangular boundaries of the icon in the taskbar status
'area.
Private Const WM_MOUSEMOVE = &H200

'The following constants are the flags that indicate the valid
'members of the NOTIFYICONDATA data type.
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4

'The following constants are used to determine the mouse input on the
'the icon in the taskbar status area.

'Left-click constants.
Private Const WM_LBUTTONDBLCLK = &H203 'Double-click
Private Const WM_LBUTTONDOWN = &H201 'Button down
Private Const WM_LBUTTONUP = &H202 'Button up

'Right-click constants.
Private Const WM_RBUTTONDBLCLK = &H206 'Double-click
Private Const WM_RBUTTONDOWN = &H204 'Button down
Private Const WM_RBUTTONUP = &H205 'Button up

'Declare the API function call.
Private Declare Function Shell_NotifyIcon Lib "shell32" _
Alias "Shell_NotifyIconA" _
(ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

'Dimension a variable as the user-defined data type.
Dim nid As NOTIFYICONDATA

Private Sub Command1_Click()
'Click this button to add an icon to the taskbar status area.

'Set the individual values of the NOTIFYICONDATA data type.
nid.cbSize = Len(nid)
nid.hWnd = Form1.hWnd
nid.uId = vbNull
nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
nid.uCallBackMessage = WM_MOUSEMOVE
nid.hIcon = Form1.Icon
nid.szTip = "Taskbar Status Area Sample Program" & vbNullChar

'Call the Shell_NotifyIcon function to add the icon to the taskbar
'status area.
Shell_NotifyIcon NIM_ADD, nid
End Sub

Private Sub Command2_Click()
'Click this button to delete the added icon from the taskbar
'status area by calling the Shell_NotifyIcon function.
Shell_NotifyIcon NIM_DELETE, nid
End Sub

Private Sub Form_Load()
'Set the captions of the command button when the form loads.
Command1.Caption = "Add an Icon"
Command2.Caption = "Delete Icon"
End Sub

Private Sub Form_Terminate()
'Delete the added icon from the taskbar status area when the
'program ends.
Shell_NotifyIcon NIM_DELETE, nid
End Sub

Private Sub Form_MouseMove _
(Button As Integer, _
Shift As Integer, _
X As Single, _
Y As Single)
'Event occurs when the mouse pointer is within the rectangular
'boundaries of the icon in the taskbar status area.
Dim msg As Long
Dim sFilter As String
msg = X / Screen.TwipsPerPixelX
Select Case msg
Case WM_LBUTTONDOWN
Case WM_LBUTTONUP
Case WM_LBUTTONDBLCLK
CommonDialog1.DialogTitle = "Select an Icon"
sFilter = "Icon Files (*.ico)|*.ico"
sFilter = sFilter & "|All Files (*.*)|*.*"
CommonDialog1.Filter = sFilter
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Form1.Icon = LoadPicture(CommonDialog1.FileName)
nid.hIcon = Form1.Icon
Shell_NotifyIcon NIM_MODIFY, nid
End If
Case WM_RBUTTONDOWN
Dim ToolTipString As String
ToolTipString = InputBox("Enter the new ToolTip:", _
"Change ToolTip")
If ToolTipString <> "" Then
nid.szTip = ToolTipString & vbNullChar
Shell_NotifyIcon NIM_MODIFY, nid
End If
Case WM_RBUTTONUP
Case WM_RBUTTONDBLCLK
End Select
End Sub

</code>

It works fine, but always you move the mouse in the right, top-right portion of the form (if it is maximized) it sends the WM_LBUTTONDBLCLK message. Somebody knows how to fix it ? It's incredible that MS has published this code with this bug...

---

Systray ? (yes I Searched)
All the code I have found for minimizing to systemtray uses the minimize button(which i think is this: Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single), well what if i want to use an image? ... Private Sub imgPoop_Click(Button As Integer, Shift As Integer, X As Single, Y As Single) doesnt work...didnt think it would...but you might see what im saying, anyone know?

---

SysTray.OCX Problems
i have an app that I am trying to minimize to the systray and that all works fine but I need to change the icon to some thing else that the standard thing. only problem is that it wont let me change it at all.

i have tried to set the icon in the properties but it doesn't change it

I have tried this code to change it also

Code:
Private Sub Command2_Click()
Form1.Hide
cSysTray1.InTray = True
cSysTray1.TrayIcon = App.Path & " emp.bmp" 'but I get an error saying invalid use of property here
End Sub

Any ideas on why it wont let me change the icon?

Thanks for any help

GeeK

---

Pop-up Menu In Systray
Hi
I'm using an ActiveX object (csystray) to place an icon on the systray.
I add a menu and try to pop it up over the icon, when someone clicks there.

I do this :
(form is set in pixels -- tried point and the same outcome -- only I can't get + 50 and -200 to work at all)

Private Sub cSysTray1_MouseDown(Button As Integer, Id As Long)
Dim P As POINTAPI
Dim D As Long
SetForegroundWindow (Form1.hwnd)
GetCursorPos P
PopupMenu Form1.mnu_to_pop_up , , P.x + 50, P.y - 200
End Sub

I do the + 50 and -200 to get a decent pop-up positioning, but I quite envy other programs in systray that pop-up the menu right above where I click the mouse.
Am I doing something wrong here?
Thanks!

---

Systray And Balloons...
Hi...

My applications uses a notify icon for showing tooltip balloons on tray. But I cant find a way to identify the balloons, soo I could manage to do different actions for diferent balloons/messages.

Right now I use Shell_NotifyIconA API to create the notify icon and show the balloons. NOTIFYICONDATAA structure that is send on that API have a iID var, but I cant get any info about identifying those balloons.

My objective is the possibility to display diferent messages and do diferent actions as the user click's on it.

Does anyone know how to do this?

---

Systray Interaction
Ok, I'm writing a little app that functions like a notifier. I don't want the notifier to take up space in the screen, so I want to stuff the thing in the systray. So I started looking and came across this:


Code:
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" _
(ByVal dwMessage As Long, IpData As NOTIFYICONDATA) As Long

Public Const ICON_MESSAGE = 1
Public Const ICON_ICON = 2
Public Const ICON_TIP = 4
Public Const ADD_ICON = 0
Public Const MODIFY_ICON = 1
Public Const DELETE_ICON = 2
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_RBUTTONDOWN = &H204

Type NOTIFYICONDATA 'Information structure for the system tray
cbSize As Long 'icon.
hWnd As Long
uId As Long
uFlags As Long
ucallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type

Public IconData As NOTIFYICONDATA 'Stores the information about the TNA Icon

Public Sub CreateSysIcon()
''-------------------------------------------------------''
'' Sets variables for Taskbar Notification Area icon and ''
'' displays it. ''
''-------------------------------------------------------''
Dim result As Long
IconData.cbSize = Len(IconData)
IconData.hWnd = frm_Main.hWnd 'The Form You Want To Handle The Clicks
IconData.uId = vbNull
IconData.uFlags = ICON_MESSAGE Or ICON_ICON Or ICON_TIP
IconData.hIcon = frm_Main.Icon 'The Name Of The Picture Control Containing The Icon
IconData.szTip = "Currently 0 new messages, last updated at 000-00-00 00:00:00"
IconData.ucallbackMessage = WM_RBUTTONDOWN
result = Shell_NotifyIcon(DELETE_ICON, IconData)
result = Shell_NotifyIcon(ADD_ICON, IconData)
End Sub

With credits to the original creator anthony_n ofcourse.

I've got the code to work, replaced the picturebox with the icon of a form (made more sense to me) but otherwise did not edit the code.

But now.... I want to form different kinds of actions on the systray object.

rightclick: a small menu (open something, and close the program)
left doubleclick: open main frm with all the settings and stuff

The code above is great if you want to just create an icon in the systray, but I don't understand how to interact with the icon? It doesnt seem to have any events?

Hope someone can help me out here, TIA

---

Systray Problems
Hello!
I have to do with systray icons. So, I've searched the web, found the solution (at the end of message). Everything goes ok, but at one moment my application don't respond at mousemove event. I tried to find what happened. And I remember that at start mine application has only one form, and once I added one more (from an existin one) and after this I've deleted this.
Do you think you could help me?

This is the solution

Step one: Declare necessary items
This step is really easy - copy and paste. There isn't anything to do here, but is required to be exact (to my knowledge) so as to run.

Code:


Code:
Option Explicit

'User-defined variable to pass to the Shell_NotiyIcon function
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

'Constants for the Shell_NotifyIcon function
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

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

Dim nid As NOTIFYICONDATA
Step two: Create add icon procedure
In this step, we're creating the add icon procedure as a separate procedure so that we can:


Specify a tooltip on-the-fly

Call the add icon procedure from where ever we choose



Code:


Code:
Public Sub AddIcon(ByVal ToolTip As String)

On Error GoTo ErrorHandler

'Add icon to system tray
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 = ToolTip & vbNullChar
End With
Call Shell_NotifyIcon(NIM_ADD, nid)

Exit Sub
ErrorHandler: 'Display error message
Screen.MousePointer = vbDefault
MsgBox Err.Description, vbInformation, App.ProductName & " - " & Me.Caption

End Sub
Step three: Add code to add icon and remove icon from the system tray
Very straight-forward. Because we've created an add icon procedure, it's one line to add the icon (and modify the tooltip) and one line to remove it.

Code:


Code:
Private Sub Form_Load()

Call AddIcon("This would be a tooltip...")

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

'Remove icon from system tray
Call Shell_NotifyIcon(NIM_DELETE, nid)

End Sub
Step four: Interact with system tray icon

Code:


Quote:




Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim msg As Long

On Error GoTo ErrorHandler

'Respond to user interaction
msg = X / Screen.TwipsPerPixelX
Select Case msg

Case WM_LBUTTONDBLCLK
'nothing

Case WM_LBUTTONDOWN
'nothing

Case WM_LBUTTONUP
If Me.WindowState = vbMinimized Then
Me.WindowState = vbNormal
Me.Show
Else
Me.WindowState = vbMinimized
Me.Hide
End If

Case WM_RBUTTONDBLCLK
'nothing

Case WM_RBUTTONDOWN
'nothing

Case WM_RBUTTONUP
'nothing

End Select

Exit Sub
ErrorHandler: 'Display error message
Screen.MousePointer = vbDefault
MsgBox Err.Description, vbInformation, App.ProductName & " - " & Me.Caption

End Sub

---

Systray Icon
I have an icon in the system tray, and the menu for it is mnuTray. I have two items in this menu: mnuShowHide, and mnuExitTray. When I double click the icon, I want it to Call mnuShowHide_Click. How can I do this?

---

Systray Icon
I have used several different examples of code from this forum that places an icon into the system tray..but have noticed that when I exit the application the icon remains in the system tray until I mouse over it.
Is this normal or is there another line of code that will remove this.
Here is the code I am using.

!!STRANGE I guess I should say sometimes because it is working now but wasn't the last dozen times I tried it.


Code:
'this code goes into the form

'--------------------------------------------

Private Sub Form_Load()

Me.Hide 'form must be fully visible(NOT!)

Me.Refresh



With nid 'with system tray

.cbSize = Len(nid)

.hwnd = Me.hwnd

.uId = vbNull

.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE

.uCallBackMessage = WM_MOUSEMOVE

.hIcon = Me.Icon 'use form's icon in tray

.szTip = "System Tray Example" & vbNullChar 'tooltip text

End With



Shell_NotifyIcon NIM_ADD, nid 'add to tray

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim Result, Action As Long



'there are two display modes and we need to find out

'which one the application is using



If Me.ScaleMode = vbPixels Then

Action = X 'this is used if the form is visible

Else

Action = X / Screen.TwipsPerPixelX 'this is used if the form is not visible

End If

Select Case Action



'the next four lines will show the form if not commented out

' Case WM_LBUTTONDBLCLK 'Left Button Double Click

' Me.WindowState = vbNormal 'put into taskbar

' Result = SetForegroundWindow(Me.hwnd)

' Me.Show 'show form



Case WM_RBUTTONUP 'Right Button Up

Result = SetForegroundWindow(Me.hwnd)

PopupMenu mnuFile 'popup menu, cool eh?



End Select



End Sub

Private Sub Form_Unload(Cancel As Integer) 'on form unload

Shell_NotifyIcon NIM_DELETE, nid 'remove from tray

End Sub

Private Sub mnuExit_Click() 'this menu is added on the form Ctrl+e

Unload Me: End

End Sub

Private Sub mnuSomething_Click() 'same as above, add options if needed

MsgBox "this does nothing"

End Sub

'---------------------------------

'this code goes into the module, it doesn't matter what you call it

'-----------------------------------



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 'Add to Tray

Public Const NIM_MODIFY = &H1 'Modify Details

Public Const NIM_DELETE = &H2 'Remove From Tray

Public Const NIF_MESSAGE = &H1 'Message

Public Const NIF_ICON = &H2 'Icon

Public Const NIF_TIP = &H4 'TooTipText

Public Const WM_MOUSEMOVE = &H200 'On Mousemove

Public Const WM_LBUTTONDOWN = &H201 'Left Button Down

Public Const WM_LBUTTONUP = &H202 'Left Button Up

Public Const WM_LBUTTONDBLCLK = &H203 'Left Double Click

Public Const WM_RBUTTONDOWN = &H204 'Right Button Down

Public Const WM_RBUTTONUP = &H205 'Right Button Up

Public Const WM_RBUTTONDBLCLK = &H206 'Right 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

---