Besoin d'aide pour faire un Ajouter aux favoris

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

j'ai oublié de dir que je voudrais afficher les fav dans une listbox

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.

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.

 

 

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...