mais si c'est possibleblendman a écrit :Le problème du fullscreen c'est qu'on a alors pas de menu, ce qui est balot ^^.

Code : Tout sélectionner
XIncludeFile "D:\Applications\Pure Basic\Pb2Web\p2w.pbi"
P2W_Converter_SetProfile("pb2webtest")
Global Sortie.s, run
Enumeration
#mainform
#mainmenu
#name
#button
EndEnumeration
P2W_Converter_Begin_Raw
;$('body').attr("id", "w_" + mainform);
P2W_Converter_End_Raw
Procedure MenuQuit()
Debug "Quit"
EndProcedure
Procedure Hello()
MessageRequester("Welcome", "Hello " + GetGadgetText(#name))
EndProcedure
Procedure WindowShow()
P2W_Converter_Begin_Comment
OpenWindow(#mainform, 0,0, 800, 600,"")
P2W_Converter_End_Comment
CreateMenu(#mainmenu, WindowID(#mainform)) ; menu creation starts....
MenuTitle("Project")
MenuItem(1, "Open")
OpenSubMenu("Recent files")
MenuItem(2, "File1")
MenuItem(3, "File2")
CloseSubMenu()
MenuItem(4, "Save")
MenuItem(5, "Save as")
MenuBar()
MenuItem(6, "Quit")
TextGadget(#PB_Any, 20, 50, 80, 25, "Name")
StringGadget(#name, 100, 50, 200, 22, "")
ButtonGadget(#button, 310, 50, 80, 22, "Click Here")
BindGadgetEvent(#button, @Hello())
BindMenuEvent(#mainmenu, 6, @MenuQuit())
EndProcedure
WindowShow()
P2W_Converter_Begin_Comment
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
P2W_Converter_End_Comment
Ca fonctionne avec la souris.blendman a écrit :Tu as essayé avec RT et une souris ? Peut-être c'est le coté tactile qui pose problème.