Discussion :

[lilas_violet]

Bonjour,
Je voudrais que mon curseur se transforme en main lorsqu'il est placé sur un lablel
J'ai mis le code:

Code :

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

1
2
3
4
 
Private Sub UserForm_Initialize()
Label1.Cursor = cursors.hand
End Sub

J'ai aussi coché comme référence system.windows.forms.dll
mais ça me retourne l'erreur method or datamember not found. Qlq saurait -il ce qui ne va pas?

[ouskel'n'or]

Tu mets ton curseur comme tu veux mais fais-le dans label1_mousemove
Pour remettre le curseur normal, tu dois le réinitialiser dans Userform1_mousemove. Ansi, il redeviendra normal quand tu quittes le label

[lilas_violet]

Tu as raison, sauf que là il ne reconnaît même pas la méthode cursor même si la référence est coché. ça me retourne l'erreur "method or datamember not found".

[ouskel'n'or]

Bon, alors je viens de jeter un oeil
Déjà, la propriété n'est pas cursor mais Label1.MousePointer
Ensuite, Hand n'existe pas dans la version normale de VBA-E
Tu n'as le droit qu'à 16 curseurs différents, pas un de plus et dans aucun des 16 tu n'as une main.
Insère un userform tout neuf et places-y un label. Puis mets ce code dans la feuille de code de l'userform

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim index As Integer
Private Sub UserForm_Click()
    UserForm5.MousePointer = index
    index = index + 1
    DoEvents
    Label1.Caption = index
    For i = 1 To 100000
        DoEvents
    Next
End Sub

Exécute -> F5, et fait 1 clic par seconde dans l'userform, tu verras apparaître tous les curseurs disponibles avant de planter l'userform
A+

PS - Le label a les mêmes curseurs

[Invité]

Bonjour

Sinon utilise ce code à mettre sur le MouseMove de ton contrôle

Code :

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

1
2
3
4
5
 
with me.moncontrol
     .MousePointer = 99
     .MouseIcon = LoadPicture(strChemin & "\Harrow.cur")
end with

Avec strChemin un chemin ou tu mets un curseur (cherche, une main en faisant une recherche windows .cur).

Ne pas oublié lors d'un mousemove sur l'userform de reprendre le curseur par défaut.

Starec

[lilas_violet]

ouskel'n'or> le code n'a pas donné le résultat que tu as prévu. n'empêche que maintenant c réglé avec le code de starec

starec> ton code est tout à fait ce que je cherche. Je n'ai même pas besoin de reprendre le curseur par défaut lors du mousemove sur l'userform. ça se fait tt seul

Merci à vous deux