adresse Email

Salut José,
Dans un Label et sur l'évennement clik tu met ce code :

Private Sub Label1_Click()
'Messagerie
Shell "Start.exe mailto:" & Trim(Label1.Caption)
'Navigateur
Shell "Start.exe http://" & Trim(Label1.Caption)
End Sub

Si tu veux avoir l'effet d'activation du lien (un peu comme sur Internet)
utilise une petite astuce avec 2 labels, un qui contient l'adresse ajusté au
mieux, centré sur le 2ème et au 1er plan puis le second donc derière et
plus grand de façon a remettre le texte comme non survolé puis tu utilise
les évennements MouseMove pour changer l'apparence du lien. J'espère que tu
me comprends dans mes explications vaseuses.

Private Sub Label1_MouseMove( _
ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
With Label1
.ForeColor = &HFF0000
.Font.Underline = True
.Font.Bold = True
.Font.Italic = True
End With
End Sub

Private Sub Label2_MouseMove( _
ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
With Label1
.ForeColor = &H80000012
.Font.Underline = False
.Font.Bold = False
.Font.Italic = False
End With
End Sub

Hervé.

"José" <perez.jose@free.fr> a écrit dans le message news:
3f59f226$0$10412$626a54ce@news.free.fr...

Bonjour,

quelqu'un pourrait-il m'expliquer comment placer une adresse Email dans un
UserForm.
Merci