Discussion :

[pat04]

bonjour,

Je souhaite, dans un formulaire, que le pointeur de la souris change d'aspect lors du survol de champ "clickable", type comme sur le Web.

Est-ce possible et si oui comment faire ?

Merci de votre aide

[Heureux-oli]

Oui, c'est possible, il faut utiliser l'évènement OnMoseMouve

Code :

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

1
2
3
Private Sub MonControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
"Ce que tu veux faire"
End Sub

L'évènement onMouseMove est accessible par sur souris déplacées.

[pat04]

OK merci, où dois-je mettre cette fonction ?

pour que le pointeur flèche devienne un doigt pointé quel est le code ?

Merci de ton aide

[Heureux-oli]

Tu demandes pour un champ clickable, donc, je penses que c'est dans les propriétés de ce champ.

Maintenant, le faire changer d'aspect, si tu fais une petite recherche dans l'aide tu auras une réponse.

[Faw]

Pour gérer un curseur en forme de main tu as besoin de ceci :

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

[pat04]

Génial, ça marche

merci beaucoup Faw pour ton aide

[Faw]

De rien, pour l'utiliser avec d'autres formulaires et ne pas avoir à faire les
déclaratives à chaque fois tu mets le 1er code (déclaratives + Fonction)
dans un module et tu changes les mentions Private par Public

[Philb47]

Bonjour,

Arrivant tout frais sur ce forum, je rebondis sur ce message très ancien, pour demander des précisions :
Le code marche très bien, mais on change le curseur par un autre.
Que faire si je veux changer le curseur en image Jpeg ?
Mon objectif est le suivant : J'ai une rame de train (une loco et des wagons) dessinée à l'écran, et je veux que lorsqu'on clique sur un des éléments de la rame (loco ou wagon), en gardant le doigt appuyé, on puisse prendre l'image et l'emporter dans la corbeille. Ainsi, on enlève l'élément de la rame.
Donc, est-il possible de changer le curseur par l'image sur laquelle on clique ?
Merci d'avance.

Phil.