Anzahl selektierter ListView-Einträge ermitteln Mit Hilfe des Windows API lässt sich schnell die Anzahl der aktuell selektierter Einträge im ListView-Control ermitteln.
Autor:   Dieter Otter	Bewertung:	Views:  11.859
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Das ListView-Control bietet bekanntlich die Möglichkeit mehrere Einträge zu selektieren, wenn hierzu die "MultiSelect"-Eigenschaft auf den Wert "True" festgelegt wurde. Leider verfügt das Control aber nicht über eine "SelCount"-Eigenschaft, mit der sich ermitteln lässt, wieviele Einträge aktuell selektiert sind.

Nachfolgende "Hilfsfunktion" schafft Abhilfe: Über das Windows-API wird hierzu die Nachricht LVM_GETSELECTEDCOUNT an das ListView-Control geschickt und als Rückgabewert erhalten wir die Anzahl selektierter Einträge.

Fügen Sie nachfolgenden Code am besten in ein Modul:

Option Explicit
 
' Benötigte API-Deklarationen
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_GETSELECTEDCOUNT As Long = &H1032

' Ermittelt die Anzahl der aktuell selektierter Einträge
' im ListView-Control
' Als Parameter wird das Handle des ListView-Controls erwartet
Public Function lvwSelectedCount(hWnd As Long) As Long
  lvwSelectedCount = SendMessage(hWnd, _
    LVM_GETSELECTEDCOUNT, 0&, 0&)
End Function

Beispiel für den Aufruf:

Dim nSelCount As Long
nSelCount = lvwSelectedCount(ListView1.hWnd)

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.