Ejemplos usando el Api de windows para Visual basic

182 - Agregar ScrollBar horizontal a un ListBox

<Volver> - Anterior - Siguiente



 

 

 

Contenido

 

 

 

 


Ejemplo 1

Ejemplo que usa la función api SendMessage con el mensaje LB_SETHORIZONTALEXTENT, para poder añadir un ScrollBar horizontal a un ListBox

vista del formulario de ejemplo para aplicar scrollbar horizontal a los controles listbox

 

En este ejemplo , para aplicar el Scrolllbar al listbox, se le envía como parámetro a SendMessage lo siguiente

ret = SendMessage(" Hwnd del control Listbox ", Mensaje LB_SETHORIZONTALEXTENT, " Ancho del Scrollbar en pixeles ", " valor nulo ")

 

Para obtener el ancho del texto del item mas largo, se usa la función GetTextExtentPoint32 ( aunque se podría obviar esta función y utilizar la de vb )

 

Controles

 

Código fuente en el formulario

 

Código fuente en un módulo bas

 


Ejemplo 2

Este otro código fuente es muy simple, y puede ser útil para cuando deseamos mostrar rutas y archivos en una lista, y luego de añadir los paths al control, poder aplicar la barra horizontal, y de este modo poder visualizar items donde el ancho sea superior al ancho que tenga el control. El ejemplo es igual al anterior, lo único que difiere es que utiliza la función TextWidth de vb, en vez de la función GetTextExtentPoint32, para poder obtener el ancho del texto, y luego con ese valor, poder enviárselo a SendMessage.

Agregar un botón y un listbox.

Código en el Form

Código fuente en un BAS

 


Enlaces relacionados



Buscar en Recursos vb