Discussion :

[samia21]

Bonjour,
Je souhaite changer le pointeur de la souris lors du survol d'un bouton mais je n'y arrive pas!
Je suis débutante en VB donc j'aurais besoin d'aide.
J'ai été voir les tutoriels et j'ai vu quelques messages à ce sujet.

J'ai voulu appliquer ce code proposé par un modérateur, mais sans succès!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Private Const IDC_HAND = 32649 
    Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long 
    Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long 
 
Function ChangeMouseToHand() 
    Dim hCur As Long 
    hCur = LoadCursor(0, IDC_HAND) 
    If (hCur > 0) Then 
        SetCursor hCur 
    End If 
End Function

un classique du genre


Ensuite dans l'événement "Sur souris déplacée" tu changes le curseur :

Code :

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

ChangeMouseToHand

Et enfin dans l'événement "Sur souris déplacée du formulaire" tu réinitialise le curseur :

Code :

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

Screen.MousePointer = 0

Où mettre tous ces codes?!!

Merci

[Domi2]

Bonjour,

Essaies comme ceci...

D'abord, on suppose que tu veux pouvoir changer de curseur sur plusieurs formulaire. On place donc les fonctions dans un module standard et on les déclare comme Public et non Private.

Tu crées un nouveau module standard et tu y colles cette partie du code :

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
Option Compare Database
Option Explicit

Public Const IDC_HAND = 32649 
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long 
Public Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long

Function ChangeMouseToHand() 

    Dim hCur As Long 
    hCur = LoadCursor(0, IDC_HAND) 
    
    If (hCur > 0) Then 
        SetCursor hCur 
    End If 

End Function

Ensuite, en mode création de ton formulaire, tu sélectionnes le(s) contrôle(s) sur lequel tu veux faire la main et tu affiches les propriétés. Tu cherches l'événement Sur souris déplacée et tu cliques sur les ... à droite, puis tu choisis Générateur de code.

Dans la procédure, tu colles le code suivant, ce qui doit te donner ceci :

Code :

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

1
2
3
4
5
Private Sub NomDeTonContrôle_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
    ChangeMouseToHand
 
End Sub

Enfin, pour rétablir le curseur normal, tu répètes l'opération précédente sur l'événement de la section dans laquelle est placé ton contrôle, par exemple la section Détail du formulaire

Là tu places le dernier code :

Code :

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

Screen.MousePointer = 0

Domi2

[samia21]

Sa marche!
Meeeeeeeerrrrccccccciii Domi2;

[Domi2]

De rien...

Tu peux donc mettre "Résolu"... Pas pour moi, mais pour les suivants...

Bon dév !

Domi2

[samia21]

oui, jy ai pensé mais une dernière petite question:

Est ce que à chaque fois je dois sélectioner tous les boutons, un par un, pour lesquels je veux mettre le code "ChangeMouseToHand" ou y'a t il une méthode pour rentrer ce code une seule fois pour tous ces boutons par formulaire?

Je sais pas si je me suis bien exprimée!!

Merci

[Domi2]

Non, tu ne peux pas faire une procédure "générique"...

Chaque contrôle a ses propres propriétés et événements...

Domi2

[samia21]

D'accord.
Et Merci