Page 1 sur 1
[R] Lien hypertexte vers site web
Posté : dim. 27 févr. 2011 18:56
par Yindoo
Petite question qui semble anodine mais je cherche et ne trouve pas comment faire un lien hypertexte vers un site web dans un GUICtrlCreateLabel
Merci à la communauté
Re: [..] Lien hypertexte vers site web
Posté : dim. 27 févr. 2011 19:02
par Tlem
Il faut créer simplement un événement sur un clic de ce label.
L'événement, lancera le navigateur par défaut, avec le lien donné en argument à la commande ShellExecute.
Re: [..] Lien hypertexte vers site web
Posté : dim. 27 févr. 2011 20:32
par matwachich
Voila pour un lien hypertexte dans une GUI (trouvé sur le forum anglais)
► Afficher le texte
Code : Tout sélectionner
;===============================================================================
;
; Function Name: _GuiCtrlCreateHyperlink()
; Description: Creates a label that acts as a hyperlink
;
; Parameter(s): $s_Text - Label text
; $i_Left - Label left coord
; [$i_Top] - Label top coord
; [$i_Width] - Label width
; [$i_Height] - Label height
; [$i_Color] - Text Color
; [$s_ToolTip] - Hyperlink ToolTip
; [$i_Style] - Label style
; [$i_ExStyle] - Label extended style
;
; Requirement(s): None
; Return Value(s): Control ID
;
; Author(s): Saunders <krawlie@hotmail.com>
;
;===============================================================================
Func _GuiCtrlCreateHyperlink($S_TEXT, $I_LEFT, $I_TOP, _
$I_WIDTH = -1, $I_HEIGHT = -1, $I_COLOR = 0x0000ff, $S_TOOLTIP = '', $I_STYLE = -1, $I_EXSTYLE = -1)
Local $I_CTRLID
$I_CTRLID = GUICtrlCreateLabel($S_TEXT, $I_LEFT, $I_TOP, $I_WIDTH, $I_HEIGHT, $I_STYLE, $I_EXSTYLE)
If $I_CTRLID <> 0 Then
GUICtrlSetFont($I_CTRLID, -1, -1, 4)
GUICtrlSetColor($I_CTRLID, $I_COLOR)
GUICtrlSetCursor($I_CTRLID, 0)
If $S_TOOLTIP <> '' Then
GUICtrlSetTip($I_CTRLID, $S_TOOLTIP)
EndIf
EndIf
Return $I_CTRLID
EndFunc ;==>_GuiCtrlCreateHyperlink
Apres pour lancer une page, il suffit de faire
Et le navigateur par défaut se lance