Scribd
Upload
46 views2 pages

Balloon Tooltips VB Net

The document describes code for adding a notification icon to the system tray in Windows and sending balloon tooltip messages from it. The code sample shows how to add the icon, modify it to send messages, and the different types of messages that can be sent.

Uploaded by

jacquesgeorges53
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
46 views2 pages

Balloon Tooltips VB Net

The document describes code for adding a notification icon to the system tray in Windows and sending balloon tooltip messages from it. The code sample shows how to add the icon, modify it to send messages, and the different types of messages that can be sent.

Uploaded by

jacquesgeorges53
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 2

//**************************************

// Name: Balloon Tooltips


// Description:Adds an icon on the systray, where you can send Windows
XP / 2000 style balloon messages
// By: Rodrigo Sandoval
//
//
// Inputs:None
//
// Returns:None
//
//Assumes:You need to know how to call Windows API and also the new model
of Visual Basic NET for imports
//
//Side Effects:None
//This code is copyrighted and has limited warranties.
//Please see
http://www.Planet-Source-Code.com/xq/ASP/txtCodeId.68/lngWId.10/qx/vb/
scripts/ShowCode.htm
//for details.
//**************************************

'//Before the declaration of the module


// put the following line...
Imports System.Runtime.InteropServices
'//Now, put this code on the module....
//
Public Result as Boolean
Public Structure NOTIFYICONDATA
Dim cbSize As Int32
Dim hwnd As IntPtr
Dim uID As Int32
Dim uFlags As Int32
Dim uCallbackMessage As IntPtr
Dim hIcon As IntPtr
Dim szTip As String
Dim dwState As Int32
Dim dwStateMask As Int32
Dim szInfo As String
Dim uVersion As Int32
Dim szInfoTitle As String
Dim dwInfoFlags As Int32
End Structure
Public Const NIF_MESSAGE As Int32 = &H1
Public Const NIF_ICON As Int32 = &H2
Public Const NIF_STATE As Int32 = &H8
Public Const NIF_INFO As Int32 = &H10
Public Const NIF_TIP As Int32 = &H4
Public Const NIM_ADD As Int32 = &H0
Public Const NIM_MODIFY As Int32 = &H1
Public Const NIM_DELETE As Int32 = &H2
Public Const NIM_SETVERSION As Int32 = &H4
Public Const NOTIFYICON_VERSION As Int32 = &H5
Public Const NIS_HIDDEN = &H1
Public Const NIS_SHAREDICON = &H2
Public Const NIIF_ERROR = &H3
Public Const NIIF_INFO = &H1
Public Const NIIF_NONE = &H0
Public Const NIIF_WARNING = &H2
Public Const NIM_SETFOCUS = &H4
Public Const NIIF_GUID = &H5
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" _
Alias "Shell_NotifyIconA" (ByVal dwMessage As Int32, _
ByRef lpData As NOTIFYICONDATA) As Boolean
Public uNIF As NOTIFYICONDATA
'//Before the declaration of the Form Cl
// ass add the following code
Imports System.Runtime.InteropServices
'//and now in your form put this code in
// the load event
// '// Adds the icon
With uNIF
.cbSize = Marshal.SizeOf(uNIF)
.hwnd = Me.Handle
.uID = 1
.dwInfoFlags = NIF_ICON Or NIF_MESSAGE
.uCallbackMessage = New IntPtr(&H500)
.uVersion = NOTIFYICON_VERSION
.hIcon = Me.Icon.Handle
End With
Result = Shell_NotifyIcon(NIM_ADD, uNIF)
// '// Send a balloon message
With uNIF
.uFlags = NIF_INFO
.uVersion = 2000
.szInfoTitle = "Test"
.szInfo = "Testing 1,2,3 Testing"
.dwInfoFlags = NIIF_INFO
End With
Result = Shell_NotifyIcon(NIM_MODIFY, uNIF)
'//if you want to send a balloon message
// with
'//the error icon just change de dwInfoF
// lags to
'//NIIF_ERROR, or for a warning NIIF_WAR
// NING and
'//so on, if you want to send messages i
// n other
'//parts of your project just put the co
// de that
'//sends the balloon message in the even
// t,
'//CAUTION: if you don't put the Add ico
// n code
'//in your main form load event you will
// not be
// '//able to receive balloon messages.
'//Please send me your comments to drkmo
// use@prodigy.net.mx

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy