Remplir un combobox avec une fonction                   

wpe2.gif (1107 octets)exemple

 

L'exemple ci-dessous permet de remplir un combobox avec la liste des fichiers d'un répertoire

Function fListeFichier(fld As Control, id As Long, row As Long, col As Long, code As Integer)

' Cette fonction permet de présenter la liste des fichiers
' d'un répertoire dans un ComboBox ou un ListBox
'
' Le nom de la fonction est à mettre dans la propriété Row Source Type
' du ComboBox ou du ListBox
' Ne rien mettre dans la propriété Row Source

On Error Resume Next
Static dbs(127), entries
Dim ReturnVal
ReturnVal = Null
Select Case code
Case LB_INITIALIZE 'Initialisez.
entries = 0

' txtMonRepertoire fait référence au contenu d'un TextBox
' du même formulaire
' On pourrait mettre un chemin littéral ex: "C:\APPS"
' La fonction Dir avec paramètre renvoie le nom du premier
' fichier correspondant au template
' Les appels suivant à Dir renvoie les occurences suivantes
dbs(entries) = Dir(txtMonRepertoire & "\*.*")
Do Until dbs(entries) = "" Or entries >= 127
entries = entries + 1
dbs(entries) = Dir
Loop
ReturnVal = entries
Case LB_OPEN 'Ouvrez.
ReturnVal = Timer 'Numéro d'identification unique pour contrôle.
Case LB_GETROWCOUNT 'Nombre de lignes.
ReturnVal = entries
Case LB_GETCOLUMNCOUNT 'Nombre de colonnes.
ReturnVal = 1
Case LB_GETCOLUMNWIDTH 'Largeur de colonne.
ReturnVal = -1 'Utilisez la largeur par défaut.
Case LB_GETVALUE 'Obtenez les données.
ReturnVal = dbs(row)
Case LB_END 'Fin
For entries = 0 To 127
dbs(entries) = ""
Next entries
End Select
fListeFichier = ReturnVal
End Function