文本框行进入listview子项vb.net

debugcn 发表于 Dev

抗体

我有一个检测wifi网络的应用程序，我有一个带有wifi ssid，信号和安全性的listviewitems，我有一个richtextbox，每行包含顺序排列的每个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)

这是图片

乔希

尝试这个：

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

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。