VBA cuadro de lista de varias columnas añadir

Question

Possible Duplicate:
Adding items in a Listbox with multiple columns

Con MFC de VC++ existen dos controles, ListBox y ListCtrl. Pero con VBA parece que solo tenemos ListBox.

Quiero crear un cuadro de lista con 2 columnas (Company_ID, Company_Name).

Aquí es lo que he intentado:

1. creé lstbox (tipo de control ListBox)
2. Fila tipo de fuente = lista de valores
3. estoy tomando el valor del usuario a partir de dos cuadros de edición y cuando el usuario hace clic "agregar", entonces debe agregarse al cuadro de lista con 2 columnas.

En la rutina de código VBA que añade las siguientes líneas:

lstbox.ColumnCount = 2 
lstbox.AddItem (Company_ID) 

el siguiente código no está trabajando, lo cual parece estar relacionado con la adición de valor de la columna:

lstbox.Column(1,lstbox.ListCount - 1) = Company_name 

Esto da error :

Runtime error '424' object required.

¿Alguien podría ayudar con ingenio h Código vba para agregar al cuadro de lista de múltiples columnas.

Answer 1

ejemplo simplificado (con el contador):

With Me.lstbox 
    .ColumnCount = 2 
    .ColumnWidths = "60;60" 
    .AddItem 
    .List(i, 0) = Company_ID 
    .List(i, 1) = Company_name 
    i = i + 1 

end with 

Asegúrese de iniciar el mostrador con 0, no 1 para llenar un cuadro de lista.