/ Snippet Library - View Code

Visual Basic / Sys Tray / icon with menu

Snippet details

ID: 455

Viewed: 1270

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Here's an example of how I make a systray icon with a popup menu when the right mouse button is clicked:

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight All'modular code Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long Public Type POINTAPI X As Long Y As Long End Type 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_DELETE = &H2 Public Const NIM_MODIFY = &H1 Public Const NIF_ICON = &H2 Public Const NIF_MESSAGE = &H1 Public Const NIF_TIP = &H4 Public Const WM_MOUSEMOVE = &H200 Public Const WM_RBUTTONUP = &H205 Public Const WM_RBUTTONDOWN = &H204 Global TrayIcon As NOTIFYICONDATA Public Sub AddToTray(frm As Form, ToolTip As String, Icon) On Error Resume Next TrayIcon.cbSize = Len(TrayIcon) TrayIcon.hwnd = frm.hwnd TrayIcon.szTip = ToolTip & vbNullChar TrayIcon.hIcon = Icon TrayIcon.uID = vbNull TrayIcon.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP TrayIcon.uCallbackMessage = WM_MOUSEMOVE Shell_NotifyIcon NIM_ADD, TrayIcon End Sub Public Function GetY() Dim Point As POINTAPI, RetVal As Long RetVal = GetCursorPos(Point) GetY = Point.Y End Function Public Sub RemoveFromTray() Shell_NotifyIcon NIM_DELETE, TrayIcon End Sub
Code
Highlight All'*************************************** 'put this on a form with the visible property set to false Private Sub Form_Load() Dim listen As Long AddToTray Me, "Marathon", Me.Icon Me.Visible = False End Sub Private Sub Form_Unload(Cancel As Integer) RemoveFromTray End Sub 'here is the part that get's the position of the mouse over the systray icon Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim Message As Long Dim temp As Variant On Error Resume Next Message = X / Screen.TwipsPerPixelX Select Case Message Case WM_RBUTTONUP temp = GetY If temp > (Screen.Height / Screen.TwipsPerPixelY) - 30 Then PopupMenu mnuSysTray End If End Select End Sub

No Reviews to show