PureBasic Forums - English

Code: Select all

If OpenWindow(0,0,0,#scrw,#scrh,#PB_Window_ScreenCentered, title$) = 0
   MessageBox_ (0,"Could not open Window", title$, #MB_ICONINFORMATION|#MB_OK): End                                                                                     
EndIf
                          
If OpenWindowedScreen(WindowID(),0,0,#scrw,#scrh,0,0,0) = 0
   MessageBox_ (0,"Could not open 800x600x"+Str(#scrd)+"screen", title$, #MB_ICONINFORMATION|#MB_OK) : End                                                                                     
EndIf
          
  
SetFrameRate(#frate) 
 
Gosub loadsprite

PlayModule(0) 
ModuleVolume(0,100)


Repeat
FlipBuffers():ExamineKeyboard():ExamineMouse()

Event = WindowEvent()         
If Event=#PB_Event_CloseWindow: fade = 1: EndIf                                     
ETC...

Code: Select all

 Event = WindowEvent()
       
 If Event = #WM_LBUTTONDOWN
 Debug "Down"
ElseIf Event = #WM_LBUTTONUP 
Debug "Up"
endif