[AC-2003] Curseur "main" sur lien hypertexte [Résolu]

[minot83]

Bonsoir,

j'utilise en guise de bouton des étiquettes, sur lesquelles les utilisateurs cliquent pour exécuter une action.

Il m'arrive de ne pas obtenir de changement de curseur, et de ne pas voir la "main" à la place, j'ai cherché, mais n'ai pas trouvé où régler le paramètre...

Une idée SVP?

merci

[Philippe JOCHMANS]

Bonjour

Tu pourrais t'inspirer de cela : Comment avoir un bouton avec des couleurs et un curseur différent ?

Avec le label MSForms 2.0

Philippe

[minot83]

Je te remercie Philippe, ce lien me donnera certainement des idées, mais c'est bizarre que j'ai pu créer des étiquettes avec lien hypertexte, avec le curseur transformé en "main" et que j'y parvienne plus, même en copier/coller.
Bizarre... ou je ne vois pas la petite propriété à actionner.

[LedZeppII]

Bonjour,

Le pointeur se transforme en main, dès l'instant où le contenu de la propriété «Adresse lien» n'est pas vide.
Moi je mets un dièse (#), et un commentaire dans le texte d'info-bulle pour éviter que le lien (un # donc) ne s'affiche dans l'info-bulle.

A+

[FreeAccess]

Bonjour,

...étiquettes, sur lesquelles les utilisateurs cliquent pour exécuter une action

Sans utiliser de lien hypertexte, on peut utiliser cette fontion:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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

..et sur la propriété "Sur souris déplacée" de l'étiquette....

Code :

1
2
3
Private Sub Etiquette_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call ChangeMouseToHand
End Sub

Sous ACC 2003, il me semble qu'il te faudra aussi gérer le déplacement du curseur hors de l'étiquette..

..à voir

[minot83]

Merci les gars pour l'info, je mets cela en application dès demain ! bonne soirée