Tiens voila un ptit bout de code qui te serviras surement souvent si tu utilises les controles de listaing ( combobox, listbox, ...)
Au lieu d'énumerer chaque element a mettre dans ta ComboBox, tu vas tout simplement creer un fichier texte comme suit :
Exemple : mois.txt
Mois
Janvier
Fevrier
Mars
Avril
...etc...
|
Et ensuite tu mets ce bout de code dans ton programme... Dans le bouton Command1_Click() dans mon exemple
Private Sub Command1_Click()
Dim nFile As Integer
Dim Ligne As String
Dim FilePath As String
nFile = FreeFile
'On dis ou se trouve le fichier
FilePath = App.Path & "\mois.txt"
'On ouvre le fichier et on le lit ligne par ligne
Open FilePath For Input As #nFile
While Not EOF(nFile)
Input #nFile, Ligne
Combo1.AddItem Ligne
Wend
Close #nFile
'On place l'index a 0
Combo1.ListIndex = 0
End Sub
|
Tu pourras ainsi faire des listings tres facillement et rapidement tout en gagnant de la place dans ton code ce qui n'est pas rien et qui en plus fait plus professionnel ;)
A++ et bonne prog!
--=[SaMir]=--