PEGAR UMA CERTA LINHA DO TEXTBOX MULTILINE

JIMMY 06/10/2009 11:29:00
#324571
Galera, estou com um textbox multiline e quero pegar por exemplo o que está escrito na linha 1 e imprimir em um label por exemplo.
Como faço?

Obrigado, aguardo respostas.
TECLA 06/10/2009 11:51:06
#324574 Resposta escolhida
Tente isto:

Private Sub Command1_Click()
[txt-color=#0B6138][ô]Devolver a primeira linha do TextBox[/txt-color]
Dim vetor() As String
vetor() = Split(Text1, vbCrLf)
MsgBox vetor(0)
End Sub


Private Sub Form_Load()
[txt-color=#0B6138][ô]TextBox usado como exemplo[/txt-color]
Text1 = [Ô]Linha1[Ô] & vbCrLf & [Ô]Linha2[Ô] & vbCrLf & [Ô]Linha3[Ô]
End Sub
JIMMY 06/10/2009 12:55:07
#324581
Obrigado amigo.
Deu certo.
Abraços.
Tópico encerrado , respostas não são mais permitidas
Voltar