Program sederhana listview dengan menggunakan vb.net 2008

Teman - teman saya akanmempostingkan lagi program VB.NET 2008 tentang listview....


gambar diatas : Program sederhana listview dengan menggunakan vb.net 2008
listview digunakan sebagai menampilkan data dalam bentuk tabel yang mempunyai baris dan kolom.
dibawah ini merupakan design listview sederhana.

Public Class Form1

    Sub buatTabel()

        ListView1.Columns.Add("NPM", 80, HorizontalAlignment.Center)

        ListView1.Columns.Add("NAMA", 180, HorizontalAlignment.Center)

        ListView1.Columns.Add("KELAS", 80, HorizontalAlignment.Center)

        ListView1.Columns.Add("MATA KULIAH", 180, HorizontalAlignment.Center)

        ListView1.View = View.Details

        ListView1.GridLines = True

        ListView1.FullRowSelect = True

    End Sub

    Sub isitable()

        Dim lst As New ListViewItem

        lst.Text = NPM.Text

        lst.SubItems.Add(NAMA.Text)

        lst.SubItems.Add(KELAS.Text)

        lst.SubItems.Add(MATA_KULIAH.Text)

        ListView1.Items.Add(lst)

    End Sub

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

        buatTabel()

    End Sub

    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click

        isitable()

        NPM.Text = ""

        NAMA.Text = ""

    End Sub

    Private Sub HAPUS_DATA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS_DATA.Click

        ListView1.Items.Clear()

    End Sub

    Private Sub HAPUS_PILIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS_PILIH.Click

        ListView1.Items.Remove(ListView1.SelectedItems(0))

    End Sub

    Private Sub KELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUAR.Click

        End

    End Sub

End Class

ne hasil dari listing program diatas...............

SEMOGA BERMANFAAT 

:)

Tweet