Download... the project. (30 kb)
Yes, there are a zillion examples on how to do tray icons (including another one
on this web site). What makes Brian's component different? Several reasons:
- It supports Windows XP style baloon tooltips, as evidenced by the screen shot below
- It doesn't rely on forms or other half-baked solutions - it is all API based.
- It provides a clean object-based design and an event-based notification system.
- The component comes with the source code
Below is an example of how easy it is to create a baloon tooltip with this component.
Start a new standard project and paste this into the form. Oh, btw baloon tooltips
only work on Windows XP or higher.
Option Explicit
Private WithEvents sysTray As SystemTray.Application
Private Sub Form_Load()
Set sysTray = New SystemTray.Application
Call sysTray.CreateIcon(App.Path & "\Trffc10c.ico", "My Icon")
Call sysTray.ShowBalloon("Hello", &H1, "www.braxtel.com")
End Sub
In addition to the tray functionality, the component includes a really useful TaskBar class,
which returns information on what the TaskBar is aligned to (top, bottom, wherever), whether
AutoHide is on, whether AlwaysOnTop is on, its Height, Width, etc...
The download includes the souce for the component itself and the demo application. To run
both in the IDE, unzip the download and run g.vbg
Download... the project. (30 kb).
To get in touch with the author of this example, email Brian Yule at byule at PembrokeTechnology.com