Lien cliquable dans Editor Gadget

[Ar-S]

Voilà un code que j'ai cherché un bon moment avant de le trouver.
Ecrit par le grand Net Maestro sur le fofo anglais, je vous en fait profiter, je ne doute pas qu'il vous servira comme il me sert en ce moment.

Code : Tout sélectionner

Procedure CallBack(hwnd, msg, wParam, lParam)
  result = #PB_ProcessPureBasicEvents
  If msg = #WM_NOTIFY
    *nc.ENLINK = lParam
    If *nc\nmhdr\code = 1803 ; en_link
      If *nc\wParam ; 1 indicates click event
        SendMessage_(*nc\nmhdr\hwndFrom, #EM_EXSETSEL, 0,*nc\chrg)
        buf.s = Space(#MAX_PATH)
        SendMessage_(*nc\nmhdr\hwndFrom, #EM_GETSELTEXT,0,@buf)
        RunProgram(buf)
      EndIf
    EndIf
  EndIf
  ProcedureReturn result
EndProcedure 

OpenWindow(0,0,0,640,480,"Lien web cliquable sur editorgadget",$CF0001)
SetWindowCallback(@CallBack())
CreateGadgetList(WindowID(0))
eg=EditorGadget(0,0,0,640,480)

SendMessage_(eg,#EM_SETEVENTMASK,0,$04000000) ; enm_link
SendMessage_(GadgetID(0), #EM_AUTOURLDETECT, 1, 0)

AddGadgetItem(0,-1, "Salut les PB users ")
AddGadgetItem(0, -1, "Voulez-vous visiter mon site http://ldvmultimedia.com ?")
AddGadgetItem(0, -1, "Vous n'avez qu'à cliquer sur le lien:)")
Repeat: Until WaitWindowEvent() = #WM_CLOSE

Perso j'adore !