すべてのアイテムの名前を取得し、リストボックス内のアイテム数をカウントする

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 

だから、私が欲しいもの： 私はlistbox1.items.countがあるとして何回も、私のkod.richtextboxにこのテキストkód.RichTextBox1.Text += vbNewLine & "[img width=1280 high=720]" & -)を追加したいです。

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ループを持つ：

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