Ciao a tutti. Sto giocherellando un po'.
Il mio progetto è molto semplice, consiste di una form, una drawing area ed un "button".
con questo codice muovo il mio "button" sull'asse delle x in maniera molto fluida:
PUBLIC x AS Float
PUBLIC y AS Float
PUBLIC xa AS Float
PUBLIC ya AS Float
PUBLIC SUB DrawingArea1_DblClick()
DIM i AS Integer
DIM ii AS Integer
IF xa < x THEN
FOR i = xa TO x STEP +1
Button1.Move(i, ME.Button1.Y)
WAIT 0.01
NEXT
xa = Button1.X
ya = Button1.Y
ValueBox3.Value = ya
ValueBox4.Value = xa
ELSE IF xa > x THEN
FOR ii = xa TO x STEP -1
Button1.Move(ii, ME.Button1.Y)
WAIT 0.01
NEXT
xa = Button1.X
ya = Button1.Y
ValueBox3.Value = ya
ValueBox4.Value = xa
ENDIF
END
ho inserito poi una immagine di sfondo nella drawingarea con questo codice:
PUBLIC SUB DrawingArea1_Draw()
DIM immagine AS Image
immagine = Image.Load("indirizzo immagine")
Draw.Image(immagine, 0, 0)
immagine.Resize(ME.DrawingArea1.Width, ME.DrawingArea1.Height)
END
è una immagine grande in jpeg, e ora il movimento del mio button è diventato lentissimo.....
Come al solito la classica domanda è:<>
Ciao a tutti!