Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
François Picalausa
Bonjour/soir,
une solution serait de boucler de 0 à filelistbox.listcount -1 et d'incrémenter une variable à chaque fois que la propriété selected du fichier actuel dans la boucle est true.
Voici une autre solution par API qui repose sur le fait que filelistbox/dirlistbox ne sont rien d'autre qu'une simple listbox: Option Explicit
Private Const LB_GETSELCOUNT = &H190 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 Sub Command1_Click() MsgBox "Il y a " _ & SendMessage(File1.hwnd, LB_GETSELCOUNT, 0, ByVal 0&) _ & " fichiers sélectionnés" End Sub
"Titeuf" a écrit dans le message de news:c1e6ag$eic$
comment trouver le nombre de fichiers sélectionnés dans un filelistbox ?
merci
Bonjour/soir,
une solution serait de boucler de 0 à filelistbox.listcount -1 et
d'incrémenter une variable à chaque fois que la propriété selected du
fichier actuel dans la boucle est true.
Voici une autre solution par API qui repose sur le fait que
filelistbox/dirlistbox ne sont rien d'autre qu'une simple listbox:
Option Explicit
Private Const LB_GETSELCOUNT = &H190
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 Sub Command1_Click()
MsgBox "Il y a " _
& SendMessage(File1.hwnd, LB_GETSELCOUNT, 0, ByVal 0&) _
& " fichiers sélectionnés"
End Sub
une solution serait de boucler de 0 à filelistbox.listcount -1 et d'incrémenter une variable à chaque fois que la propriété selected du fichier actuel dans la boucle est true.
Voici une autre solution par API qui repose sur le fait que filelistbox/dirlistbox ne sont rien d'autre qu'une simple listbox: Option Explicit
Private Const LB_GETSELCOUNT = &H190 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 Sub Command1_Click() MsgBox "Il y a " _ & SendMessage(File1.hwnd, LB_GETSELCOUNT, 0, ByVal 0&) _ & " fichiers sélectionnés" End Sub
