Comment savoir quand Me.ActiveControl change

Version imprimable

01/03/2011, 21h37
Passepoil

Comment savoir quand Me.ActiveControl change

Bonjour,

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

Essai 1:

Code:

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.
02/03/2011, 01h28
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).
02/03/2011, 04h27
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
02/03/2011, 09h45
tomlev

Citation:

Envoyé par Passepoil

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...

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

Code:

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:

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