VB Listview показать элементы вертикальные

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 

Я получил этот код работает, но когда я ввод более 1 имени в TextBox1 и более 1 возраста в TextBox2 выход в ListView будет горизонтальным. И я хочу, чтобы он был вертикальным. Текстовые файлы являются многострочными

Answer 1

Разделите значение, указанное в текстовом поле 1 и текстовое поле2, используя CRLF. Совокупность каждой строки из 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