Besoin d'aide pour faire un Ajouter aux favoris

Messages postés
182
Date d'inscription
mardi 8 janvier 2002
Statut
Membre
Dernière intervention
2 octobre 2012
-
Messages postés
69
Date d'inscription
jeudi 6 novembre 2003
Statut
Membre
Dernière intervention
3 octobre 2006
-
Bonjour

Je souhaite ajouter le contenu séléctionné de 3 ComboBox dans un ini

mon code:

Private Sub Command1_Click()
If Combo1.ListIndex Then
Open App.Path & "\CFG\Mes_favoris.ini" For Append As #1
Print #1, Combo1.Text
List1.AddItem Combo1.Text 
List1.Refresh                'Rafréchis la liste pour moi voir si il est bien ajouté
Close #1
End Sub

si je fais le meme code avec Combo2 et 3 dans un bouton je me retrouve avec un bordel pas croyable dans mon ini et me met le titre du combobox.

comment je peux faire pour metre mes 3 combox dans le meme bouton (ajouter aux fav) ?

merci de votre aide

4 réponses

Messages postés
182
Date d'inscription
mardi 8 janvier 2002
Statut
Membre
Dernière intervention
2 octobre 2012

j'ai oublié de dir que je voudrais afficher les fav dans une listbox
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
10
Salut,

Nestor, globalement je comprend, mais précisémment... je suis perdu.
Peux-tu mieux expliquer ton problème ? Que tu veux faire excatement ?

Mettre le contenu d'un combo dans les favoris ? Pourquoi 2 autres boutons qui font la même chose ?...

Amicalement,
Us.
Messages postés
182
Date d'inscription
mardi 8 janvier 2002
Statut
Membre
Dernière intervention
2 octobre 2012

J'ai 3 combobox, je souhaite metre en favoris leur contenu séléctionné dans un ini ou txt et afficher le contenu du ini/txt dans une listbox, tout ca avec un seul bouton.


 


 
Messages postés
69
Date d'inscription
jeudi 6 novembre 2003
Statut
Membre
Dernière intervention
3 octobre 2006

Salut,

J'ai un doute sur la syntaxe "If Combo1.ListIndex then". Il faut savoir que lorsque aucun item n'est sélectionné dans un ComboBox, la propriété ListIndex à la valeur -1, donc le test devient vrai. Je pense que tu devrait plutôt faire "If Combo1.ListIndex > -1 then". Mais je suis pas sur que cela résoudra ton problème...