Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
GUI * mal wieder ein Maus Problem
| Uploader: |  Key_Frogger |
| Datum/Zeit: | 29.09.2009 19:35:06 |
screen 18,32
Dim As Any Ptr Logo
Logo = ImageCreate(500,150)
BLoad "Frogger.bmp", Logo
Dim As Any Ptr Run1
Run1 = ImageCreate(80,20)
BLoad "Run.bmp", Run1
Dim As Any Ptr OFF
OFF = ImageCreate(80,20)
BLoad "Off.bmp", OFF
Dim As Integer x, y, buttons
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
put (72,50), Logo
sleep 3000
For i as integer = 70 to 570 step 5
screenlock
CIRCLE (i, 200), 12, rgb(255, 250, 250),,,,F
sleep 30
screenunlock
next
Locate 23, 15: Print " _________________________________________________ "
Locate 24, 15: Print "|This GUI is coded by: Key_Frogger |"
Locate 25, 15: Print "| |"
Locate 26, 15: Print "|Its allowed to change the Source_Code |"
Locate 27, 15: Print "|Only the name (Key_Frogger) is registered! |"
Locate 28, 15: Print "|Now Press ANY KEY and enjoy! |"
Locate 29, 15: Print "|_________________________________________________|"
Sleep
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
CLS
put (1,450), Run1
sleep
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
do
GetMouse (x, y, , buttons)
IF (x >= 450) AND (x <= 530) AND (y >= 1) AND (y <= 81) Then
put (1,470), OFF
Sleep 5000
CLS
exit do
end if
loop
sleep
CLS
Print "Next"