DLINES Or dwExStyle)
End Function
Public Function ListView_InsertItem(hwnd As Long, I As Long, ItemText As String, Optional State As Long)
' 插入列表项 (但不能插入子项)
Dim pitem As LVITEM
With pitem
.mask = LVIF_TEXT Or LVIF_STATE
.iItem = I
.pszText = ItemText
.State = State
.stateMask = LVIS_STATEIMAGEMASK
End With
Call SendMessage(hwnd, LVM_INSERTITEM, 0, pitem)
Call SendMessage(hwnd, LVM_SETITEMSTATE, ByVal I, pitem)
End Function
Public Function ListView_SetItemText(hwnd As Long, I As Long, iSubItem As Long, pszText As String)
' 插入列表项子项(i 为 列表项的 ID (行数) )
Dim pitem As LVITEM
With pitem
.mask 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
|
