Detection du changement du texte d'une combobox [Résolu]

Signaler
Messages postés
23
Date d'inscription
mardi 29 juillet 2003
Statut
Membre
Dernière intervention
30 novembre 2011
-
Messages postés
23
Date d'inscription
mardi 29 juillet 2003
Statut
Membre
Dernière intervention
30 novembre 2011
-
Bonjour.

J'utilise VB6.
Je n'arrive pas à détecter le changement de la valeur choisie dans une combobo (La valeur style est à 0).
.
J'utilise le programme suivant :

Private Sub Combo1_Change()
MsgBox "COMBO=" & Me.Combo1.Text
End Sub

Sur changement de la valeur text rien ne se passe, j'ai du oublié de parametrer quelque chose.
Quelqu'un a-t-il une idée ?

Merci.

Gabriel GARCIN.

7 réponses

Messages postés
23
Date d'inscription
mardi 29 juillet 2003
Statut
Membre
Dernière intervention
30 novembre 2011

Bonjour.

J'ai trouvé une solution, qui s'inspire largement de vos réponses.
J'ai créé une zone de texte, je ccopie le texte de la combo danss cette zone de texte et j'applique la fonction change sur la zone de texte.

Private Sub Combo1_Click()
Me.Text2.Text = Me.Combo1.Text
End Sub

Private Sub Text2_Change()
MsgBox "Choix=" & Me.Text2.Text
End Sub

Gabriel GARCIN.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 179 internautes nous ont dit merci ce mois-ci

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
29
essayes l'évênement Combo1_Click()

Daniel
Messages postés
23
Date d'inscription
mardi 29 juillet 2003
Statut
Membre
Dernière intervention
30 novembre 2011

Merci pour la réponse, mais ça ne correspond pas tout à fait à ce que je recherche car l'évènement ce produit même si le choix n'est pas modifié.
Je peu m'en sortir en mémorisant la valeur précédente mais ce n'est pas trés élégant alors qu'il existe la fonction change.
Mais faute de mieux!

Gabriel GARCIN.
Messages postés
586
Date d'inscription
jeudi 18 septembre 2003
Statut
Membre
Dernière intervention
13 février 2008
2
salut ,tout en etant d'acord avec 278023 Gobillot voici un code qui permer de savoir si tu as choisis un autre element que celui deja selectionne
Dim Memoire As String
Private Sub Combo1_click()
If Memoire <> Me.Combo1.Text Then
MsgBox "COMBO =" & Me.Combo1.Text
End If
Memoire = Me.Combo1.Text
End Sub
ciao


<HR>

Life is short...Learn more
Copy Rights <> Rights to Copy
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
119
Un peu plus élégant que la méthode de MasterHack :



Private Sub Combo1_Click()

Static Memoire as string

If Memoire <> Me.Combo1.Text Then

MsgBox "COMBO=" & Me.Combo1.Text

End If

Memoire = Me.Combo1.Text

End Sub



(j'aime pas laisser trainer des variables globales partout ;)

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/
Messages postés
586
Date d'inscription
jeudi 18 septembre 2003
Statut
Membre
Dernière intervention
13 février 2008
2
DARKSIDIOUS >tu m'as bien eu loll


<HR>

Life is short...Learn more
Copy Rights <> Rights to Copy
Messages postés
23
Date d'inscription
mardi 29 juillet 2003
Statut
Membre
Dernière intervention
30 novembre 2011

Merci pour toutes vos réponses.

J'ai compris pourquoi la fonction Change ne marche pas :
L'évènement ne se produit que si l'opérateur saisie une valeur dans la zone de texte ou si la valeur est modifiée par code.

Gabriel GARCIN.