Alimenté combobox

Résolu
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 - 29 déc. 2005 à 17:28
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 - 29 déc. 2005 à 18:00
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

jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 27
29 déc. 2005 à 17:47
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
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 3
29 déc. 2005 à 18:00
Re
merci jpleroisse,nickel
petchy
0
Rejoignez-nous