Besoin d'aide pour faire un Ajouter aux favoris

Question

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

cs_Nestor · Answer

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

us_30 · Answer

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.

cs_Nestor · Answer

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.

geobasic · Answer

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

Besoin d'aide pour faire un Ajouter aux favoris

4 réponses

Votre réponse

Discussions similaires