Option ExplicitFunction FillList(strDomain As String, objListView As Object) As Boolean Dim dbs As DAO.Database Dim rst As DAO.Recordset Dim intTotCount As Integer Dim intCount1 As Integer Dim intCount2 As Integer Dim colNew As ColumnHeader...
Showing posts with label ListView. Show all posts
Showing posts with label ListView. Show all posts
Sunday, June 17, 2012
Contoh Mengisi ListView Secara Recursive
Function FirstFileMatch() Dim strFileName As String On Error Resume Next strFileName = Dir(InputBox("Enter a valid path and file name.")) If strFileName = "" Then FirstFileMatch = FirstFileMatch() Else FirstFileMatch = strFileName...
Contoh Mengurutkan ListView Berdasarkan Tanggal
'Kode pada ModuleOption ExplicitPublic Type POINT x As Long y As LongEnd TypePublic Type LV_FINDINFO flags As Long psz As String lParam As Long pt As POINT vkDirection As LongEnd TypePublic Type LV_ITEM mask As Long iItem As...
Tuesday, June 12, 2012
Alternate Color/Zebra Color Untuk Listview Codejock - VB6
Di bawahi ini merupakan module untuk memberi warna-warni (alternate color/zebra color) pada row listview codejock di bawah versi 15.x.x (versi yang belum mendukung property TextBackColor.Option Explicit '---------------------------------------------------------------------------------------------...
Subscribe to:
Posts
(
Atom
)
