nbsp; .iItem = I
.pszText = ItemText
.cchTextMax = 256
.iSubItem = 0
End With
Call SendMessage(hwndLV, LVM_GETITEM, 0, lpPitem)
ListView_GetItem = Left$(lpPitem.pszText, InStr(lpPitem.pszText, vbNullChar) - 1)
End Function
Public Function ListView_GetItemText(I As Long, iSubItem As Long) As String
Dim lpPitem As LVITEM
Dim SubItemText As String
SubItemText = String$(28, 0)
lpPitem.iSubItem = iSubItem
lpPitem.cchTextMax = 28
lpPitem.pszText = SubItemText
Call SendMessage(hwndLV, LVM_GETITEMTEXT, ByVal I, lpPitem)
ListView_GetItemText = Left$(lpPitem.pszText, InStr(lpPitem.pszText, vbNullChar) - 1)
End Function
Public Function ListView_SetItemState( << 上一页 [11] [12] [13] [14] 下一页
|
