DEBUTANT - MouseIcon

Bonjour whombat,
whombat a écrit :

Bonjour à tous,

J'ai un soucis assez bête. Je voudrais que le sablier s'affiche mais pas que sur la feuille, sur l'écran aussi.

Je fais Screen.MousePointer = 11 Mais c'est pas partout.

Vous auriez une idée ?

J'ai un second soucis. Les labels, dit l'aide de VB, ne prennent pas en compte les propriétés MousePointer™ et MouseIcon personnalisé. Bien que la feuille des propriétés les propose.

En fait, les labels les prennent en compte si c'est la seule feuille de l'appli. Si la feuille fait partie d'une appli multi-forms, ça marche pas, pas plus que la pictureBox.

Comment fait-on, dans une appli multi-form, pour utiliser ces propriétés ? Par exemple pour que le curseur se transforme en main lorsqu'il passe sur un label d'adresse email ?

(prog en VB4)
Merci.

Pour le premier point, je ne sais pas, et je ne suis pas sûr que cela
soit une bonne idée : cela voudrait dire que ton application bloque tout
le système ?

Pour le second point : copie d'une réponse faite le 02/03/2006 :


Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOW = 5

Private Sub Label1_Click()
ShellExecute 0&, "open", Me.Label1.Tag, 0&, 0&, SW_SHOW
Me.Label1.ForeColor = RGB(128, 0, 128)
End Sub

Private Sub Form_Load()
With Me.Label1
.Caption = "FAQ Visual Basic "
.Tag = "http://faq.vb.free.fr/" '
.ForeColor = vbBlue
.Font.Underline = True
.MouseIcon = LoadPicture(App.Path & "Hand.cur") ' à adapter
.MousePointer = vbCustom
End With
End Sub


Tu peux téléchager "Hand.cur" ici :
http://www.chez.com/fpicalausa/perso/divers/


PS : J'ai testé en MDI, ça fonctionne (en VB6).

--
Cordialement,

Jacques.

Code adapté à une adresse e-mail :

Private Sub Label1_Click()
ShellExecute 0&, "open", "mailto:" & Me.Label1.Caption, _
0&, 0&, SW_SHOW
Me.Label1.ForeColor = RGB(128, 0, 128)
End Sub

Private Sub Form_Load()
With Me.Label1
.Caption = "toto@fai.fr"
.ForeColor = vbBlue
.Font.Underline = True
.MouseIcon = LoadPicture(App.Path & "Hand.cur") ' à adapter
.MousePointer = vbCustom
End With

End Sub



--
Cordialement,

Jacques.