1
Programmazione (Gambas 2) / Re: Spostare immagine...
« il: 19 Febbraio 2014, 18:52:03 »
Ti ringrazio molto della risposta.
Mi guardo per bene il link che mi hai passato
Mi guardo per bene il link che mi hai passato
19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
PUBLIC Counter AS Integer
PUBLIC SUB Form_Keypress()
ME.close
END
PUBLIC SUB Form_Open()
Timer.Delay = 6000
ME.height = 1080
ME.Width = 1920
Img.Height = ME.Height
Img.Width = ME.Width
Img.Y = 0
Timer_Timer()
END
PUBLIC SUB Timer_Timer()
DIM i AS Integer
FOR i = 1 TO 1080
Img.y += 1
NEXT
IF Exist("/images/" & CStr(Counter) & ".JPG") = FALSE THEN Counter = 1
Img.picture = Picture["/dati/common/test/Left/" & CStr(Counter) & ".JPG"]
Counter += 1
FOR i = 1 TO 1080
Img.y -= 1
NEXT
END