[R] Insérer des boutons dans le texte.

[Boulanza]

Bonsoir,
Je cherche un script AutoIt afin d’insérer des boutons genre : Cliquer Ici pour lancer une application créer par Autoit ( Pour lire le contrat Cliquer Ici).
Merci pour votre collaboration.
Cordialement.

[jbnh]

Salut,
Un label avec GUICtrlSetOnEvent devrait faire l'affaire

[jguinch]

https://www.autoitscript.com/forum/topi ... slink-udf/

[Boulanza]

Merci pour votre collaboration..., le code ci-joint il vous permet de comprendre ma demande mais il ne répond pas exactement à ma requête.
Ce que je souhaite par exemple:
Pour connaitre nos conditions de vente, cliquez Ici .
Ici = ShellExecute(@ScriptDir&"\Contrat.exe")
Cordialement.

Code : Tout sélectionner

$str = "Ceci est un exemple. Vous pourrez retrouver cette exemple sur <a href='www.autoit.fr'> Autoit </a>"
;; $myLabel = _GuiCtrlCreateHyperLabel($hGui,$str,150,150,300,100)
;===================================================

#include <GUIConstantsEx.au3>
Opt("GuiOnEventMode", 1)

Global $link[1][2]

$gui = GuiCreate("", 150, 100)
GuiSetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$mylabel = _GuiCtrlCreateHyperLabel($gui, $str, 20, 20, 60, 20)
GuiSetState()

While 1
 Sleep(10)
WEnd

;=================================
Func _Surf()
  Switch @GUI_CtrlId
      Case $mylabel
          ShellExecute($link[0][1])
  EndSwitch
EndFunc

Func _Exit()
  Exit
EndFunc

Func _GuiCtrlCreateHyperLabel($hGui, $sTxt, $left, $top, $width, $height)
$link[0][0] = StringRegExpReplace($sTxt, '.+?>(.+?)<.+', "$1")
$link[0][1] = StringRegExpReplace($sTxt, ".+href='([^']+).+", "$1")
$_label = GuiCtrlCreateLabel($link[0][0], $left, $top, $width, $height)
GuiCtrlSetOnEvent(-1, "_Surf")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, 0x0000ff)
GUICtrlSetFont(-1, 9, -1, 4)
GUICtrlSetCursor(-1, 0)
Return $_label
EndFunc



;=========================

[Boulanza]

Bonjour,
Problème résolus:
$str = "Ceci est un exemple. Vous pourrez retrouver cette exemple sur <a href='Contrat.exe'> Ici </a>"
Cordialement