Penerepan Listview sebagai Komponen penyaji Rekord pada pengolahan tabel di Visual Basic 6.0 oleh Harry Witriyono pada 30 Juni 2010 jam 6:58

Mahasiswaku yang sedang giatnya belajar, ini saya kasihkan source code untuk pemrograman object Listview sebagai penampil rekord pada pengolahan tabel di Visual Basic 6.0.
Simpan source code ini pada code dari form yang telah disisipkan komponen listview.
============================================================
Dim Conn As New ADODB.Connection
Dim rsWartawan As ADODB.Recordset
Private Sub AturListView(myForm As Form, ParamArray lstView())
Dim i, Lebar

ListView1.View = lvwList
Lebar = myForm.ListView1.Width - 80
With myForm.ListView1.ColumnHeaders
.Clear
For i = 0 To UBound(lstView) - 1 Step 2
.Add , , lstView(i), (lstView(i + 1) * Lebar) / 100
Next i
End With
Exit Sub
End Sub

Private Sub Form_Activate()
Set Conn = New ADODB.Connection
Set rsWartawan = New ADODB.Recordset
Conn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=berita"
rsWartawan.Open "select * from wartawan", Conn
AturListView Me, "Id Wartawan", 20, _
"Nama", 65, "Password", 20

h = 1
ListView1.View = lvwReport

Do While Not rsWartawan.EOF
Set Item = ListView1.ListItems.Add(h, , rsWartawan!Idwartawan)
Item.ListSubItems.Add 1, , rsWartawan!nama
Item.ListSubItems.Add 2, , rsWartawan!Password
Item.Bold = True
Item.ForeColor = vbBlue
rsWartawan.MoveNext
Loop
End Sub
===========================================================