ich habe ein listview;
hier ist von anfang an immer die erste zeile "intern" markiert.
man sieht zwar die markierung nicht, aber es ist markiert.
ob eine zeile markiert ist prüfe ich so:
For i = 1 To ListView1.ListItems.count
If ListView1.ListItems.Item(i).Selected = True Then
lCount = lCount + 1
End If
Next i
oder so:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Private Const LVM_FIRST = &H1000
Private Const LVM_GETNEXTITEM = (LVM_FIRST + 12)
Private Const LVM_GETSELECTEDCOUNT = (LVM_FIRST + 50)
Private Const LVNI_SELECTED = &H2
Public Function vCountSelectedEntries(ByVal oLV As ListView) As Long
vCountSelectedEntries = SendMessage(oLV.hWnd, LVM_GETSELECTEDCOUNT, 0&, 0&)
End Function
beidemale kommt 1 raus...
das listview sollte aber am anfang nicht markiert sein!
hat jemand ne idee?