Contoh Penggunaan Listview Pada VB 2008

Desain Form Seperti di Bawah ini:

Listing Program Seperti di bawah ini:
Public Class Form1
    Sub BuatTable()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 150, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isiTable()
        Dim list As New ListViewItem
        list.Text = NPM.Text
        list.SubItems.Add(Nama.Text)
        LV.Items.Add(list)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTable()
        npm.Items.Add("12110255")
        npm.Items.Add("13110321")
        npm.Items.Add("11110111")
    End Sub

  
    Private Sub SKL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SKL.Click
        isiTable()
        NPM.Text = ""
        Nama.Text = ""
    End Sub

   Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110255"
                Nama.Text = "Doni Gunawan"
            Case "13110321"
                Nama.Text = "somat"
            Case "11110111"
                Nama.Text = "ucok"
        End Select
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_hapus.Click
        LV.Items.Clear()

    End Sub
End Class
Hasil program seperti dibawah ini: