Rabu, 06 Februari 2013

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..!! :

Tidak ada komentar:
Write komentar