Resumen Tabuladores en un listbox

>¿Hay alguna manera de mostrar información en columnas en una listbox o
>combobox? Yo llevo bastante tiempo intentando hacerlo pero nunca me lo
>pone bien. Sé que se puede hacer con una grid pero yo necesito un
>listbox y/o combobox.
Para mostrar información en columnas en un listbox puedes separar los
distintos datos mediante tabuladores (vbTab) y fijar los saltos de
tabulación según te convenga.
Tienes que tener en cuenta que cuando estableces saltos de tabulación las
unidades en que se indican son 1/4 del ancho medio de los caracteres de la
fuente que tenga el diálogo en el que está el listbox. Para que quede bien
añadiremos una unidad, es decir, si queremos "saltar" dos letras pondremos
9 : 4 x 2 (letras) + 1

Podemos establecer que por cada tabulador avance x unidades o indicar la
lista de posiciones a las que debe saltar.

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd
As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const LB_SETTABSTOPS = &H192

Para que avance dos letras por cada tabulador :
L = SendMessage(List1.hwnd, LB_SETTABSTOPS, 1&, 9&)

Para establecer una serie de posiciones de salto debemos definir un tipo de
dato cuyos campos sean de tipo long:

Type ListaTabuladores
    tab1 As Long
    tab2 As Long
    tab3 As Long
End Type
Dim Tabuladores As ListaTabuladores

Y llamar a la función indicando el nº de posiciones de tabulación que tiene
que tener en cuanta de la lista :

Tabuladores.Tab1 = 9:Tabuladores.Tab2 = 41:Tabuladores.Tab3 = 81
L = SendMessage(List1.hwnd, LB_SETTABSTOPS, 3&, Tabuladores)

De esta manera, por cada carácter chr$(9) que contenga el string que se
añade al listbox irá saltando a la siguiente posición de tabulación.

Por último comentar que los tabuladores deben estar ordenados
ascendentemente.

Un saludo.

_________________________________________________
José Rubí de la Vega
E-mail : jrubi@arrakis.es
WWW : http://www.arrakis.es/~jrubi
Podrás encontrar información sobre VB, la lista
VB-ESP y un resumen de los mensajes de la misma
ICQ # : 10939566



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com