/ Snippet Library - View Code

Visual Basic / Sys Tray / Load in tray at startup

Snippet details

ID: 456

Viewed: 1210

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Minimize at startup to systray:

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight All'put in module Option Explicit 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 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 Declare Function Shell_NotifyIcon Lib "shell32" _ Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid _ As NOTIFYICONDATA) As Boolean Dim t As NOTIFYICONDATA
Code
Highlight All'and this part for the actual sub... 'form load t.cbSize = Len(t) t.hWnd = form1.hWnd 'change this to your forms name t.uId = 1& t.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE t.ucallbackMessage = WM_MOUSEMOVE t.hIcon = form1.icon 'change this to your forms name t.szTip = "System Tray" & Chr$(0) Shell_NotifyIcon NIM_ADD, t Me.Hide App.TaskVisible = False

No Reviews to show