= LVIF_TEXT Or LVIF_STATE
.pszText = pszText
.iSubItem = iSubItem ' 列数(在第几列)
End With
Call SendMessage(hwnd, LVM_SETITEMTEXT, I, pitem)
End Function
Public Function ListView_SetItem(I As Long, strItemText As String)
Dim pitem As LVITEM
With pitem
.mask = LVIF_TEXT Or LVIF_STATE
.iItem = I
.pszText = strItemText
End With
Call SendMessage(hwndLV, LVM_SETITEM, 0, pitem)
End Function
Public Function ListView_GetItem(I As Long) As String
Dim lpPitem As LVITEM, ItemText As String
ItemText = String$(260, 0)
With lpPitem
.mask = LVIF_TEXT
& 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
|
