文本框行到listview子项vb.net

Question

我有一个检测wifi网络的应用程序 我有一个listviewitems与wifi ssid，信号和安全，我有 一个richtextbox，每行包含ordred的每个ssid的mac地址 我想将每一行添加到每个项目作为子项目 我使用了这段代码，但项目数量可以改变

LVW.Items(0).SubItems(3).Text = RichTextBox1.Lines(0) 
LVW.Items(1).SubItems(3).Text = RichTextBox1.Lines(1)
LVW.Items(2).SubItems(3).Text = RichTextBox1.Lines(2)     
LVW.Items(4).SubItems(3).Text = RichTextBox1.Lines(4)
LVW.Items(5).SubItems(3).Text = RichTextBox1.Lines(5)
LVW.Items(6).SubItems(3).Text = RichTextBox1.Lines(6)
LVW.Items(7).SubItems(3).Text = RichTextBox1.Lines(7)
LVW.Items(8).SubItems(3).Text = RichTextBox1.Lines(8)
LVW.Items(9).SubItems(3).Text = RichTextBox1.Lines(9)
LVW.Items(10).SubItems(3).Text = RichTextBox1.Lines(10)
LVW.Items(11).SubItems(3).Text = RichTextBox1.Lines(11)
LVW.Items(12).SubItems(3).Text = RichTextBox1.Lines(12)
LVW.Items(13).SubItems(3).Text = RichTextBox1.Lines(13)
LVW.Items(14).SubItems(3).Text = RichTextBox1.Lines(14)
LVW.Items(15).SubItems(3).Text = RichTextBox1.Lines(15) 

这是照片    

Answer 1

试试这个：

If RichTextBox1.Lines.Count > 0 And LVW.Items.Count = RichTextBox1.Lines.Count Then
    For i As Integer = 0 To RichTextBox1.Lines.Count - 1
        LVW.Items(i).SubItems(3).Text = RichTextBox1.Lines(i)
    Next
Else
    MsgBox("Invalid number of lines in RichTextBox1")
End If