Menghapus Data Pada ListView VB Net 2008

Pada postingan sebelumnya, kita telah membahas tentang bagaimana menyimpan/menampilkan data ke ListView pada VB Net 2008.

Setelah data berhasil ditampilkan, yang harus kita ketahui setelahnya adalah bagaimana jika kita ingin menghapus data yang ada pada ListView?

Inilah yang akan kita bahas pada postingan kali ini tentang Visual Basic Net 2008 dengan judul tersebut di atas.

Pada postingan sebelumnya kita telah mendesain form seperti
berikut :
 

Sekarang kita tambahkan 2 tombol/button untuk tombol hapus dan hapus semua.

Seperti di bawah ini :

Buat nama tombol menjadi hapus dan hapus_semua.

Kemudian kita masuk ke coding program.

Coding Program Visual Basic Net 2008:

Public Class Form1

    Private Sub Form1_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", 180, HorizontalAlignment.Center)

        lv.Columns.Add("Kelas", 100, HorizontalAlignment.Center)

        lv.Columns.Add("Jenjang", 60, HorizontalAlignment.Center)

        lv.Columns.Add("Jurusan", 120, HorizontalAlignment.Center)

        lv.Columns.Add("Telp", 100, HorizontalAlignment.Center)

        lv.GridLines = True

        lv.View = View.Details

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim isi As New ListViewItem

        isi.Text = npm.Text

        isi.SubItems.Add(nama.Text)

        isi.SubItems.Add(kelas.Text)

        isi.SubItems.Add(jenjang.Text)

        isi.SubItems.Add(jurusan.Text)

        isi.SubItems.Add(telp.Text)

        lv.Items.Add(isi)

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        isitabel()

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        If lv.Items.Count <> 0 Then

            lv.Items.Remove(lv.SelectedItems(0))

        Else

            MsgBox("Data sudah kosong")

        End If

    End Sub

    Private Sub hapus_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_semua.Click

        lv.Items.Clear()

    End Sub

End Class


Jika dijalankan maka akan tampak seperti di bawah ini : 


tombol Hapus :




tombol Hapus Semua :

Sekian untuk artikel kali ini tentang Visual Basic 2008 atau VB Net 2008 dengan Judul Membuat Tabel Pada ListView VB Net 2008.

Semoga bermanfaat..!! :-)
Salam Programmer..

semoga bermanfaat..!! :