a premier abbord c'est impossible, j'ai essaye et ca n'a pas marche, mais peut etre kelkin aura une idee
Code : Tout sélectionner
;{- Enumerations / DataSections
;{ Windows
Enumeration
#Window_0
EndEnumeration
;}
;{ Gadgets
Enumeration
#Web_0
#Button_0
#Text_0
EndEnumeration
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}
Procedure OpenWindow_Window_0()
If OpenWindow(#Window_0, 471, 31, 562, 259, "New window ( 0 )", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar|#PB_Window_ScreenCentered|#PB_Window_BorderLess)
WebGadget(#Web_0, 15, 5, 440, 190, "file:///D:/flash.swf", #PB_Web_Mozilla)
ButtonGadget(#Button_0, 385, 135, 140, 60, "")
TextGadget(#Text_0, 430, 55, 210, 50, "fghfgh")
EndIf
EndProcedure
OpenWindow_Window_0()
;{- Event loop
Repeat
Event = WaitWindowEvent()
Select Event
; ///////////////////
Case #PB_Event_Gadget
EventGadget = EventGadget()
EventType = EventType()
If EventGadget = #Web_0
ElseIf EventGadget = #Button_0
ElseIf EventGadget = #Text_0
EndIf
; ////////////////////////
Case #PB_Event_CloseWindow
EventWindow = EventWindow()
If EventWindow = #Window_0
CloseWindow(#Window_0)
Break
EndIf
EndSelect
ForEver
;
;}