Discussion :

[Passepoil]

Bonjour,

Je veux qu'un événement se lève lorsque le Me.ActiveControl change. J'ai essayé plusieurs approches:

Essai 1:

Code :

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

AddHandler Me.ActiveControl.GotFocus, AddressOf ActiveControl_GotFocus

Comme ActiveControl n'est qu'une référence, le handler est ajouté un contrôle référencé à ce moment. Alors, lorsque le ActiveControl change, l'événement n'est pas levé par le nouveau control mais bien le précédent.

Essai 2:
J'ai créé une classe form qui hérite de Windows.Forms.Form afin de substituer (Overrides) la propriété ActiveControl afin de lever un événement ActiveControlChanged lorsque la propriété change mais il est impossible de substituer la propriété, on peut seulement la surcharger (Overloads) ou l'ombrager (Shadows).

Je n'ai plus d'idée.


Merci d'avance pour votre aide.

[tomlev]

Je vois 2 options :
- intercepter le message WM_FOCUS (en overridant la méthode WndProc). Pas certain que ça marche, mais c'est pas très long à tester
- s'abonner à l'évènement GotFocus de tous les contrôles de la form (avec le même handler).

[Passepoil]

Salut tomlev,

Comme l'application sera très évolutive, la 2e option m'intéressait moins, peur de faire un oublie. Malgré que je pourrais faire une méthode récursive afin d'abonner tous les contrôles désirés au meme événement GotFocus.

Je vais tout dabord valider ta première idée.

Merci

[tomlev]

Comme l'application sera très évolutive, la 2e option m'intéressait moins, peur de faire un oublie. Malgré que je pourrais faire une méthode récursive afin d'abonner tous les contrôles désirés au meme événement GotFocus.

C'est pas très difficile à faire dynamiquement a priori... en t'abonnant à l'évènement ControlAdded, tu peux t'abonner au GotFocus de chaque contrôle. Là où ça se complique c'est qu'il faut aussi s'abonner au ControlAdded de chaque contrôle enfant pour faire la même chose...

[Passepoil]

J'avais pas pensé à l'événement ControlAdded mais j'ai testé ceci et ça ne fontionne pas:

Code :

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

1
2
3
4
5
Private Sub Form1_ControlAdded(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.ControlEventArgs) Handles Me.ControlAdded
   AddHandler CType(sender, Control).GotFocus, AddressOf AllControl_GotFocus
   AddHandler CType(sender, Control).ControlAdded, AddressOf Form1_ControlAdded
End Sub

Il semble que le conteneur est déjà rempli des contrôles enfants avant d'être ajouté à la forme.

Il serait probablement plus simple d'appeler une méthode récursive au Form.Load:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub AddGotFocusHandler(ByVal ctlParent as Control)
   AddHandler ctlParent.GotFocus, AddressOf AllControl_GotFocus
 
   For Each ctl As Control In ctlParent.Controls
      if ctl.Controls.Count > 0 then Me.AddGotFocusHandler(ctl)
   Next
End Sub
 
Private Sub AllControl_GotFocus(ByVal sender as Object, ByVal e As EventArgs)
   ...
End Sub