ComboBox et fichier *.txt

LiTtLeBuBu Messages postés 50 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 10 février 2009 - 26 janv. 2003 à 20:53
gg00xiv Messages postés 656 Date d'inscription mercredi 22 août 2001 Statut Membre Dernière intervention 11 mars 2005 - 26 janv. 2003 à 21:28
Voila dans mon prog j'ai un combo box avec des noms qui en selectionnant un nom met une valeur dans un text box :

Private Sub Combo1.Click ()
Select Case (Combo1.text)
Case Is = "Nom"
Text1.text = "123"
End Select
End Sub

J'aimerai pouvoir modifier les noms et les valeur depuis un fichier *.txt de Windows ce serai exemple :

"Nom : 123" ou "Paul : 456" dans un fichier du type Nom.txt et quand je lance mon prog apparait dans le comboBox " Paul " que j'ai rajouté a mon fichier *.txt et en selectionnant " Paul " "456" dans le textBox

Merci pour votre aide et longue vie a ce site. :big)

1 réponse

gg00xiv Messages postés 656 Date d'inscription mercredi 22 août 2001 Statut Membre Dernière intervention 11 mars 2005 13
26 janv. 2003 à 21:28
Private Sub Combo1_Click()
Text1.Text = Combo1.ItemData(Combo1.ListIndex)
End Sub

Private Sub Form_Load()
Dim ligne_lue As String

hfile = FreeFile

Open App.Path & "\fichier.txt" For Input As hfile
While Not EOF(hfile)
Line Input #hfile, ligne_lue
splt = Split(ligne_lue, "=")
Combo1.AddItem Trim(splt(0))
Combo1.ItemData(Combo1.ListCount - 1) = CLng(Trim(splt(1)))
Wend
Close hfile
End Sub
0
Rejoignez-nous