fb:porticula NoPaste
OGL_Gui_Test.bas
| Uploader: |  MB Interactive Labs | 
| Datum/Zeit: | 02.04.2010 20:10:32 | 
#Include "inc/oglgui_event.bi"
Declare Sub windowClick
Declare Sub btn1Click
Declare Sub btn2Click
WindowScreen(500, 500, @windowClick)
Button(20, 20, 120, 120, @btn1Click)
Button(140, 20, 240, 120, @btn2Click)
StartAPP()
Sub windowClick
    Locate 1,1:Print "Fenster wurde angeklickt"
    Sleep 250
End Sub
Sub btn1Click
    Locate 1,1:Print "Button 1 wurde geklickt "
    Sleep 250
End Sub
Sub btn2Click
    Locate 1,1:Print "Button 2 wurde geklickt "
    Sleep 250
End Sub
	


			FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!



