LISTVIEW  VISUAL BASIC MENCARI NILAI

 Berikut Listing Programnya:

 Public Class Form1
    Sub buattabel()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 150, HorizontalAlignment.Left)
        LV.Columns.Add("kelas", 80, HorizontalAlignment.Center)
        LV.Columns.Add("ds", 120, HorizontalAlignment.Center)
        LV.Columns.Add("mk", 120, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub ISITABEL()
        Dim LST As New ListViewItem
        LST.Text = npm.Text
        LST.SubItems.Add(nama.Text)
        LST.SubItems.Add(kelas.Text)
        LST.SubItems.Add(mk.Text)
        LST.SubItems.Add(ds.Text)
        LV.Items.Add(LST)

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
        mk.Items.Add("pemograman visual")
        mk.Items.Add("struktur data")
        mk.Items.Add("sistem operasi")
        mk.Items.Add("komunikasi data")
        mk.Items.Add(" sistem basis data")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        ISITABEL()
        npm.Text = ""
        nama.Text = ""
        kelas.Text = ""
        mk.Text = ""
        ds.Text = ""
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub hs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hs.Click
        LV.Items.Clear()
    End Sub

   
    Private Sub mk_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mk.SelectedIndexChanged
        Select mk.Text
            Case "pemograman visual"
                ds.Text = "Mesran M.Kom"
            Case "struktur data"
                ds.Text = "Marzuki Sinambela,M.Kom"
            Case "sistem operasi"
                ds.Text = "Yasir Hasan,M.Kom"
            Case "komunikasi data"
                ds.Text = "Sony Bahagia,S.Kom"
            Case "sistem basis data"
                ds.Text = "Rivalri Hondro,S.Kom"
        End Select

    End Sub
End Class


Sekian dari saya, semoga berhasil, selamat mencoba