LISTBOX ALTERADA PARA TEXTO

RUAN 20/12/2012 22:28:42
#416290
Estou com um problema para passar os itens de uma listbox para uma textbox multiline

no projeto o listbox tem 3 itens, e o quarto é adicionado por um botão
mas na hora de passar os itens pra textbox o quarto item o seguinte erro [Ô]InvalidArgument=Value [ô]4[ô] não é um valor válido para [ô]index[ô].[Ô]

a linha de comando que usei para passar a lista para a textbox que estou usando é este:

Citação:

Dim i As String = [Ô]0[Ô]
Dim Itens As String = Lbpastas.Items.Item(i)
TextBox1.Text = Itens + Chr(13) & Chr(10)


Line1:
If i = Lbpastas.Items.Count Then

TextBox1.Text = TextBox1.Text + Chr(13) & Chr(10)

ElseIf i < Lbpastas.Items.Count Then
TextBox1.Text = TextBox1.Text + Chr(13) & Chr(10)
i = Val(i) + Val(1)
i = i.ToString
Itens = Lbpastas.Items.Item(i)
TextBox1.Text = TextBox1.Text + Chr(13) & Chr(10)
GoTo Line1
End If



alguém pode me ajudar a resolver?
PEGUDO 21/12/2012 08:35:51
#416296
Veja este exemplo:
No click do botão, o programa vai inserir um item na ListBox e, ao mesmo tempo, atualizar o conteúdo da TextBox com a ListBox



Obs: Preste atenção ao nome dos controles que eu usei, você deve alterá-los de acordo com o seu programa
Valeu
RUAN 29/01/2013 18:44:18
#418337
Não testei o código que enviou, mas consegui resolver o problema, no código que postei o erro ocorria na linha 4 da listbox, mas a listbox não tinha linha 4 porque a contagem começava do 0!
Tópico encerrado , respostas não são mais permitidas