Ayuda en Visual Basic 6

[JCNN]

hola, miren medejaron un trabajo en la universidad en visual basic pero lo malo es que soy muy novato en este programa lo que medejaron hacer es un programita que me almacene 20 nombre teniendo un textbox un CMB y list pero los nombres los tengo que almacenar en un arrego pero hay esta lo malo no tengo ni idea de como se como se declara el arreglo pero nose como hacer que lo que yo escriba en el texbox me lo almacene en el arrego ayuda porfabor

[David]

¿No se supone que deberían enseñarte primero antes de darte un ejercicio para hacer? .

Bueno, tal vez deberías explicarte mejor porque yo no he entendido, si guardas en un arreglo los datos se perderán al salir del programa, así que ¿para qué guardarlos en el arreglo si ya están en los campos de texto? .

[JCNN]

si mira esque tengo que guardar 20 nombres desde un textbox hacia un arreglo se que solo lo guardara mintras el programa esta en ejecucion pero no se como hacer eso

[David]

¿Qué es lo que sabes hacer o qué es lo que has intentado?. Además, ¿cómo estarían separados los datos dentro del TextBox?.

[JCNN]

mira cre mi arreglo lo llame asi Dim Nombres (1 to 20) as string
tengo un CMB donde estoy haciendo un For x = 1 to 20
Nombres (x) = Tex_Nombres.Text
pero no se como hacer que me almacene las parablas que escriba en texbox me el arreglo

[David]

Si las palabras del TextBox están separadas por un espacio puedes usar Split cuyo valor devuelto es precisamente un array.

[culd]

Código:

Dim Nombres(1 To 20) As String

Private Sub Form_Load()
Dim X As Integer

For X = 1 To 20
    Nombres(X) = InputBox("Ingrese el nombre")
Next X

Dim Listadodenombres As String
For X = 1 To 20
    Listadodenombres = Listadodenombres & vbNewLine & Nombres(X)
Next X

MsgBox "LOS NOMBRES SON: " & vbNewLine & Listadodenombres
End Sub

[JCNN]

gracias por la ayuda

[JCNN]

Iniciado por culd

Código:

Dim Nombres(1 To 20) As String

Private Sub Form_Load()
Dim X As Integer

For X = 1 To 20
    Nombres(X) = text1.tex ' quiero que me carge los  nombres desde el text1
Next X

y de pues que me los mande los nombres hacia un list1.text
Dim Listadodenombres As String
For X = 1 To 20
    Listadodenombres = Listadodenombres & vbNewLine & Nombres(X)
Next X

MsgBox "LOS NOMBRES SON: " & vbNewLine & Listadodenombres
End Sub

todo esto mientas oprimo en un CMB

[David]

¿Has investigado sobre la función Split que te comenté?. Además, para agregar a un ListBox debe ser ListBox.AddItem, y para que se ejecute en el ComboBox usa el evento Click.

[JCNN]

MI ESTO ES LO QUE E ECHO PERO EL PROBLEMA ESTA AL VALIDAR LAS PALABRAS QUIERO QUE SE INGRESEN UNO POR UNO NO LAS 20 DE UNAVES COMO LE PUEDO HACER

Private Sub Command1_Click()
Text1.Text = Format(Text1.Text, ">")

If Text1.Text = Empty Then
MsgBox " No has escrito ningun Nombre"
Text1.SetFocus
Else

For x = 1 To 20
Nombres(x) = Text1.Text
List1.AddItem Nombres(x)
Next

End If

End Sub

[David]

Entonces lo único que necesitas es tener un contador (una variable que tenga alcance en todo el módulo), y luego en vez de usar ese bucle For añade al siguiente elemento del array:

Código vb:

Nombre(Contador) = Text1.Text
Contador = Contador + 1
List1.AddItem Nombre(Contador)
 

[JCNN]

no te compreindi muy bien primero creo mi variable en un modulo la llamo
Dim contador as String
despues don de pongo el contador ?

[David]

Primero, que no debe ser un String, debe ser un Byte.

Y segundo, que ya puse el código de cómo debes hacer el contador, le añades 1 cada vez que haces click en el botón y agregas al array.