Ejemplos usando el Api de windows para Visual basic

179 - ToolTipText con formulario

Ejemplo para crear un toolTipText con un formulario y que se mueva junto el cursor

El siguiente ejemplo usa las funciones del api GetCursorPos, SetWindowPos y SetTimer para crear un ToolTip que se posiciona junto al mouse, es decir se mueve junto al cursor.

Para posicionar el formulario que actúa como ToolTip , se usa la función GetCursorPos que permite recuperar las coordenadas del cursor. El api SetWindowPos se usa para poner el form siempre visible por encima de las demás ventanas . Y el api SetTimer para el temporizador

También hay dos rutinas , una llamada Mostrar_ToolTip a la cual se le deba pasar como parámetro el Formulario que actúa como ToolTip, el texto a mostrar, el color de fondo y el color del texto

La otra rutina es Eliminar_ToolTip y es para finalizarlo

Controles

Al formulario principal agregar dos CommandButton y un TextBox Multilinea , El Command1 es para mostrar y crear el ToolTipText. El Command2 lo elimina y el textbox para el texto

vista del formulario de ejemplo para crear el tooltiptext

Nota : en este otro enlace, podés ver este mismo ejemplo pero tiene una opción mas para poder mostrar el ToolTipText con imágenes y gráficos

Agregar otro formulario, por ejemplo Form2, para el ToolTip. A este form quitarle los bordes ( BorderStyle = 0)

Agregar un módulo bas que tiene el código que crear el tooltip y las declaraciones del api

Código fuente en form1

' Botón que muestra el tooltiptext Private Sub Command1_Click() Dim texto As String Call Mostrar_ToolTip(Form2, Text1.Text, &HC0FFFF, vbBlack) End Sub ' Botón que lo elimina Private Sub Command2_Click() Call Eliminar_ToolTip End Sub Private Sub Form_Load() Command1.Caption = " Mostrar ToolTip " Command2.Caption = " Cerrar ToolTip " Text1 = " Hola ... " & vbNewLine & _ " .....Mundo !!!" & vbNewLine & _ " ---------------------------" End Sub Private Sub Form_Unload(Cancel As Integer) Call Eliminar_ToolTip End Sub

Código fuente en el módulo bas

' Para colocar la ventana en primer plano Private Declare Function SetWindowPos Lib "user32" ( _ ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal cx As Long, _ ByVal cy As Long, _ ByVal wFlags As Long) As Long ' Constantes para el api SetWindowPos Private Const SWP_NOMOVE = &H2 Private Const SWP_NOSIZE = &H1 Private Const HWND_TOPMOST = -1 Private Const HWND_NOTOPMOST = -2 'Recupera las corrdenadas del mouse Private Declare Function GetCursorPos Lib "user32" ( _ lpPoint As POINTAPI) As Long 'Estructura POINTAPI necesaria para el api GetCursorPos Private Type POINTAPI x As Long y As Long End Type ' Función que crea un timer Declare Function SetTimer Lib "user32" ( _ ByVal hwnd As Long, _ ByVal nIDEvent As Long, _ ByVal uElapse As Long, _ ByVal lpTimerFunc As Long) As Long ' Función que detiene el timer iniciado Declare Function KillTimer Lib "user32" ( _ ByVal hwnd As Long, _ ByVal nIDEvent As Long) As Long 'Variables Dim m_Form As Form ' para el form que hace de tooltiptext Dim elLabel As Label ' para crear un label en tiempo de ejecución ' Crea y Muestra el ToolTipText '***************************************************** Sub Mostrar_ToolTip(El_Form As Form, _ Texto As String, _ Color_De_Fondo As Long, _ color_Texto As Long) ' Elimina el toolTip por si estaba cargado Call Eliminar_ToolTip ' Referencia el formulario que actúa como _ ToolTip a una variable local de tipo Form Set m_Form = El_Form ' Crea un label en tiempo de ejecución ( para el texto del tooltip ) Set elLabel = m_Form.Controls.Add("vb.Label", "lb1") ' Propiedades para el label With elLabel .Caption = Texto .BackStyle = 0 .AutoSize = True .ForeColor = color_Texto .Left = 100 .Top = 100 .Visible = True End With ' Propiedades para el formulario With m_Form .BackColor = Color_De_Fondo ' Ancho y alto .Width = elLabel.Width + 250 .Height = elLabel.Height + 250 ' para que al repintar mantenga el borde .AutoRedraw = True End With ' Dibuja el borde al formulario ' Linea blanca superior m_Form.Line (0, 0)-(m_Form.ScaleWidth, 0), &H80000009, B m_Form.Line (0, 0)-(0, m_Form.ScaleHeight), &H80000009, B ' Linea negra inferior m_Form.Line (0, m_Form.ScaleHeight - 10)- _ (m_Form.ScaleWidth, m_Form.ScaleHeight - 10), vbBlack, B m_Form.Line (m_Form.ScaleWidth - 10, 0)- _ (m_Form.ScaleWidth - 10, m_Form.ScaleHeight), vbBlack, B ' Coloca el formulario Alwaysontop SetWindowPos m_Form.hwnd, HWND_TOPMOST, 0, 0, 0, 0, _ SWP_NOMOVE + SWP_NOSIZE ' Activa el timer en un milisegundo SetTimer m_Form.hwnd, 0, 1, AddressOf TimerProc ' Mostramos el form m_Form.Visible = True End Sub ' Procedimiento del Timer Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, _ ByVal uElapse As Long, ByVal lpTimerFunc As Long) Dim mouse As POINTAPI ' REcupera la posición del mouse GetCursorPos mouse ' Posiciona el formulario en las coordenadas del cursor m_Form.Left = (mouse.x * Screen.TwipsPerPixelX) + 100 m_Form.Top = (mouse.y * Screen.TwipsPerPixelY) + 100 End Sub ' Remueve el ToolTip Sub Eliminar_ToolTip() ' Por si se intenta ejecutar la Sub, y el form no está referenciado If m_Form Is Nothing Then Exit Sub End If ' Finaliza el timer KillTimer m_Form.hwnd, 0 ' DEscarga el formulario Unload m_Form Set m_Form = Nothing End Sub

Enlaces relacionados

ToolTips y BallonTips - Ejemplos

Buscar en Recursos vb