Sujet Précédent Sujet Suivant

Boucle

betomake Messages postés 1 Date d'inscription mercredi 19 octobre 2005 Statut Membre Dernière intervention 21 octobre 2005 - 21 oct. 2005 à 04:16
PsyCaDi Messages postés 123 Date d'inscription jeudi 14 novembre 2002 Statut Membre Dernière intervention 30 mars 2009 - 21 oct. 2005 à 08:58

Bonjour a tous, excuse moi pour mes fautes, mais le francais c'est pas ma langue, hehehehe. bon j'ai un probleme, avec un boucle, voila mon code

Private Sub mnuEnregistrer_Click()
Dim intpointeur As Integer
intpointeur = 0
Open "signe.txt" For Output As #1
Do
Print #1, frmWeb.cboAdresse.List(intpointeur)
intpointeur = intpointeur + 1
Loop While intpointeur <= frmWeb.cboAdresse.ListCount
Close #1
End Sub

il marche bien, maitenant le probleme se que je veux faire le contraire, aller chercher l'information sur le fichier signe.txt et le remetre a mon combobox(cboAdresse), SVP. Aide-moi

A voir également:

Boucle
Diaporama pdf en boucle - Forum Javascript / DHTML
Html texte défilant en boucle - Forum Flash
Boucle for c ✓ - Forum C++ & C++ .NET
Sql boucle for select ✓ - Forum SQL
Sql boucle foreach - Forum SQL

1 réponse

Réponse 1 / 1

PsyCaDi Messages postés 123 Date d'inscription jeudi 14 novembre 2002 Statut Membre Dernière intervention 30 mars 2009
21 oct. 2005 à 08:58

Voilà qui devrait t'aider

Dim i as Integer
Dim Donnees as String

Open "MonFichier.txt" For Input As #1
Do While Not EOF(1)
Input #1, Donnees
Me.Ma_Combo.AddItem Donnees
Loop
Close #1

Discussions similaires

Boucle définir si c'est un carré parfait

texte qui defile en boucle sans espace entre le debut et la fin

texte défilant en boucle

Automatiser en boucle l'affichage d'un défilement auto pour .pdf sous A Reader

boucle for avec un pas de 2