provoquer un evenement en clickant dans la zone texte d'un combobox

Question

Bonsoir,
je voudrais provoquer un evenement en clickant dans la zone texte d'un combobox deroulant.
Comment faire svp
Merci

mortalino · Answer

Salut,

beh tout simplement :

Private Sub Combo1_Click()
   ' code à exécuter quand le click survient
End Sub

@++ 





<hr width="100%" size="2" />

  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

cs_casy · Answer

Ahh le vrai mortalino, hier (ou ce matin je sais plus) on a vu ton jumeaux perseval

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

mortalino · Answer

lol, salut Casy,

oui, Julien m'avais averti de mon sosi !!
Je crois que c'est lui (mais je ne lui en veux pas) :



[Thomeux: http://www.vbfrance.com/auteurdetail.aspx?ID=720818 Thomeux: http://www.vbfrance.com/auteurdetail.aspx?ID=720818]



Je viens seulement d'arriver, je vais peut-être retombé sur son message.. 
Bonne soirée à toi 
@++ 





<hr width="100%" size="2" />

  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

cs_rober · Answer

j'essaye mais sans resultat.
par contre le mais mon evenement sur un bouton la ca marche.
mon code est tout simple pourtant:

Private Sub Combo_client_Click()
Frame_choix_projet.Visible = True
End Sub

mortalino · Answer

Il faut absolument qu'un Item soit sélectionné dans la liste (et donc provoquera l'évènement click).

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

cs_rober · Answer

il faut que je remplace quoi dans :
Private Sub Combo_client_Click()

cs_casy · Answer

si tu veux vraiment que ce soit lorsque tu clique dessus avec la souris, et non pas lorsque tu sélectionne un item, c'est l'évènement focus qu'il faut mettre ton code --> Private Sub TaComboBox_GotFocus()

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

mortalino · Answer

Je sais pas, ça dépend du nom de ta combobox.
Le mieux, en mode création, tu cliques dessus, l'évènement change apparait (donc de ce combo).
Soit tu modifies change en click, soit, en haut de la fenêtre blanche où se trouve le code, tu as deux combobox créés par vb, celui de gauche reprends tous tes contrôles, celui de droite, les évènements lui appartenant. Dans ce cas là, choisi avec celui de gauche ton combo, et celui de droite l'évènement click.

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

mortalino · Answer

Casy,

et si je le sélectionne (le combo) avec la tabulation ?
Je suppose que le code se fera ! faut voir si ça lui convient.

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

cs_rober · Answer

Private Sub TaComboBox_GotFocus()

c'est ok ça fonctionne
mes excuses mais ce n'est pas evident pour un vieux et debutant

bonne soiree

jmfmarques · Answer

Bonjour à tous ;

1) La propriété Style de la Combo à mettre à 2 (dans la dfenêtre des propriétés... pas dynamiquement)
et :
2) utilisation de l'événement Dropdown

Essayer :

Private Sub Form_Activate()
   For i = 1 To 10
      Combo1.AddItem i
   Next
End Sub


Private Sub Combo1_DropDown()
   Me.Cls
   Font.Size = 30
   Font.Bold = True
   Me.Print "coucou"
End Sub

PCPT · Answer

salut,
pas bête oui, mais çà oblige de changer le style.
l'idée du GetFocus est bonne aussi

<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp

Provoquer un evenement en clickant dans la zone texte d'un combobox

12 réponses

Votre réponse

Discussions similaires