|
|
Postada em 13/06/2011 10:24 hs
Eu gostaria de uma coisa bem simples mesmo!
Tenho um campo texto multiline no formulário e gostaria que cada linha do campo texto fosse adicionado em uma listbox.
Alguma sugestão?
|
|
|
|
|
|
|
|
Postada em 13/06/2011 15:47 hs
se for para ler diretamente do txt seria bem mais facil. agora para ler de um textbox multiline va ser mas trabalhoso. mais se for separado por um carater, tipo: "," ";" "|" então usa split.
|
|
TÓPICO EDITADO
|
|
|
|
Daniel
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 13/06/2011 15:51 hs
Juan agradeço a resposta,
pelo Txt eu sei como fazer, preciso mesmo é ler um textbox.
Eu achei que seria bem simples mesmo, não tem separador apenas se considerar no textbox o Vbnewline ou algo semellhante.
Vou testar com o o split se ele aceita no final de cada linha do textbox o vbnewline.
|
|
|
|
Daniel
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 14/06/2011 08:33 hs
Eu testei usando o vbNeline e funcionou...
Porém agora ficou um grande detalhe
Cmo faço uma matriz dinâmica para saber quantas linhas tenho no Textbox.
Veja meu codigo abaixo.
apenas as 5 linhas dimensionadas que foram add no listbox, mas o textbox tem quantidades de linhas variadas.
Dim strTxt As String
Dim LineTxt() As String
strTxt = Me.Text1
ReDim LineTxt(15)
LineTxt() = Split(strTxt, vbNewLine)
Me.List1.AddItem LineTxt(0)
Me.List1.AddItem LineTxt(1)
Me.List1.AddItem LineTxt(2)
Me.List1.AddItem LineTxt(3)
Me.List1.AddItem LineTxt(4)
Me.List1.AddItem LineTxt(5)
Preciso mudar aqui:
dim i as integer
ReDim LineTxt(i)
for i até quantidade de linhas no textbox
Me.List1.AddItem LineTxt(i)
next i
Alguém me ajuda nesta parte da função?
|
|
|
|
Daniel
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 14/06/2011 09:02 hs
RESOLVIDO!!!
For i = 1 To Len(Text1.Text)
LineTxt() = Split(strTxt, vbNewLine)
iArray = iArray + 1
Me.List1.AddItem LineTxt(iArray)
Next
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 14/06/2011 20:54 hs
Daniel é assim que funciona msgbox "a array possui " & UBound(LineTxt) & " linhas" |
|
|
|
