получение всего имени предмета и количества элементов в списке

Question

Okey .. вот код или что-то в этом роде.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    noselect = True 
    'dim-eli a KS-t(keres/kinalt) aszerint,hogy,mi van select-elve 
    If RadioButton1.Checked Then 
     ks = "Kínál" 
    Else 
     ks = "Keres" 
    End If 

    'count-ol -1-tol a listbox1.items.count-ig(pl 4) 


    kód.RichTextBox1.Text = "[hr][img]http://kepfeltoltes.hu/160512/seeadfix_www.kepfeltoltes.hu_.png[/img][hr][table]" & vbNewLine & 
     vbNewLine & "[tr][td][b][color=#7CC576]Név:" & vbNewLine & "[/td][td][b][color=white]" & TextBox1.Text & vbNewLine & "[/td][/tr]" & vbNewLine & 
     vbNewLine & "[tr][td][b][color=#7CC576]Elérhetőség:" & vbNewLine & "[/td][td][b][color=white]" & TextBox3.Text & vbNewLine & "[/td][/tr]" & vbNewLine & 
     vbNewLine & "[tr][td][b][color=#7CC576]Kínál/Keres:" & vbNewLine & "[/td][td][b][color=white]" & ks & vbNewLine & "[/color][/td][/tr]" & vbNewLine & 
    vbNewLine & "[tr][td][b][color=#7CC576]Megnevezés:" & vbNewLine & "[/td][td][b][color=white]" & TextBox4.Text & vbNewLine & "[/td][/tr]" & vbNewLine & 
    vbNewLine & "[tr][td][b][color=#7CC576]Képek:" 
    noselect = False 
    For l_index As Integer = 0 To (ListBox1.Items.Count - 1) 
     kód.RichTextBox1.Text += vbNewLine & "[img width=1280 high=720]" & --- & vbNewLine 

    Next 

    kód.Show() 

End Sub 

Итак, что я хочу: Я хочу, чтобы добавить этот текст kód.RichTextBox1.Text += vbNewLine & "[img width=1280 high=720]" & -) к моему kod.richtextbox, столько раз, сколько listbox1.items.count есть.

Answer 1

Я предполагаю, что вы хотите разместить содержимое списка в своем текстовом поле. Попробуйте это следующим образом:

For i As Integer = 0 To ListBox1.Items.Count - 1 
    kód.RichTextBox1.AppendText(ListBox1.Items(i).ToString & Environment.NewLine) 
Next 

или с для каждого цикла:

For Each s As String In ListBox1.Items 
    kód.RichTextBox1.AppendText(s & Environment.NewLine) 
Next