Alimenté combobox

Résolu
Signaler
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
bonsoir
est ce possible d'alimenté un combobox en allant chercher les données dans un fichier ini,si oui comment .
merci
@ plus
petchy

2 réponses

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
Bonsoir,

Essaye ceci



Private Sub Command3_Click()

Dim FileName As String

Dim r As Long, c As Integer

Dim txt As String, Char As String * 1

Dim Data

Dim i As Integer

On Error Resume Next

FileName = "C:\Test.ini"

Open FileName For Input As #1

If Err <> 0 Then

MsgBox "Introuvable : " & FileName, vbCritical, "ERREUR"

Exit Sub

End If

r = 0

c = 0

txt = ""

Do Until EOF(1)

Line Input #1, Data

For i = 1 To Len(Data)

Char = Mid(Data, i, 1)

If Char = "," Then

c = c + 1

txt = ""

ElseIf i = Len(Data) Then

If Char <> Chr(34) Then txt = txt & Char

Combo1.AddItem txt

txt = ""

ElseIf Char <> Chr(34) Then

txt = txt & Char

End If

Next i

c = 0

r = r + 1

Loop

Close #1

End Sub



jpleroisse



Si une réponse vous convient, cliquez Réponse Acceptée.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
3
Re
merci jpleroisse,nickel
petchy