Listview

Listview digunakan untuk menampilkan data dalam bentik tabel yang mempunyai baris dan kolom. Tampilan listview seperti dibawah ini.

Listing Untuk Program Pembuatan tabel didalam listview, cobalah buat program seperti contoh dibawah ini:

Maka Listing programnya seperti berikut:

Public Class latihan_listview

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub latihan_listview_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        buattabel()

    End Sub

    Sub buattabel()

        LV.Columns.Add("Npm", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Nama", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Jurusan", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Jenjang", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Tahun Masuk", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Nilai Angka", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Nilai Huruf", 80, HorizontalAlignment.Left)

        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(jurusan.Text)

        lst.SubItems.Add(jenjang.Text)

        lst.SubItems.Add(thnmasuk.Text)

        lst.SubItems.Add(nangka.Text)

        lst.SubItems.Add(nhuruf.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub bsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsimpan.Click

        isitabel()

    End Sub

    Private Sub bhpssemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bhpssemua.Click

        LV.Items.Clear()

    End Sub

    Private Sub bhpsdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bhpsdipilih.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub bbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbersih.Click

        npm.Text = ""

        nama.Text = ""

        jurusan.Text = ""

        jenjang.Text = ""

        thnmasuk.Text = ""

        nangka.Text = ""

        nhuruf.Text = ""

    End Sub

    Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged

        Dim x As String

        thnmasuk.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)

        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)

        If x = "1" Then

            jenjang.Text = "S1"

        ElseIf x = "2" Then

            jenjang.Text = "D3"

        End If

        x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)

        If x = "10" Then

            jurusan.Text = "Sistem Informatika"

        ElseIf x = "11" Then

            jurusan.Text = "Manajemen Informatika"

        End If

    End Sub

    Private Sub bkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bkeluar.Click

        End

    End Sub

    Private Sub nangka_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nangka.KeyPress

        If Asc(e.KeyChar) = 13 Then

            Select Case nangka.Text

                Case Is >= 80

                    nhuruf.Text = "A"

                Case 70 To 79

                    nhuruf.Text = "B"

                Case 60 To 69

                    nhuruf.Text = "C"

                Case 50 To 59

                    nhuruf.Text = "D"

                Case Is <= 49

                    nhuruf.Text = "E"

            End Select

        End If

    End Sub

    Private Sub nangka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nangka.TextChanged

       

    End Sub

End Class

NB: Tulisan yang berwarna hijau merupakan listing untuk pembuatan tabel
SELAMAT MENCOBA SAMIT,,,, @_@