How To Use Icons with the Windows 95/98/Me Taskbar Notification Area

MORE INFORMATION

Step-by-Step Example

1. Start Visual Basic. Form1 is created by default.
2. Change the form's icon property to the icon that should be shown in the Taskbar Notification Area.
3. Draw three CommandButtons onto the form.
4. Select Module from the Insert menu to add a single code module to the project.
5. Add the following code, consisting of function, type, and constant declarations, to Module1:

         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
   
         Global Const NIM_ADD = 0
         Global Const NIM_MODIFY = 1
         Global Const NIM_DELETE = 2
         Global Const NIF_MESSAGE = 1
         Global Const NIF_ICON = 2
         Global Const NIF_TIP = 4
   
         Declare Function Shell_NotifyIconA Lib "SHELL32" _
         (ByVal dwMessage As Long,  lpData As NOTIFYICONDATA) As Integer
   					

6. The following code is a function that takes the parameters that need to be set for the NOTIFYICONDATA type and returns a variable of this type. Add to Form1:

         Private Function setNOTIFYICONDATA(hWnd As Long, ID As Long, _
             Flags As Long, CallbackMessage As Long, Icon As Long, _
             Tip As String) As NOTIFYICONDATA
   
             Dim nidTemp As NOTIFYICONDATA
   
             nidTemp.cbSize = Len(nidTemp)
             nidTemp.hWnd = hWnd
             nidTemp.uID = ID
             nidTemp.uFlags = Flags
             nidTemp.uCallbackMessage = CallbackMessage
             nidTemp.hIcon = Icon
             nidTemp.szTip = Tip & Chr$(0)
   
             setNOTIFYICONDATA = nidTemp
         End Function
   					

7. The three procedures in this block of code call the function created in step 5 to add, modify, and remove Taskbar Notification Area icons. Add this code to Form1 also:

         Private Sub Command1_Click()
             'Add an icon.  This procedure uses the icon specified in
             'the Icon property of Form1. This can be modified as desired.
   
             Dim i As Integer
             Dim s As String
             Dim nid As NOTIFYICONDATA
   
             s = InputBox("Enter string:")
             nid = setNOTIFYICONDATA(hWnd:=Form1.hWnd, _
                                     ID:=vbNull, _
                                     Flags:=NIF_MESSAGE Or NIF_ICON _
                                     Or NIF_TIP, _
                                     CallbackMessage:=vbNull, _
                                     Icon:=Form1.Icon, _
                                     Tip:=s)
   
                i = Shell_NotifyIconA(NIM_ADD, nid)
            End Sub
   
            Private Sub Command2_Click()
                'Modify an existing icon. This procedure uses the icon
                'specified in the Icon property of Form1. This can be modified
                'as desired.
   
                Dim i As Integer
                Dim s As String
                Dim nid As NOTIFYICONDATA
   
                s = InputBox("Enter string:")
                nid = setNOTIFYICONDATA(hWnd:=Form1.hWnd, _
                                        ID:=vbNull, _
                                        Flags:=NIF_MESSAGE Or NIF_ICON _
                                        Or NIF_TIP, _
                                        CallbackMessage:=vbNull, _
                                        Icon:=Form1.Icon, _
                                        Tip:=s)
   
                i = Shell_NotifyIconA(NIM_MODIFY, nid)
            End Sub
   
            Private Sub Command3_Click()
                'Delete an existing icon.
   
                Dim i As Integer
                Dim nid As NOTIFYICONDATA
   
             nid = setNOTIFYICONDATA(hWnd:=Form1.hWnd, _
                                     ID:=vbNull, _
                                     Flags:=NIF_MESSAGE Or NIF_ICON _
                                     Or NIF_TIP, _
                                     CallbackMessage:=vbNull, _
                                     Icon:=Form1.Icon, _
                                     Tip:="")
   
             i = Shell_NotifyIconA(NIM_DELETE, nid)
         End Sub
   					

8. Press the F5 key or select Start from the Run menu to run the application. Click the first button and enter a text string to add an icon. Click the second button to modify an existing icon, and the third to delete the icon.