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

[seb92400]

Hi,

Merci pour ce code... En fait, ça, c'est à peu près ce que je fais déjà... Mais justement, ce que je voudrais, c'est éviter de créer un évènement personnalisé pour chaque ctrl survolé... En fait, pour esayer d'être clair, je voudrais créer une fonction qui s'appelle par exemple :

Code :

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

NomDuContrôle(....) As String ou As Integer

Qui me renvoie le nom ou le numéro du contrôle sélectionné... Donc, sur chaque évènement MouseMove, j'aurais juste à écrire :

Code :

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

1
2
MaVariable = NomDuContrôle(....)
MsgBox MaVariable

Voilà... Mais à mon avis, il va falloir que je mette le nez dans les API...

En tout cas, je vais voir ce que je peux faire avec tout ça... Merci beaucoup...

[seb92400]

Hi,

Finallement, je viens de trouver un truc tout simple (en adaptant l'idée de Domi2), en combinant un peu toute cette discussion...

Il s'agit de créer une fonction :

Code :

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

1
2
3
4
5
Private Function EssaiMouseMove(ctrl As Control)
 
    MsgBox ctrl.Name
 
End Function

Et d'écrire dans les évènements sur souris déplacée : =EssaiMouseMove([txtEssai])

Merci à vous tous pour vos conseils...

[jon59]

je me permet de déranger j'ai un petit souci...
j'aimerai récupérer le nom de l'image du curseur et l'afficher dans un label...
toute fois je n'arrive pas a trouver de commande me permettant de trouver l'image du curseur...

pour qu'elle raison bas en gros je veut juste savoir quand ma souris passe sur un lien et donc en gros savoir quand elle change d’aspect.
est ce que c'est possible?