arrays VB 6

[cadrogui]

hola gente, estoy ayudando a mi primo con un trabajo en VB6 y arrays, pero no me acuerdo mucho..

el tema es que a partir de unos text box hay que ir agregando los valores a un array de forma dinámica

que tiene de malo esta sentencia que da error de out of range

Código:

Private Sub cmdIngresoClientes_Click()

ReDim Preserve Cliente_Data(UBound(Cliente_Data) + 1)
Cliente_Data  = Array(nombre.Text, rut.Text, direccion.Text, telefono.Text)

End Sub

esta definido en un modulo:

Public Cliente_Data() As Variant

gracias.

[CRauda]

No entiendo muy bien la parte de Array(nombre.Text, rut.Text, direccion.Text, telefono.Text)
Pero si lo que quieres es que de 1 textbox se vaya guardando en un array solo debes hacer esto:

Código:

Dim array() as String
dim i as integer = 0
Private Sub cmdIngresoClientes_Click()
Redim Preserve array(i)
array(i) = tutextbox.text
i = i + 1
end sub

si tienes varios textbox puedes crear varios arrays y recorrerlos al mismo tiempo con la misma variable i

Código:

Dim array() as String
Dim array2() as String
Dim array3() as String
Dim array4() as String
dim i as integer = 0

Private Sub cmdIngresoClientes_Click()
Redim Preserve array(i)
array(i) = tutextbox.text
Redim Preserve array2(i)
array(i) = tutextbox2.text
Redim Preserve array3(i)
array(i) = tutextbox3.text
Redim Preserve array4(i)
array(i) = tutextbox4.text
i = i + 1
end sub

y luego para recorrerlos solo haz un for

Código:

for j as integer = 0 to i -1 
'lo que debas hacer en array(j) ya sea mostrarlo o guardarlo en la base o lo que sea
next