Question

我有一个带有2个标签，2个文本框，1个按钮和1个列表视图的简单表单。在文本框中，我想输入人的姓名和年龄。

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim Col1 As String = TextBox1.Text
    Dim Col2 As String = TextBox2.Text
    Dim lvi As New ListViewItem
    lvi.Text = Col1
    lvi.SubItems.Add(Col2)
    ListView1.Items.Add(lvi)
End Sub
End Class

我得到了这段代码，但是当我在textbox1中输入多个名字并且在textbox2中输入超过1个年龄时，listview中的输出将是水平的。我希望它是垂直的。文本框是多行的

Answer 1

使用CRLF拆分textbox1和textbox2提供的值。聚合textbox1和textbox2中的每一行以创建每个ListViewItem，为每一行循环。

Dim tb1 As String() = Split(TextBox1.Text, vbCrlf)
Dim tb2 As String() = Split(TextBox2.Text, vbCrlf)
For i = 0 To tb1.Length - 1
    Dim lvi As New ListViewItem
    lvi.Text = tb1(i)
    lvi.SubItems.Add(tb2(i))
    ListView1.Items.Add(lvi)
Next

VB Listview显示项目垂直

1 个答案: