haremos un programa de acuerdo alos vectores, al tema anterior
donde mostremos una pantalla que llebe 3 botones de comando y agregaremos otro formulario donde se vean los datos y 1 boton de comando que me regrese
de tal manera que se muestre de la siguiente manera el primer formulario
ok la codificacion que se mostrara en el primer formulario en introducir datos debe ser la siguiente:
Dim I As Integer
Dim YO(10) As String
Private Sub Command1_Click()
For I = 1 To 10
YO(I) = InputBox("Teclee el valor del nombre", "datos")
Next I
End Sub
y en el boton mostrar datos la codificacion es:
Private Sub Command2_Click()
For I = 1 To 10
Form2.List1.AddItem YO(I)
Next I
Form2.Show
Form1.Hide
el boton salir pues END
en el segundo formulario debemos ingresar un listbox y un boton de comando que diga regresar
ok en este solo modificaremos el boton regresar con lo siguientes codigos:
Form1.show
form2.hide
al ejecutar el programa el resultado debe ser el siguiente, despues de ingresar los nombres:
