Changer le curseur

D 17 novembre 2006 H 12:03 A Patrice MOREL

La fonction LoadCursorFromFile permet de changer le type de curseur dans un formulaire.

Sommaire

Access 97 | Compatible |
Access 2003 | Non testé |

Appel de la fonction

Curseur_Normal ’ repositionne le curseur à sa forme normale

Curseur_Main ’ positionne le curseur à sa forme main

Pour l’exemple j’ai utilisé le curseur main qui s’affiche chaque fois qu’il passe sur un bouton de commande.

Dans votre formulaire vous placez ces fonctions :

Private Sub Commande1_Click()
        Curseur_Normal
End Sub

Private Sub Commande1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Curseur_Main
End Sub

Private Sub Détail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Curseur_Normal
End Sub

Pour faire un essai, créer un formulaire vierge avec un bouton nommé Commande1. Dans la fenêtre propriété cliquer sur les événements mousemove du bouton et de la section détail et sur click du bouton, vérifier que les fonctions correspondent bien. Lancer le formulaire et faites glisser le curseur de votre souris sur le bouton et hors du bouton. Chaque fois que le curseur sera positionné sur le bouton, il changera et sera une main, lorsqu’il ne sera plus sur le bouton, il sera une flèche.
Bien vérifier l’existence des fichiers curseurs et ajuster leur chemin si nécessaire.

Fonction

Code à insérer dans un module standard

Option Compare Database
Option Explicit

Public Declare Function LoadCursorFromFile Lib "user32" _
	 Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Public Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Public Declare Function GetCursor Lib "user32" () As Long
Declare Function LoadCursor Lib "user32" _
	 Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Const OCR_NORMAL As Long = 32512
Private Curseur As Long
Dim holdcursor As Long

Public Sub Curseur_Main()
    holdcursor = GetCursor()
    Curseur = LoadCursorFromFile("c:\windows\cursors\harrow.cur")
    SetCursor (Curseur)
End Sub
Public Sub Curseur_Normal()
    Curseur = LoadCursor(0, OCR_NORMAL)
    SetCursor (Curseur)
End Sub

Voir en ligne : Copié du site à Raymond

Utilisé dans Zeste.
Toutes Api de Raymond sur son site