Arreglo que cambie los datos de un texbox

[martinez7z]

Hola a todos, resulta que tengo 3 TextBox y 1 button y necesito que al hacer clic en el boton aparezca cualquier texto en cada uno de los Text Box y luego otra vez hacer click y aparezca nuevos datos.

He intentado hacerlo de esta manera

Private Type Agenda
nombre As String
apellido As String
telefono As Long
End Type
Dim personas(1 To 3) As Agenda


Private Sub Command1_Click()

personas(1).nombre = "Juan"
personas(1).apellido = "Martines"
personas(1).telefono = 2851452

personas(2).nombre = "Miguel"
personas(2).apellido = "Gonzalez"
personas(2).telefono = 2851452

personas(3).nombre = "Gina"
personas(3).apellido = "Ramires"
personas(3).telefono = 2854544

For x = 1 To 3
Text1 = personas(x).nombre
Text2 = personas(x).apellido
Text3 = personas(x).telefono
Next

End Sub

pero me sale error de variable no definida

[Gakex]

Tendras queverificar tu forma de pensar pues tienes errores logicos, por ejemplo el for se ejecutara de un jalon del principio a fin mostrandote siempre el ultimo dato, en todo caso usa un select case, o inclusive mucho mejor directamente aprobechando que es un arreglo solo agrega una variable para usarla como indice, al inicio la incrementas en 1 despues llenas los textbox con la variable(x) donde x sea igual al indice, finalmente pones una condicion si el indice es = al maximo de tu arreglo regresala a cero.

Tambien asignar los valores al arreglo en otro procedimiento para liverar este de un peso inecesario la segunda vez que hagas click, por ejemplo en form_load

te recomiendo utilizar el option explicit para que no te falte ninguna variable.

Bienvenido.

[pkj]

Gakex tiene razón. Tienes que cargar el arreglo solo al comenzar y en el boton usar un indice para mostrar los datos del 1º, 2º y 3º sucesivamente.

El error te lo muestra porque no has declarado la variable X.

De todas formas el bucle For x está mal, ya que mostrarías siempre los datos de la tercera persona.