Artikel 10: Listview VB Net 2008

Listview Pada VBNET 2008

Listview digunakan untuk meletakkan data data yang telah diinput ke dalam sebuah tempat yang berbentuk tabel. Namun data yang terletak di Listview, belum tetap artinya, program berhenti maka datanya akan hilang.

Nah berikut design form nya

Listing Program

01	Public Class Form1

02

03	Sub BuatTable()

04	LV.Columns.Add("Kode", 50, HorizontalAlignment.Center)

05	LV.Columns.Add("Nama", 200, HorizontalAlignment.Left)

06	LV.Columns.Add("Harga", 80, HorizontalAlignment.Right)

07	LV.GridLines = True

08	LV.View = View.Details

09	LV.FullRowSelect = True

10

End Sub

11

12	Sub isiTabel()

13	Dim lst As New ListViewItem

14	lst.Text = Kode.Text

15	lst.SubItems.Add(Nama.Text)

16	lst.SubItems.Add(Harga.Text)

17	LV.Items.Add(lst)

18

End Sub

19

20	Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

21

End

22

End Sub

23

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

25	Kode.Items.Add("001")

26	Kode.Items.Add("002")

27	Kode.Items.Add("003")

28	Kode.Items.Add("004")

29	Call BuatTable()

30

End Sub

31

32	Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

33	Select Case Kode.Text

34	Case "001"

35	Nama.Text = "Televisi"

36	Harga.Text = 1750000

37	Case "002"

38	Nama.Text = "DVD"

39	Harga.Text = 500000

40	Case "003"

41	Nama.Text = "VCD"

42	Harga.Text = 250000

43	Case "004"

44	Nama.Text = "CD"

45	Harga.Text = 750000

46

Case Else

47	Nama.Text = ""

48	Harga.Text = 0

49	End Select

50

End Sub

51	Sub bersih()

52	Kode.Text = ""

53	Nama.Text = ""

54	Harga.Text = ""

55

End Sub

56	Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click

57	Call isiTabel()

58	Call bersih()

59

End Sub

60

End Class

Penjelasan

LV.Columns.Add(“Kode”, 50, HorizontalAlignment.Center)
Menambah kolom pada komponen Listview (LV) dengan nama kolom Kode dan lebar 50 sedangkan posisi teks akan rata tengah.

LV.GridLines = True
Akan menampilkan perpotongan baris dan kolom sehingga akan muncul Cell
LV.View = View.Details
Untuk menampilkan Listview berbentuk laporan (nampak semua kolomnya)
LV.FullRowSelect = True
Untuk membuat satu row tersorot penuh saat di click cell listview

Dim lst As New ListViewItem
Mendefinisikan variabel lst sebagai Listviewitem, hal ini karena data tidak bisa langsung masuk ke Listview tersebut, harus melalui sebuah variabel pembantu.

lst.Text = Kode.Text
Menulis text pada Listviewitem di Lst

lst.SubItems.Add(Nama.Text)
Menambahkan sub item di lst dengan isi data dari Nama

LV.Items.Add(lst)
Menambahkan isi variabel lst ke Listview

Hasilnya yaitu