Long Private Declare Function DestroyWindow Lib "user32.dll" (ByVal hwnd As Long) As Long Private Declare Function SendLongMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long '=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Private Const ICC_LISTVIEW_CLASSES = &H1 Private Const WC_LISTVIEW = "SysListView32" Private Const WS_EX_CLIENTEDGE = &H200
Private Const LVS_LIST = &H3 Private Const LVS_REPORT = &H1
Private Const LVS_EX_FULLROWSELECT = &H20 Private Const LVS_EX_CHECKBOXES = &H4 Private Const LVS_EX_GRIDLINES = &H1 Private Const LVS_SORTDESCENDING = &H20
Private Const LVM_FIRST = &H1000 Private Const LVM_SETBKCOLOR = (LVM_FIRST + 1) Private Const LVM_SETTEXTBKCOLOR = (LVM_FIRST + 38) Private Const LVM_INSERTCOLUMN = (LVM_FIRST + 27) Priva 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
|