DeJay
Moderator
[M:0]
Posts: 48
|
Post by DeJay on Mar 14, 2006 21:42:32 GMT -5
Add This Into Declarations
Private Type NotifyIconData Size As Long Handle As Long ID As Long Flags As Long CallBackMessage As Long Icon As Long Tip As String * 64 End Type
' Constants for managing System Tray tasks, found in shellapi.h Private Const AddIcon = &H0 Private Const ModifyIcon = &H1 Private Const DeleteIcon = &H2
Private Const WM_MOUSEMOVE = &H200 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
Private Const MessageFlag = &H1 Private Const IconFlag = &H2 Private Const TipFlag = &H4
Private Declare Function Shell_NotifyIcon _ Lib "shell32" Alias "Shell_NotifyIconA" ( _ ByVal Message As Long, Data As NotifyIconData) As Boolean
Private Data As NotifyIconData
Private Sub AddIconToTray()
Data.Size = Len(Data) Data.Handle = hwnd Data.ID = vbNull Data.Flags = IconFlag Or TipFlag Or MessageFlag Data.CallBackMessage = WM_MOUSEMOVE Data.Icon = Icon Data.Tip = "Tooltip" & vbNullChar Call Shell_NotifyIcon(AddIcon, Data) End Sub
Private Sub DeleteIconFromTray() Call Shell_NotifyIcon(DeleteIcon, Data) End Sub
Now On Form Load Add AddIconToTray And It Will Add The Program Icon To Your Task Bar
Enjoy
Tutorial Provided By Extreme Tutorials
|
|