List View

ListView menampilkan kumpulan item yang dapat ditampilkan dengan menggunakan salah satu dari lima tampilan berbeda, seperti LargeIcon, Details, SmallIcon, List dan Tile.

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ListView1.View = View.Details

        ListView1.GridLines = True

        ListView1.FullRowSelect = True

        'Menambahkan judul kolom

        ListView1.Columns.Add("Judul 1", 200)

        ListView1.Columns.Add("Judul 2", 150)

        ListView1.Columns.Add("Judul 3", 100)

        'Menambahkan isi

        Dim arr(3) As String

        Dim item As ListViewItem

        'baris 1

        arr(0) = "baris 1 kolom 1"

        arr(1) = "baris 1 kolom 2"

        arr(2) = "baris 1 kolom 3"

        item = New ListViewItem(arr)

        ListView1.Items.Add(item)

        'Baris 2

        arr(0) = "baris 2 kolom 1"

        arr(1) = "baris 2 kolom 2"

        arr(2) = "baris 2 kolom 3"

        item = New ListViewItem(arr)

        ListView1.Items.Add(item)

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        'mengambil nilai listview yang dipilih

        Dim satu, dua, tiga As String

        satu = ListView1.SelectedItems.Item(0).SubItems(0).Text

        dua = ListView1.SelectedItems.Item(0).SubItems(1).Text

        tiga = ListView1.SelectedItems.Item(0).SubItems(2).Text

        'menampilkan nilai ke messagebox

        MessageBox.Show(satu & "," & dua & "," & tiga)

    End Sub

End Class