Ante todo quiero agradecer enormemente a Nayan Patel por su artículo
How to display balloon style tooltip Los tooltips son las cajitas amarillas que muestra windows cuando se posa el cursor del mouse sobre un objeto. Desde sus inicios (win95 en adelante) se hace para avisar o dar un mensaje al usuario sobre alguna particularidad de una manera sencilla y amigable.
a partir de los win con núcleo de 32 bits (NO Win9x) se incluye un estílo diferente de los tooltips, llamados Balloon y son los que comunmente vemos en la barra de tareas cuando se detecta un nuevo dispositivo, se caracteriza por cambiar su forma rectangular a una forma de globo y con un ícono en la parte superior izquierda con un fondo cuasi-amarillo, similar a la de los dialogos de personajes en las revistas de comics
Es posible usar esos balloon en nuestras aplicaciones en VB y así darle un toque artistico y elegante a nuestros programas.
La base de todo esto, es una clase llamada CBalloonToolTip.cls que contiene lo necesario para usar los balloon tooltips.
Nota: los balloon que se muestran en la barra de tareas se programan de otra forma y será mas adelante que se incluya en este hilo
vamos a dar un ejemplo para ver como usar ese tipo de "ventanas"
- abrir un nuevo formulario en vb.
- Incluir (Ctrl+D) el archivo CBalloonToolTip.cls que es el módulo de clase que aglutina toda la programación concerniente al balloon tooltips.
- en el form, crear una variable nueva derivada de la clase CBalloonToolTip. ej.
Dim ttb_txtmensaje As New CBalloonToolTip
en el procedimiento Form_Load configuramos los parametros que tendrá nuestro Balloon
allí vemos varias propiedades, de acuerdo a las que estudié, son:
.BackColorColor del fondo del Balloon, es conocido, pongamosle azul
.Centeredbooleano que indica que el balloon apunta al centro del objeto en el que se instancia
vamos a dejarlo en true por los momentos
nota:
instanciar significa que se le pasará el manejador ó número identificador de objeto (hWnd)
.DelayTimeel tiempo en ms que tardará en aparecer cuando se active el evento
.ForeColorel color de la letra, sino colocamos nada, quedará por defecto negro
.Iconel ícono que se mostrará. hay 4 tipos: el de error, advertencia, mensaje y sin ícono.
.Styleel que nos dirá si queremos la cajita amarilla ó el balloon
.Titleel título del mensaje
.TipTextel mensaje a mostrar
.VisibleTimeel tiempo en milisegundos que durará antes de desaparecer.
.CreateToolTiprecoge el manejador del objeto en cuestión (si es que el objeto en visual posee esa propiedad hWnd)
.Showsirve para mostrar el balloon en el área que queramos, para ello .Centered = false
.Destroymuy importante para eliminar la ventana al descargar el formulario
un ejemplo:
' manjeando los Balloon ToolTips
'
Option Explicit
Dim ttb_txtmensaje As New CBalloonToolTip
Private Sub Form_Load()
With ttb_txtmensaje
.Style = TTBalloon
.Icon = TTIconInfo
.Title = "Titulo"
.TipText = "Holas :D"
.BackColor = vbRed
.ForeColor = vbYellow '
.Centered = True
.DelayTime = 300
.VisibleTime = 50000
'.Show 0, Text1.Height / Screen.TwipsPerPixelX - 1, Me.Text1.hwnd '//In Pixel only
.CreateToolTip Text1.hwnd
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
ttb_txtmensaje.Destroy
End Sub
las ventanas generadas del ejemplo:
Notas:
- para ejecutar correctamente el ejemplo deben incluir en el proyecto (Ctrl+D), el archivo CBalloonToolTip.cls que lo pueden bajar en la misma página del artículo
http://binaryworld.net/Main/Articles/Lang1/Cat268/Code3603/code3603.zip- si miran dentro de CBalloonToolTip.cls todo está hecho a punta de APIS, bien chevere, quiere decir que con poco esfuerzo podemos portar esas estructuras a otros lenguajes (ej C Builder) espero poder hacerlo algún dia.
