Lien cliquable dans Editor Gadget
Publié : sam. 07/févr./2009 23:33
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.
Perso j'adore !
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