Imprimir Página - 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
;D

Foro de elhacker.net

Programación => Ejercicios => Mensaje iniciado por: kokecola2k2 en 4 Diciembre 2004, 22:32 pm