Jaobhcadlesfo:
Bien, no has buscado tanto, te hubiese alcanzado con presionar F1. La ayuda de VB (parte del MSDN) trae toda la info y ejemplos que necesitás. Igual aquí van algunos, rl combodel ejeplo se denomina cbo
'Llenar un Cbo :
'Juan queda detrás de Pedro
cbo.additem "Pedro"
cbo.additem "Juan"
'Si deseo colocar a Sandra entre pedro y Juan queda
cbo.Additem "Sandra",1
'La cantidad de elementos de un combo se obtiene con la propiedad listcount, el primer elemento de un combo es el 0 y el último listcount-1. Para obtener un elemento en particular, por ejemplo el elemento 2, se utiliza listitem. EL valor actual del combo lo dá la propiedad Text. Si el combo no tiene elementos, listcount=0, si los tiene, pero no hay elementos seleccionados, listitem=-1. El siguiente ejemplo recorre el combo y envía el texto de cada línea a la ventana de depuración (Se abre con Ctrl + G, normalmente hay que estirarla)
dim k as long
if cbo.ListCount<1 then exit sub
for k=1 to cbo.listcount -1
cbo.Listitem=k
debug.print cbo.Text
next k
Si quiero asociar un número al texto de un combo, se guarda así:
cbo.additem "Pedro"
cbo.ItemData(cbo.NewItem)=7
cbo.Additem "Sandra"
cbo.ItemData(cbo.NewItem)=8
cbo.additem "Juan"
cbo.ItemData(cbo.NewItem)=9
Para recuperar el número asociado con el registro actual es de esta manera
debug.print cbo.Itemdata(cbo.listitem) 'envía el resultado a la ventana de depuración
Saludis Ruri