[Gelöst] Komplett bescheuert ?
Verfasst: 02.01.2010 23:38
Erstmal sry für den Thread Titel aber ******
Ich bin nur grad so verzweifelt ... was ist bitte an dem Code unten falsch ?
PB 4.40 Windows 7 | 32 Bit
Bitte sagt mir, dass ich nicht komplett bescheuert bin....
Edit by NicTheQuick: Als Gelöst markiert
Ich bin nur grad so verzweifelt ... was ist bitte an dem Code unten falsch ?
PB 4.40 Windows 7 | 32 Bit
Code: Alles auswählen
EnableExplicit
InitSprite()
Define MainWindow
Define Button
Define Event, Exit
MainWindow = OpenWindow(#PB_Any, 100, 100, 400, 300, "", #PB_Window_SystemMenu)
OpenWindowedScreen(WindowID(MainWindow), 0, 0, 400, 300, 0, 0, 0)
Button = CreateSprite(#PB_Any, 150, 20)
StartDrawing(SpriteOutput(Button))
Box(0, 0, 150, 20, $000000)
StopDrawing()
Repeat
Repeat
event = WindowEvent()
Select event
Case #PB_Event_CloseWindow
exit = #true
EndSelect
Until Event = 0
ClearScreen($EEAAEE)
DisplaySprite(Button, 100, 300)
FlipBuffers()
Until exit = #trueEdit by NicTheQuick: Als Gelöst markiert
