Kostenloser Download
Sourcecode Beispiele
Private Sub setCol() ' Columns erstellen
Col = 3
xpListView1.ColumnsAdd "No.", , , , cColumnLeft, 700
xpListView1.ColumnsAdd "Name", , , , cColumnLeft, 1200
xpListView1.ColumnsAdd "Last Name", , , , cColumnLeft, 2000
End Sub
Private Sub setData() 'Daten abfüllen, auch über Recordset möglich.
No = No + 1
xpListView1.RowsAdd , ",", No & ",Amin,Maredia"
No = No + 1
xpListView1.RowsAdd , ",", No & ",Imran,Maredia"
No = No + 1
xpListView1.RowsAdd , ",", No & ",Luke,France"
End Sub
|