Discussion :

[Jeannot45]

Je cherche à récupérer le nom de mon controle lorsque celui-ci est survolé par la souris.
J'ai essayé par l'intermédaire de l'évènement : sur souris déplacée de récupérer le nom du controle actif, mais cela n'est pas aussi simple.
Peut-on, par les coordonnées de la souris, retrouver le controle survolé et ainsi récuperer son nom ?

Merci pour vos suggestions

[ClaudeLELOUP]

Bonjour Jean,

Ne suffit-il pas de prévoir un peu de code dans l'événement Sur souris déplacée des contrôles dont tu veux récupérer les noms.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
Option Explicit
 
Private Sub Texte0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Me.txtNomDuSurvole = Me.Texte0.Name
End Sub
Private Sub Texte2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Me.txtNomDuSurvole = Me.Texte2.Name
End Sub
Private Sub Texte4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Me.txtNomDuSurvole = Me.Texte4.Name
End Sub

N.B. Celui qui est survolé, n'est pas nécessairement celui qui est actif !

[Jeannot45]

Claude

Merci pour ta réponse, mais cette facon de faire je l'avais faite.
Ce que je souhaitais c'était écrire une procédure générale (j'ai 210 controles dans mon formulaire ! )
Je pense qu'il va falloir passer par 210 sub

Merci pour le temps que tu as pris pour me repondre.

[Tofalu]

Un autre solution serait de définir une zone de proximité dans laquelle on considère que la souris est presque dans le contrôle, genre un cadre de 50 twips. Ainsi on peut utiliser l'évènement mouvemove des sections de formulaires.

Exemple :

Code de clsControl :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Const APPROX = 50
 
Private varCtl As Control
 
Sub init(octl As Control)
Set varCtl = octl
End Sub
 
Function estDedans(ByVal positionX As Single, ByVal positionY As Single) As Boolean
'On Error Resume Next
estDedans = ((positionX + APPROX) > varCtl.Left) And _
            ((positionX - APPROX) < varCtl.Left + varCtl.Width) And _
            ((positionY + APPROX) > varCtl.Top) And _
            ((positionY - APPROX) < varCtl.Top + varCtl.Height)
End Function
 
Property Get Nom() As String
Nom = varCtl.Name
End Property

Code du form :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Dim colControl As Collection
 
Private Sub Détail_Click()
 
End Sub
 
Private Sub Détail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
Dim oclsControl As clsControl
For Each oclsControl In colControl
    If oclsControl.estDedans(X, Y) Then
        Me.Étiquette3.Caption = oclsControl.Nom
        Exit Sub
    End If
Next oclsControl
    Me.Étiquette3.Caption = "Sans contrôle"
End Sub
 
Private Sub Form_Load()
Dim octl As Control
Dim oclsControl As clsControl
Set colControl = New Collection
 
For Each octl In Me.Controls
    Set oclsControl = New clsControl
    oclsControl.init octl
    colControl.Add oclsControl
Next octl
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
 
End Sub