Seputar ListView pada Visual Basic .Net

Hari ini saya mencoba share penggunaan Listview pada Visual Basic.Net. Dasar-dasar perintahnya hampir sama dengan Visual Basic 6.0. 

Pertama desain form anda dengan menggunakan ListView, dan Command Button seperti tampilan pada gambar dibawah. Ubah properties Listview sedemikian hingga CheckBox item bisa muncul. Ini dimaksudkan agar kita bisa mengambil data pada item tertentu yang telah kita pilih dengan mencentang checkbox masing-masing item. selain itu kita juga bisa menghapus satu atau beberapa item yang kita inginkan dari listview.

Database yang dipakai sama dengan database sebelumnya yaitu: dbSales.accdb 


 

Double klik pada form, dan tambahkan script seperti berikut:

Imports System.Data.OleDb

Public Class Form3

    Dim conn As OleDbConnection

    Dim cm As OleDbCommand

    Dim dr As OleDbDataReader

    Dim bind As BindingSource

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

        conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\LatihanVBnet\dbSales.accdb")

        conn.Open()

        cm = New OleDbCommand("select * from customer", conn)

        dr = cm.ExecuteReader

        lv.Items.Clear()

        Dim i As Integer = 0

        While dr.Read()   

            lv.Items.Add(dr.GetValue(0) )

            lv.Items(i).SubItems.Add(dr.GetValue(1) )

            lv.Items(i).SubItems.Add(dr.GetValue(2) )

            i += 1

        End While

    End Sub

Script untuk menambahkan item pada listview dengan record dari tabel

            lv.Items.Add(dr.GetValue(0))

            lv.Items(i).SubItems.Add(dr.GetValue(1))

            lv.Items(i).SubItems.Add(dr.GetValue(2))

Double klik pada tombol "tampil1" dan ubah script menjadi script di bawah ini. Dimana fungsinya untuk  menampilkan item dari listview yang telah dicentang melalui Message Box.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        For i = 0 To lv.CheckedIndices.Count - 1

            MsgBox(lv.CheckedIndices(i))        

            MsgBox(lv.Items(lv.CheckedIndices(i)).SubItems(1).Text)

        Next

    End Sub

Double klik pada tombol "hapus" dan ubah script menjadi script di bawah ini. Dimana fungsinya untuk  menghapus item dari listview yang telah dicentang.

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        For i = 0 To lv.CheckedIndices.Count - 1

            lv.Items(lv.CheckedIndices(i)).Remove() 'menghapus data yang dicheck

        Next

    End Sub

 Double klik pada tombol "tampil2" dan ubah script menjadi script di bawah ini. Dimana fungsinya untuk  menanpilkan item dari listview yang telah dicentang lebih dari satu melalui Message Box.

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        For i = 0 To lv.SelectedIndices.Count - 1

            MsgBox(lv.SelectedIndices(i))          

            MsgBox(lv.Items(lv.SelectedIndices(i)).SubItems(1).Text)

        Next

    End Sub

End Class

Dari materi yang telah kita pelajari di atas, sering kali digunakan untuk pembuatan form transaksi. Dimana semua data yang tampil pada form sifatnya sementara. perubahan yang terjadi pada form tidak berpengaruh pada database sebelum dilakukan eksekusi seperti insert, update dan delete pada database.

Semoga bermanfaat.

Endro A.