Project Menggunakan ListView Pada Visual Basic 6.0 Tanpa Database !!!

Listview merupakan salah satu componen selain dbgrid yang berfungsi sebagai menampilkan data yang telah di inputkan oleh user sesuai dengan intruksi yang di berikan.  Kemudian di tambah beberapa isyarat lainnya semoga user dapat menyimpan, menghapus serta mengedit data yang telah mereka input ke database. Tetapi tutorial kali ini membahas wacana menyimpan data hanya sebatas penyimpanan pada RAM saja, maksud nya setelah aplikasi ditutup kemudian di buka lagi data yang sebelum nya telah di input akan hilang. kalau ingin membuat aplikasi menggunakan database mampu membaca Project Vb 6 Menggunakan MS. Access Dan Listview.

Ada Dua Macam Model ListView :

1.       Microsoft Windows Common Controls 5.0
2.       Microsoft Windows Common Controls 6.0

Perbedaannya :

ada banyak  perbedaan diantar kedua versi, tetapi hal yang paling mendasar adalah pada versi 5.0 tidak mampu menggunakan grid, Item tidak mampu di pilih atau di seleksi. sedangkan di versi 6.0 Listview menggunakan grid menyerupai di microsoft excel dan Item mampu di seleksi atau di pilih secara keseluruhan maupun single.

Listview biasanya tidak ada pada toolbox settingan bawaan, jadi harus di tambah dahulu, caranya :

-          Klik kanan pada kolom toolbox >> Components >> Control >> Centang Pada Microsoft Windows Common Controls versi 5.0 atau 6.0 >> Apply >> Ok.

Ikuti Settingan Berikut, Bagi Yang Sudah Paham Lewati Langkah Ini :

Component	Property	Change
Form1	Name	FrmLstView
	Caption	FORM KARYAWAN
Label1	Name	LblNik
	Caption	NIK
Label2	Name	LblNama
	Caption	NAMA
Label3	Name	LblGaji
	Caption	Gaji
Combo1	Name	CmbNik
	Text	Pilih
Text1	Name	Txtnama
	Caption	Kosongkan
Text2	Name	txtGaji
	Caption	Kosongkan
Command1	Name	CmdHapus
	Caption	&Hapus
Command2	Name	CmdSimpan
	Caption	&Simpan
Command3	Name	CmdPil
	Caption	&Hapus Pilihan
Command4	Name	CmdBersih
	Caption	&Bersihkan
Listview	Name	Biarkan Saja

Source Code :Dim lst As ListItem Private Sub cmbnik_Click() Select Case cmbnik     Case "K1011": txtnama.Text = "Diki"     Case "K2012": txtnama.Text = "Wahyudi"     Case "K2021": txtnama.Text = "Romi"     Case "K1022": txtnama.Text = "Ardian"     End Select End Sub  Private Sub cmdbersih_Click() ListView1.ListItems.Clear End Sub  Private Sub CmdHapus_Click() cmbnik.Text = "-- Pilih --"     txtnama.Text = ""     txtgaji.Text = ""     cmbnik.SetFocus End Sub  Private Sub cmdpil_Click() ListView1.ListItems.Remove ListView1.SelectedItem.Index End Sub  Private Sub cmdsimpan_Click() Set lst = ListView1.ListItems.Add(, , cmbnik.Text)     lst.SubItems(1) = txtnama.Text     lst.SubItems(2) = "Rp." & txtgaji.Text End Sub  Private Sub Form_Activate() CmdHapus_Click End Sub  Private Sub Form_Load()     cmbnik.AddItem "K1011"     cmbnik.AddItem "K2012"     cmbnik.AddItem "K2021"     cmbnik.AddItem "K1022"     ListView1.ColumnHeaders.Add , , "NIK", 1000     ListView1.ColumnHeaders.Add , , "Nama", 2000     ListView1.ColumnHeaders.Add , , "Gaji", 2100     ListView1.GridLines = True     ListView1.FullRowSelect = True     ListView1.View = lvwReport  End Sub

Penjelasan :

1. Pada Cmbnik kita menggunakan Case, dimana fungsi nya sama dengan if, hanya lebih mudah dan simple.
2. Kemudian Form load adalah menampilkan item yang akan di tambilkan pada ketika form di load.Colomn Headers Dengan Caption NIK dan lebar kolom header nya 1000, garis line dan select nya di aktifkan dengan perintah true. sebagai teladan  lihat gambar  di atas.
3. Pada CmdSimpan akan menampilkan hasil inputan berdasarkan NIK di kolom listview.
4. Setelah Form ditutup semua hasil inputan akan hilang di  karenakan ini  hanya sementara tanpa menggunakan database.