Antal valgte

Public Const LVM_FIRST = &H1000 \'// ListView messages
Public Const LVM_GETSELECTEDCOUNT = (LVM_FIRST + 50)

Public Function ListView_GetSelectedCount(hwnd As Long) As Long
    ListView_GetSelectedCount = SendMessage(hwnd, LVM_GETSELECTEDCOUNT, 0&, ByVal 0&)
End Function

Den brokker sig over en manglende SendMessage funktion, og hvad skal hwnd være? (Parameteren til ListView_GetSelectedCount).

MVh Mark

Public Declare Function SendMessage Lib \"user32\" Alias \"SendMessageA\" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


hWnd til ListView_GetSelectedCount er hWnd-propertyen fra det ListView, hvor du vil have SelectedCount fra

Man kan også gøre det på den nemme måde, lav en knap og en list box med navnet list1 og fyld nogle items i den, og slå multiselect til:

Paste denne kode stump ind og den vil lave en messageboks for hver item der er valgt:
Private Sub Command1_Click()
Dim lItem As Integer

For lItem = 0 To List1.ListCount - 1
    If List1.Selected(lItem) Then
        MsgBox \"Denne er valgt: \" & List1.List(lItem)
    End If
Next lItem


End Sub

jper >> Prøv de to metoder hver især og tag tiden på dem.

Jeg fik det til at virke. Tak for svaret benny.

Mvh Mark

benny -> Nu var performance ikke en del af spørgsmålet, vel?

API kald i VB giver flere problemer end det løser for den uøvede, og mellem os, så bruger man MCF til GUI hvis man skal have performance.