 | Artikel Visual Basic |
| Basis Data - Database |
| Pemrograman Grafis |
| E-Book Tutorial |
| Video Kursus - Tutorial |
| Software - Open Source code |
| W E B Programming |
| Windows System |
| XBasicFramework |
| Berbagi Pengalaman |
| Quick Basic |
|
Software gratis! Open Source
Code
|
|
|
|
|
MENU>Artikel Visual Basic>Visual Basic 6.0>Listview Control
|
List View Control pada Visual
Basic 6.0 |
|
Menampilkan data dalam bentuk tabel sangat diperlukan
dalam pembuatan aplikasi database.
Visual Basic 6.0 menyediakan control bawaan yang bernama List View untuk keperluan
ini.
Control Listview ini terdapat pada Componen Windows Common Control. Coba buat
project standard pada visual basic 6.0 lalu klik project - componen - pilih Microsoft
Windows Common control 5.0 (SP2). Lihat gambar di bawah ini:
Klik OK maka muncul di toolbox object Listview. Lihat gambar di bawah ini:
Sekarang double klik Listview dan command button lalu atur letaknya di form hingga
seperti gambar di bawah ini:
Sekarang waktunya mengetik kode. Kode nya adalah di bawah ini:
Private Sub Form_Load()
ListView1.ColumnHeaders.Clear
ListView1.ListItems.Clear
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "Nama"
ListView1.ColumnHeaders.Add , , "Email"
ListView1.ColumnHeaders.Add , , "Telepon"
ListView1.ColumnHeaders(1).Width = 2000
ListView1.ColumnHeaders(2).Width = 3000
ListView1.ColumnHeaders(3).Width = 1000
Set oItem = ListView1.ListItems.Add(, , "Hartoto")
oItem.SubItems(1) = "hartoto_d@yahoo.com"
oItem.SubItems(2) = "08765777766"
Set oItem = ListView1.ListItems.Add(, , "Sarbini")
oItem.SubItems(1) = "Sarbini@yahoo.com"
oItem.SubItems(2) = "09865777766"
Set oItem = ListView1.ListItems.Add(, , "Ajeng")
oItem.SubItems(1) = "ajeng@yahoo.com"
oItem.SubItems(2) = "09812390766"
Set oItem = ListView1.ListItems.Add(, , "Zulaiha")
oItem.SubItems(1) = "Zulaiha@yahoo.com"
oItem.SubItems(2) = "09865790766"
End Sub
Private Sub cmdAmbil_Click()
Dim s As String
s = "Nama: " &
ListView1.SelectedItem.Text & vbCr
s = s & "Email: " & ListView1.SelectedItem.SubItems(1)
& vbCr
s = s & "Telepon: " & ListView1.SelectedItem.SubItems(2)
MsgBox s
End Sub
Tekan tombol F5 atau click tombol Run untuk menjalankan program.
Pilih salah satu Nama di Listview lalu klik tombol Ambil Teks. Jika berjalan dengan
benar maka seharusnya seperti gambar di bawah ini:
Untuk melihat pembuatan Form Lookup pada kasus penjualan dengan Listview Control
baca artike saya yang berjudul
Membuat Form Lookup dengan Listview Control
Untuk memperoleh penjelasan kode detail beserta dengan contoh source code nya anda
bisa mendapatkannya bersama paket E-Book saya yang berjudul
TRIK DASAR BELAJAR VISUAL BASIC 6.0 |
|