' 状态(情形)有效
Private Const LVIF_INDENT = &H10 ' 图象缩进有效
Private Const LVIF_NORECOMPUTE = &H800
' LVITEM state
Private Const LVIS_FOCUSED = &H1 '
Private Const LVIS_SELECTED = &H2
Private Const LVIS_CUT = &H4
Private Const LVIS_DROPHILITED = &H8
Private Const LVIS_ACTIVATING = &H20
Private Const LVIS_SELCHECK = &H2000
Private Const LVIS_OVERLAYMASK = &HF00
Private Const LVIS_STATEIMAGEMASK = &HF000
'----------------------------------------------------------------------------------------
Private N As Long
Private hwndLV As Long
Public Function CreateListView(hWndParent As Long, ID As Long, x&, y&, nWidth&, nHeight&, Optional Style As Long)
hwndLV = CreateWindowEx(WS_EX_CLIENTEDGE, WC_LISTVIEW, vbNullString, WS_CHILD Or WS_VISIBLE Or _
&nb 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
|
