Discussion :

[Goupo]

Salut,

J'ai créé un composant que j'ai importé dans un projet. Et je voudrai que lorsque l'on clique dessus, on éxécute une série d'instructions.

Lorsque je double clique sur le composant dans l'assistant graphique, j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Morp_Grid_GotFocus()

Et je peux changer dans la liste en haut à gauche pour DragDrop, DragOver, LostFocus et Validate.

J'ai donc choisi de rester sur GotFocus puisque lorsque je clique sur mon composant, en effet, les instructions demandées sont éxécutées.

Le problème, c'est qu'une fois que le composant à le focus, hé bien il n'a pas l'air de vouloir le lâcher.

Ce qui fait que les clics sur le Morp_Grid après le premier clic ne font pas de gotFocus...

Comment je peux dire à mon composant Morp_Grid de lâcher le focus?

A part en mettant le focus sur un autre coposant... Je ne vois pas...

Merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Morp_Grid_GotFocus()
afficheTour
me.Morp_Grid...
End Sub

[OhMonBato]

A part en mettant le focus sur un autre coposant... Je ne vois pas...

Moi non plus... il faut bien qu'il y ait qqchose qui ait le focus.

[Goupo]

Au lancement de l'application, le focus est sur quoi?

[OhMonBato]

A priori sur le controle dont la propriété TabIndex a la valeur la plus basse

[Delbeke]

Pour que ton composant recoive le gotfocus, il faut qu'un autre composant aie le focus. donc cliquer sur un composant qui à déjà le focus ne declenchera une gotfocus.
Tu ferais bien d'utiliser l'evenement click
Ajoute ce code à ton composant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public Event Click()
 
Private Sub UserControl_Click()
  RaiseEvent Click
End Sub

[Goupo]

Il y a un end au public event? J'ai une erreur sur le public event click : seul un commentaire peut être affiché après un end sub...

J'ai essayé end event pour voir mais ça n' pas l'air d'être ça.

[Delbeke]

Il doit te rester des déclarations globales apres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserControl_Click()
  RaiseEvent Click
End Sub

Déplace ce cette sub apres toutes tes déclarations

[Goupo]

Mmm, ok, ça marche mais pas comme prévu...

Le click ne marche que si je clique sur le "form" du controle, si je clique sur les labels, il ne se passe rien...

Question : si je fais, dans mon controle un lbl on click > raise event click
ça va correspondre à morp_grid on click dans mon application test?

Edit: On dirait que oui!
Merci!