Ejemplos usando el Api de windows para Visual basic

90 - Ejemplo para desplegar un diálogo de tipo Balloon en el systray

Volver al Listado Api - Anterior - Siguiente

Este ejemplo permite colocar como muestra la imagen un balloon tip o diálogo de información al notificar el ícono del ejecutable en la barra de windows

Programa en el systray con el Balloon tip

vista del balloon desplegado en el systray con el texto y el título

Colocar los siguientes controles como muestra esta imagen:

vista del ejemplo en visual basic para colocar los controles en el formulario

Text1: Acá se escribe el título que mostrará el diálogo (se le asigna a la variable szInfoTitle )
Text2: texto del diálogo ( Se modifica la variable szInfo )
Command1: Notifica en el systray
Command2: Desplega el diálogo
Command3: Elimina el ícono del Systray
Un Picture1 con un ícono

Nota : para establecer los diferentes estilos de Ballon tips , usar las constantes NIIF_NONE ( sin ícono ), NIIF_WARNING ( de advertencia ), NIIF_ERROR ( de error ), y NIIF_INFO ( ícono de información como el que está en la imagen )

Código en un formulario

Option Explicit 'Estructura NOTIFYICONDATA para usar con Shell_NotifyIcon Private Type NOTIFYICONDATA cbSize As Long hWnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * 128 dwState As Long dwStateMask As Long szInfo As String * 256 uTimeout As Long szInfoTitle As String * 64 dwInfoFlags As Long End Type 'Variable para la estructura anterior Private sysTray As NOTIFYICONDATA 'Constantes Private Const NOTIFYICON_VERSION = 3 Private Const NOTIFYICON_OLDVERSION = 0 Private Const NIM_ADD = &H0 Private Const NIM_MODIFY = &H1 Private Const NIM_DELETE = &H2 Private Const NIM_SETFOCUS = &H3 Private Const NIM_SETVERSION = &H4 Private Const NIF_MESSAGE = &H1 Private Const NIF_ICON = &H2 Private Const NIF_TIP = &H4 Private Const NIF_STATE = &H8 Private Const NIF_INFO = &H10 Private Const NIS_HIDDEN = &H1 Private Const NIS_SHAREDICON = &H2 Private Const NIIF_NONE = &H0 Private Const NIIF_WARNING = &H2 Private Const NIIF_ERROR = &H3 Private Const NIIF_INFO = &H1 Private Const NIIF_GUID = &H4 Private Const WM_MOUSEMOVE = &H200 Private Const WM_LBUTTONDOWN = &H201 Private Const WM_LBUTTONUP = &H202 Private Const WM_LBUTTONDBLCLK = &H203 Private Const WM_RBUTTONDOWN = &H204 Private Const WM_RBUTTONUP = &H205 Private Const WM_RBUTTONDBLCLK = &H206 ' Declaración Api Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" _ (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean Private Sub Command1_Click() With sysTray .cbSize = Len(sysTray) .hWnd = Me.Picture1.hWnd .uID = vbNull .uFlags = NIF_ICON Or NIF_INFO Or NIF_MESSAGE Or NIF_TIP .uCallbackMessage = WM_MOUSEMOVE .hIcon = Me.Picture1.Picture .szTip = " Acá colocar el toolTip " & vbNullChar .dwState = 0 .dwStateMask = 0 End With 'Notifica en el systray Shell_NotifyIcon NIM_ADD, sysTray End Sub Private Sub Command2_Click() With sysTray .cbSize = Len(sysTray) .hWnd = Picture1.hWnd .uID = vbNull .uFlags = NIF_ICON Or NIF_INFO Or NIF_MESSAGE Or NIF_TIP .uCallbackMessage = WM_MOUSEMOVE .hIcon = Me.Picture1 .szTip = " Acá colocar el toolTip" & vbNullChar .dwState = 0 .dwStateMask = 0 .szInfo = Text2 & Chr(0) .szInfoTitle = Text1 & Chr(0) .dwInfoFlags = NIIF_INFO .uTimeout = 100 End With 'Modifica el ícono con la información Shell_NotifyIcon NIM_MODIFY, sysTray End Sub Private Sub Command3_Click() ' Elimina el ícono de la barra de notificación Shell_NotifyIcon NIM_DELETE, sysTray End Sub Private Sub Form_Load() Command1.Caption = " Notificar en el Systray " Command2.Caption = " Mostrar el Balloon diálogo " Command3.Caption = " Eliminar del systray " Text1 = App.EXEName Text2 = " Ejemplo para colocar un Baloon tip en el systray " End Sub

Nota: también podés ver este control activex : Ocx Notify Icon

Enlaces relacionados

Buscar en Recursos vb