Ejemplos usando el Api de windows para Visual basic

194 - ToolTiptext en FileListBox

Ejemplo enviado por Enrique F Valdez , que muestra como usar ToolTipText en un FileListBox para visualizar algún dato extra de un archivo, como por ejemplo el tamaño, fecha etc...

El ejemplo usa la función SendMesage , el mensaje LB_GETITEMHEIGHT y el valor de la propiedad TopIndex, para a partir de la posición " y " del mouse en el evento MouseMove del Filelistbox, poder seleccionar el item al mover el puntero sobre el control.

Vista del formulario

vista del formulario para poder mostrar el tooltiptext en el filelistbox al mover el mouse sobre un item del control

Controles

Agregar un control FileListbox

Código fuente en el formulario

Option Explicit ' Declaración de la función api SendMessage Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _ ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long ' Mensaje para SendMessage Private Const LB_GETITEMHEIGHT As Long = &H1A1 '************************************************************************ Private Sub File1_MouseMove(Button As Integer, Shift As Integer, _ x As Single, y As Single) Dim Alto As Long Dim Seleccionado As Long Dim ToolTip As String Dim Fsize As String Dim creacion As String Static Anterior As Long ' Calcula el item a partir de la posición y del mouse Alto = SendMessage(File1.hWnd, LB_GETITEMHEIGHT, 0, ByVal 0&) Alto = File1.Parent.ScaleY(Alto, 3, 1) Seleccionado = File1.TopIndex + (y / Alto) If Seleccionado <> Anterior Then If Seleccionado < File1.ListCount Then ' Obtiene el tamaño del archivo Fsize = "Tamaño : " & CStr(FormatNumber(FileLen( _ File1.List(Seleccionado)) _ / 1000, 2)) & " Kbytes " ' Obtiene la fecha creacion = "Fecha del archivo :" & FileDateTime(File1.List(Seleccionado)) ' ToolTip File1.ToolTipText = Fsize & " * " & creacion ' Selecciona el item File1.ListIndex = Seleccionado Else File1.ToolTipText = "" End If Anterior = Seleccionado End If End Sub

Relacionados

ToolTips y BalloonTips - Ejemplos

Buscar en Recursos vb