NumItemSelectedLV

Private Sub Command1_Click()
'get count of sleted items

Const LVM_GETSELECTEDCOUNT = (LVM_FIRST + 50)
Dim numSelected As Long
numSelected = SendMessage(ListView1.hwnd, LVM_GETSELECTEDCOUNT, 0&, ByVal
0&)
Label1 = numSelected & " items are selected."
End Sub

'_________________________________________________________

Private Sub Command29_Click()
'select all

Const LVIF_STATE = &H8
Const LVIS_SELECTED = &H2
Const LVM_GETSELECTEDCOUNT = (LVM_FIRST + 50)
Const LVM_SETITEMSTATE = (LVM_FIRST + 43)
Dim LV As LVITEM
Dim numSelected As Long
With LV
.mask = LVIF_STATE
.state = True
.stateMask = LVIS_SELECTED
End With
Call SendMessage(ListView1.hwnd, LVM_SETITEMSTATE, -1, LV)
numSelected = SendMessage(ListView1.hwnd, LVM_GETSELECTEDCOUNT, 0&, ByVal
0&)
Label1 = numSelected & " items are selected."
End Sub

'_________________________________________________________

Private Sub Command3_Click()
'select none

Const LVIF_STATE = &H8
Const LVIS_SELECTED = &H2
Const LVM_GETSELECTEDCOUNT = (LVM_FIRST + 50)
Const LVM_SETITEMSTATE = (LVM_FIRST + 43)
Dim LV As LVITEM
Dim numSelected As Long
With LV
.mask = LVIF_STATE
.state = False
.stateMask = LVIS_SELECTED
End With
Call SendMessage(ListView1.hwnd, LVM_SETITEMSTATE, -1, LV)
numSelected = SendMessage(ListView1.hwnd, LVM_GETSELECTEDCOUNT, 0&, ByVal
0&)
Label1 = numSelected & " items are selected."
End Sub