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.