J'ai decouvert il y a maintenant 1 semaine (et oui ca fai pa beaucoup)
le purebasic. ==>mon pseudo=noob lol
je voudrai creer une fenetre listant les raccourcis se situant dans un dossier précis et permettre le doubleclic sur ces raccourci pour lancer le programme liés au raccourcis:
==> j'ai d'abord utiliser un webgadget (je fai du php habituelement)
cela fonctionne mais il est apparement impossible de definir le mode d'affichage avec un webgadget alors que je desire un affichage en mode icone.
J'ai ensuite découvert : "ChangeListIconGadgetDisplay"
qui permet de changer le mode d'affichage ==> je suis tres content
mai pour utiliser cette "balise" je dois abandonner "webgadget" pou"ExplorerListGadget"
dans ce cas j'obtiend bien le dossier et l'affichage que je desire mais il est impossible de lancer un raccourcis alors qu'avec un webgadget le mode d'affichage etait non modifiable mais je pouvai lancer les raccourcis!!!
je joint les 2 scripts:
WEBGADGET/
Code : Tout sélectionner
;- Window Constants
;
Enumeration
#Window_0
EndEnumeration
;- Gadget Constants
;
Enumeration
#Web_0
EndEnumeration
Procedure Open_Window_0()
If OpenWindow(#Window_0, 216, 6, 600, 300, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
If CreateGadgetList(WindowID())
WebGadget(#Web_0, 60, 60, 360, 160, "c:\raccourcis")
EndIf
EndIf
EndProcedure
Open_Window_0()
Repeat
Event = WaitWindowEvent()
If Event = #PB_EventGadget
;Debug "WindowID: " + Str(EventWindowID())
GadgetID = EventGadgetID()
If GadgetID = #Web_0
Debug "GadgetID: #Web_0"
EndIf
EndIf
et la "EXPLORERLISTGADGET"
Code : Tout sélectionner
Enumeration
#Window_0
EndEnumeration
Enumeration
#ico_0
EndEnumeration
Procedure Open_Window_0()
If OpenWindow(#Window_0, 216, 6, 600, 300, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
If CreateGadgetList(WindowID())
ExplorerListGadget(#ico_0, 60, 60, 360, 160, "c:\raccourcis\")
ChangeListIconGadgetDisplay(#Window_0, 4)
EndIf
EndIf
EndProcedure
Open_Window_0()
Repeat
If WaitWindowEvent() = #PB_EventGadget
;Debug "WindowID: " + Str(EventWindowID())
GadgetID = EventGadgetID()
If GadgetID = #ico_0
Debug "GadgetID: #ico_0"
EndIf
EndIf
Until WaitWindowEvent() = #PB_EventCloseWindow
End
Je vous demande un petit coup de pouce pour un ti'noob qui debute!
merci d'avance et bonne continuation
