De textbox multilinea a textbox independientes

[rapbyone]

Que tal amigos, espero esten bien, les cuento estoy desarrollando un proyecto de manera autodidacta y me encuentro con el siguiente desafio.

Tengo un texbox multilinea con una 10 lineas de texto, lo que quiero lograr es dividir cada linea del textbox en textboxs independientes.

Es decir la primera linea del textbox multilinea en un textbox la segunda línea en otro texbox y asi sucesivamente.

Espero su ayuda amigos
muchas gracias

Enviado desde mi LG-D805 mediante Tapatalk

[Shell Root]

Por ejemplo,

Código (vb) [Seleccionar] Expandir

Public Sub TextLine()
   Dim vLine() As String
   If Me.TextBox1.MultiLine = True Then
       vLine = Split(TextBox1.Text, vbNewLine)
       MsgBox vLine(UBound(vLine))
   End If
End Sub

[rapbyone]

Por ejemplo,

Código (vb) [Seleccionar] Expandir

Public Sub TextLine()
   Dim vLine() As String
   If Me.TextBox1.MultiLine = True Then
       vLine = Split(TextBox1.Text, vbNewLine)
       MsgBox vLine(UBound(vLine))
   End If
End Sub

Gracias estimado, funciona bien, pero solo muestra la ultima linea, hay alguna forma de poder escoger mostrar una linea determinada.

[Shell Root]

Es correcto, aquí en esta linea tienes la opciones para mostrar un determinado valor,

Código (vb) [Seleccionar] Expandir

MsgBox vLine(UBound(vLine))
' MsgBox   = Mostrar mensaje
' vLine    = Array
' UBound() = Obtener la ultima posicion del array
' Hay verga ajajjaa no me lo toma el GeSHi BUG! jajajajja

Entonces puedes recorrer el array y mostrar cada valor o puedes obtener un valor al alazar dentro del rango del array para mostrarlo.

[seba123neo]

si no siempre van a ser 10 lineas y pueden ser mas, entonces vas a tener que crear los textbox en tiempo de ejecucion y asignarle cada linea.