Discussion :

[seb92400]

Hello,

Je sèche sur un petit problème de programmation... Je n'arrive pas à trouver (en vba) une fonction qui me permet de retrouver quel est le nom du contrôle survolé par la souris (et non pas le nom du contrôle actif)...

Est-ce possible sans utiliser les api ?

Je pense qu'il faut utiliser au dépat l'évènement MouseMove pour effectuer une action... mais quel action donne le nom du contrôle survolé ???

Merci d'avance...

[Invité]

Bonjour

Que veux-tu faire ? Afficher le nom du contrôle sur le formulaire ou le récupérer dans une variable pour un traitement ?

Starec

[seb92400]

Hi,

J'aimerais récupérer le nom du contrôle sélectionné afin de changer l'apparence de celui-ci (dans le genre créer un lien comme sur une page html, par exemple).

En fait, je peux traiter chaque affichage par quelques lignes de code, mais si j'ai 10 ou 15 contrôles, je multiplie les lignes de code. Donc, je voudrais créer une petite fonction qui me retourne le nom du contrôle survolé (dans une variable)...

Merci...

[Invité]

Re

Voici une petite fonction qui te permet de visualiser le contrôle survolé

Code :

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

1
2
3
4
5
6
Private Sub Form_Load()
    Dim oCtrl As Control
    For Each oCtrl In Me.Controls
        oCtrl.ControlTipText = oCtrl.Name
    Next oCtrl
End Sub

Cela ne répond pas tout à fait à ta demande, à part crée une routine que tu appelles pour chaque contrôle sur le mouse move, je ne vois pas.

Désolé

Starec

[seb92400]

Désolé

Bah non, faut pas !!! Bien au contraire, ton aide est très appréciable !!

Je vais regarder ton code et je donne des nouvelles...

à part crée une routine que tu appelles pour chaque contrôle sur le mouse move

Je pense que c'est ce que je vais faire, mais surtout ce que je veux pas, c'est écrire autant de fois le code qu'il y a de contrôles à traiter...

[Domi2]

Bonjour,

J'avais trouvé ceci sur officesystem.access.free.fr

Code :

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

1
2
3
4
5
Private Sub TonContrôle_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
MaSub Me.TonContrôle
 
End Sub

Et

Code :

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

1
2
3
4
5
Sub MaSub(ctl As Control)
 
MsgBox ctl.Name
 
End Sub

Domi2