Necesito llenar un vector de nombres con solo un textbox, es decir que cuando digiten el primero, en el mismo pidan el segundo y asi, no logro que lo haga pues con el primero llena todo el vector

Public Class Form1
Dim n(4) As String

Sub almacena(ByRef nom() As String)
For rc As Integer = 0 To 4
nom(rc) = TextBox1.Text
Next

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
almacena(n)
End Sub

End Class

Iniciado por yruiz75

Necesito llenar un vector de nombres con solo un textbox, es decir que cuando digiten el primero, en el mismo pidan el segundo y asi, no logro que lo haga pues con el primero llena todo el vector

Public Class Form1
Dim n(4) As String

Sub almacena(ByRef nom() As String)
For rc As Integer = 0 To 4
nom(rc) = TextBox1.Text
Next

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
almacena(n)
End Sub

End Class

Buenas prueba esto

Public Class Form1
Dim n(4) As String
Dim pos as Byte

Sub almacena(ByRef nom() As String)
'For rc As Integer = 0 To 4
'nom(rc) = TextBox1.Text
'Next
nom(pos) = TextBox1.Text
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
pos = pos + 1
almacena(n)
End Sub

End Class


En el Load del Form inicializa la variable 'pos = 0'.

Espero te sirva, abrazo

<<[[Mikol]]>>

Gracias pero aun no soluciono mi problema pues esto lo llena de dato en dato y yo necesito que lo haga ciclicamente hasta completar los 5 registros