Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic ComboBox

ComboBox

11 réponses
Avatar
JLuc
En cette heure matinale, bonjour,
VB6
J'ai un problème avec les combobox.
L'événement Change ne fonctionne pas :-?

Dans le Form_Load :
Combo1.AddItem "COM1", 0
Combo1.AddItem "COM2", 1
Combo1.AddItem "COM3", 2

Private Sub Combo1_Change()
MsgBox "essai"
End Sub

Qu'ai-je mal fais dans la conception ?
Merci pour vos reponses

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-\O
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
LE TROLL
Bonjour,

Ce code marche:

Sub Form_Load()
Combo1.AddItem "COM1", 0
Combo1.AddItem "COM2", 1
Combo1.AddItem "COM3", 2
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
End Sub
'
Sub Combo1_Change()
MsgBox "essai "
End Sub

CHANGE fonctionne quand tu changes le contenu ou la composition, tente
d'effacer une lettre et ça va marcher.
J'ai rajouté un positionnement dans le load (listindex)
Sinon, c'est "click", etc... pour le mouvement sans changement...

--
Site de MES LOGICIELS
http://irolog.free.fr
Site éditeur MES ROMANS édités
Le serpent
http://www.manuscritdepot.com/a.joseph-attila-pusztay.1.htm
Le Gaulois
http://manuscritdepot.com/a.joseph-attila-pusztay.2.htm
mon adresse EMail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------
"JLuc" a écrit dans le message de news:

En cette heure matinale, bonjour,
VB6
J'ai un problème avec les combobox.
L'événement Change ne fonctionne pas :-?

Dans le Form_Load :
Combo1.AddItem "COM1", 0
Combo1.AddItem "COM2", 1
Combo1.AddItem "COM3", 2

Private Sub Combo1_Change()
MsgBox "essai"
End Sub

Qu'ai-je mal fais dans la conception ?
Merci pour vos reponses

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O




Avatar
JLuc
LE TROLL avait soumis l'idée :
Bonjour,

Ce code marche:

Sub Form_Load()
Combo1.AddItem "COM1", 0
Combo1.AddItem "COM2", 1
Combo1.AddItem "COM3", 2
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
End Sub
'
Sub Combo1_Change()
MsgBox "essai "
End Sub

CHANGE fonctionne quand tu changes le contenu ou la composition, tente
d'effacer une lettre et ça va marcher.
J'ai rajouté un positionnement dans le load (listindex)
Sinon, c'est "click", etc... pour le mouvement sans changement...



C'est bien ce que j'ai fais, mais ça ne m'affiche pas le message lorque
je sélectionne une valeur :/
Aurais tu un indice qui me permette de savoir pourquoi ?
Merci quand même

--
JLuc
Avatar
LE TROLL
Ben tu n'as pas porté la procédure d'évènement click dans ton exemple,
veux-tu bien m'envoyer ton code par courrier (en bas de ma signature), que
je regarde, merci :o)

--
Site de MES LOGICIELS
http://irolog.free.fr
Site éditeur MES ROMANS édités
Le serpent
http://www.manuscritdepot.com/a.joseph-attila-pusztay.1.htm
Le Gaulois
http://manuscritdepot.com/a.joseph-attila-pusztay.2.htm
mon adresse EMail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------
"JLuc" a écrit dans le message de news:

LE TROLL avait soumis l'idée :
Bonjour,

Ce code marche:

Sub Form_Load()
Combo1.AddItem "COM1", 0
Combo1.AddItem "COM2", 1
Combo1.AddItem "COM3", 2
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
End Sub
'
Sub Combo1_Change()
MsgBox "essai "
End Sub

CHANGE fonctionne quand tu changes le contenu ou la composition, tente
d'effacer une lettre et ça va marcher.
J'ai rajouté un positionnement dans le load (listindex)
Sinon, c'est "click", etc... pour le mouvement sans changement...



C'est bien ce que j'ai fais, mais ça ne m'affiche pas le message lorque je
sélectionne une valeur :/
Aurais tu un indice qui me permette de savoir pourquoi ?
Merci quand même

--
JLuc




Avatar
JLuc
LE TROLL avait soumis l'idée :
Ben tu n'as pas porté la procédure d'évènement click dans ton exemple,
veux-tu bien m'envoyer ton code par courrier (en bas de ma signature), que je
regarde, merci :o)



Le fichier est chez moi, j'essaie de penser à te l'envoyer vers midi.
Sinon ce sera pour ce soir :')

--
JLuc
Avatar
JLuc
Resalut, j'ai essayer avec l'événement Click, et là, ça marche.
Je ne comprends pas pourquoi ça ne marche pas sur l'événement Change
??!!?? 8-o
Merci de tes suggestions


LE TROLL avait écrit le 28/11/2006 :
Ben tu n'as pas porté la procédure d'évènement click dans ton exemple,
veux-tu bien m'envoyer ton code par courrier (en bas de ma signature), que je
regarde, merci :o)

--
Site de MES LOGICIELS
http://irolog.free.fr
Site éditeur MES ROMANS édités
Le serpent
http://www.manuscritdepot.com/a.joseph-attila-pusztay.1.htm
Le Gaulois
http://manuscritdepot.com/a.joseph-attila-pusztay.2.htm
mon adresse EMail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------
"JLuc" a écrit dans le message de news:

LE TROLL avait soumis l'idée :
Bonjour,

Ce code marche:

Sub Form_Load()
Combo1.AddItem "COM1", 0
Combo1.AddItem "COM2", 1
Combo1.AddItem "COM3", 2
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
End Sub
'
Sub Combo1_Change()
MsgBox "essai "
End Sub

CHANGE fonctionne quand tu changes le contenu ou la composition, tente
d'effacer une lettre et ça va marcher.
J'ai rajouté un positionnement dans le load (listindex)
Sinon, c'est "click", etc... pour le mouvement sans changement...



C'est bien ce que j'ai fais, mais ça ne m'affiche pas le message lorque je
sélectionne une valeur :/
Aurais tu un indice qui me permette de savoir pourquoi ?
Merci quand même

-- JLuc







--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O
Avatar
jm
"JLuc" wrote in message
news:
Resalut, j'ai essayer avec l'événement Click, et là, ça marche.
Je ne comprends pas pourquoi ça ne marche pas sur l'événement Change
??!!?? 8-o
Merci de tes suggestions




Hello,

l'evenement n'est pas déclenché et c'est le comportement normal.
Voir à ce sujet la documentation:
http://msdn.microsoft.com/library/en-us/vb98/html/vbevtChange.asp


Bonne suite!

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/
Avatar
Clive Lumb
JLuc wrote:
Resalut, j'ai essayer avec l'événement Click, et là, ça marche.
Je ne comprends pas pourquoi ça ne marche pas sur l'événement Change
??!!?? 8-o
Merci de tes suggestions




"Change" veut dire que le contenu de l'élément de liste affiché a été
changé.
Si tu tapes "COM4" à la place de COM1, puis tu valides (soit par un retour
chariot, soit en changeant de focus) l'évenement "change se déclenche.

L'évenement "Click" se déclenche lors de changment de position (index) dans
la liste, que cela soit par souris, clavier ou programmation.
Avatar
Jacques93
Bonjour tout le monde,
jm a écrit :
"JLuc" wrote in message
news:
Resalut, j'ai essayer avec l'événement Click, et là, ça marche.
Je ne comprends pas pourquoi ça ne marche pas sur l'événement Change
??!!?? 8-o
Merci de tes suggestions




Hello,

l'evenement n'est pas déclenché et c'est le comportement normal.
Voir à ce sujet la documentation:
http://msdn.microsoft.com/library/en-us/vb98/html/vbevtChange.asp


Bonne suite!




Juste une petite précision, JLuc utilisant parfois les contrôles de
Forms 2.0 (voir son message sur le contrôle MultiPage du 26/11/2006) :

Le contrôle ComboBox de Forms 2.0 déclenche les deux événements :

- Change
et
- Click

dans cet ordre, lorsqu'on sélectionne un élément dans la liste.

--
Cordialement,

Jacques.
Avatar
JLuc
Jacques93 avait soumis l'idée :
JLuc utilisant parfois les contrôles de Forms 2.0 (voir son message



J'ai supprimé cette référence pour une question de portabilité ;-)

--
JLuc
Avatar
LE TROLL
Heu, c'est ce que j'ai dit, le change, c'est si tu changes, par exemple une
lettre d'une ligne, et le click, ben c'est si tu cliques sur une ligne, mon
exemple de code met les deux évènements...

--
Merci beaucoup, au revoir et à bientôt :o)
------
Site de MES LOGICIELS
http://irolog.free.fr
Site éditeur MES ROMANS édités
Le serpent
http://www.manuscritdepot.com/a.joseph-attila-pusztay.1.htm
Le Gaulois
http://manuscritdepot.com/a.joseph-attila-pusztay.2.htm
mon adresse EMail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------
"JLuc" a écrit dans le message de news:

Resalut, j'ai essayer avec l'événement Click, et là, ça marche.
Je ne comprends pas pourquoi ça ne marche pas sur l'événement Change
??!!?? 8-o
Merci de tes suggestions


LE TROLL avait écrit le 28/11/2006 :
Ben tu n'as pas porté la procédure d'évènement click dans ton exemple,
veux-tu bien m'envoyer ton code par courrier (en bas de ma signature),
que je regarde, merci :o)

--
Site de MES LOGICIELS
http://irolog.free.fr
Site éditeur MES ROMANS édités
Le serpent
http://www.manuscritdepot.com/a.joseph-attila-pusztay.1.htm
Le Gaulois
http://manuscritdepot.com/a.joseph-attila-pusztay.2.htm
mon adresse EMail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------
"JLuc" a écrit dans le message de news:

LE TROLL avait soumis l'idée :
Bonjour,

Ce code marche:

Sub Form_Load()
Combo1.AddItem "COM1", 0
Combo1.AddItem "COM2", 1
Combo1.AddItem "COM3", 2
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
End Sub
'
Sub Combo1_Change()
MsgBox "essai "
End Sub

CHANGE fonctionne quand tu changes le contenu ou la composition, tente
d'effacer une lettre et ça va marcher.
J'ai rajouté un positionnement dans le load (listindex)
Sinon, c'est "click", etc... pour le mouvement sans changement...



C'est bien ce que j'ai fais, mais ça ne m'affiche pas le message lorque
je sélectionne une valeur :/
Aurais tu un indice qui me permette de savoir pourquoi ?
Merci quand même

-- JLuc







--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O




1 2