文本框行到列表视图子项中 vb.net

Question

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

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

文本框行到列表视图子项中 vb.net

textbox lines into listview subitems vb.net

vb.net

listview

textbox

lines