Hallöchen,
versuchs mal hiermit, vielleicht kannste es ja gebrauchen.
declare ende%,x%,y%,button%,listbox%,anzeig$
def @SetMouse(2) !"USER32","SetCursorPos"
x%=100
y%=100
cls
Loadbmp "C:\WINDOWS\SETUP.BMP",0,0;0
Windowtitle "ENDE TASTE ESCAPE"
Let Button%=@CREATE("BUTTON",%hwnd ,"anderes Hintergrundbild",330 ,290 ,200 ,30)
Let Listbox%=@CREATE("LISTBOX",%hwnd ,"",75 ,180 ,130 ,70)
UseFont "Times New Roman",25,0,0,1,0
TextColor RGB(255,255,0),-1
anzeig$="Um ein neues Bild anzuzeigen"
Drawtext 140,13,anzeig$
TextColor RGB(0,0,0),-1
Drawtext 142,10,anzeig$
ClearList
@AddString(Listbox%,"Bild 1")
@AddString(Listbox%,"Bild 2")
@AddString(Listbox%,"Bild 3")
@AddString(Listbox%,"Bild 4")
whilenot equ(%scankey,27)
if lt(x%,350)
inc x%
sleep 5
@SetMouse(x%,100)
if equ(x%,320)
Loadbmp "C:\WINDOWS\SETUP.BMP",0,0;0
RePaint
TextColor RGB(255,255,0),-1
anzeig$="klicken Sie einfach auf den Button..."
Drawtext 140,13,anzeig$
TextColor RGB(0,0,0),-1
Drawtext 142,10,anzeig$
endif
elseif equ(x%,350)
if neq(y%,350)
inc y%
sleep 5
@SetMouse(x%,y%)
elseif equ(y%,350)
Windowtitle "MAUS DRÜCKEN"
sleep 500
SendMessage (button%,513,0,0)
sleep 500
locate 10,10
Windowtitle "MAUS LOSLASSEN"
SendMessage (button%,514,0,0)
Loadbmp "C:\WINDOWS\WOLKEN.BMP",0,0;0
RePaint
setfocus (%hwnd)
sleep 1000
whilenot equ(x%,128)
case equ(%scankey,27):end
if equ(x%,310)
Loadbmp "C:\WINDOWS\WOLKEN.BMP",0,0;0
RePaint
TextColor RGB(255,255,0),-1
anzeig$="Wollen Sie ein kleines Bild anzeigen?"
Drawtext 140,13,anzeig$
TextColor RGB(0,0,0),-1
Drawtext 142,10,anzeig$
endif
dec x%
sleep 5
@SetMouse(x%,y%)
wend
whilenot equ(y%,245)
case equ(%scankey,27):end
if equ(y%,340)
Loadbmp "C:\WINDOWS\WOLKEN.BMP",0,0;0
RePaint
TextColor RGB(255,255,0),-1
anzeig$="Klicken Sie einfach in die Bildliste"
Drawtext 140,13,anzeig$
TextColor RGB(0,0,0),-1
Drawtext 142,10,anzeig$
endif
dec y%
sleep 5
@SetMouse(x%,y%)
wend
locate 10,10
Windowtitle "Eintrag 2 markieren"
sleep 500
SendMessage(Listbox%,$0186,1,0) 'LB_SETCURSEL
Loadbmp "C:\WINDOWS\WOLKEN.BMP",0,0;0
RePaint
TextColor RGB(255,255,0),-1
anzeig$="Viel Spaß mit dem Programm!"
Drawtext 140,13,anzeig$
TextColor RGB(0,0,0),-1
Drawtext 142,10,anzeig$
LoadBmp "C:\WINDOWS\KACHELN.BMP",50,50;0
sleep 4000
end
endif
endif
wend
|