tablas, combobox y listbox

Lo que necesito es:
poner un combobox como lista desplegable con 3 opciones
despues abajo poner un textbox, para meter un nombre, y que según la opcion elegida en el combobox se meta en una tabla, en su lugar correspondiente. Al tener el combobox 3 opciones, la tabla será de 3 dimensiones, asi que si elijo lo opcion 1, se mete en la dimension 1, si elijo la 2, se mete en la 2 y si elijo la 3 en la 3, y dspues se meta todo lo de la tabla en un listbox, todo esto apartir de un boton, como se haria?

Hola

Citar

poner un combobox como lista desplegable con 3 opciones

Código:

sub main

'poner las tres opciones al combo en caliente
combo1.additem "Opcion 1"
combo1.additem "Opcion 2"
combo1.additem "Opcion 3"

end sub

Citar

despues abajo poner un textbox, para meter un nombre,

Código:

sub Command1_Click
'comprobar que hay un nombre escrito en el textbox
if text1='"" then
exit sub
endif
'comprobar que hay algo elegito en el combo
if combo1.listindex=-1 then
exit sub
endif

Citar

Al tener el combobox 3 opciones, la tabla será de 3 dimensiones, asi que si elijo lo opcion 1, se mete en la dimension 1, si elijo la 2, se mete en la 2 y si elijo la 3 en la 3

Código:

tabla(combo1.listindex)=text1
end sub

Citar

dspues se meta todo lo de la tabla en un listbox, todo esto apartir de un boton

Código:

sub command2_click
for x%=0 to ubound(tabla(combo1.listindex))-1
list1.additem tabla(x%)
next x%
end sub

Un saludo

hard-h2o modding Foros de ayuda Yashira.org Videojuegos indetectables.net

Noticias Informatica Seguridad Informática ADSL Foros en español eNYe Sec

Todas las webs afiliadas están libres de publicidad engañosa.