Immagine scorrevole

Da Gambas-it.org - Wikipedia.

Per ottenere un'immagine scorrevole sul Form si potrà utilizzare il seguente codice con una PictureBox e la Classe Timer : [nota 1]

Private PictureBox1 As PictureBox
Private Timer1 As Timer
Private c As Short


Public Sub Form_Open()

 With Me
   .W = Screen.AvailableWidth
   .H = Screen.AvailableHeight
 End With
 With PictureBox1 = New PictureBox(Me) As "PictureBox1"
   .Image = Image.Load("/percorso/del/file/immagine")
   .Resize(.Image.W, .Image.H)
 End With

 c = Me.W

 Wait 1

 With Timer1 = New Timer As "Timer1"
' Imposta la velocità di scorrimento della "PictureBox":"
   .Delay = 10
   .Start
 End With

End


Public Sub Timer1_Timer()

 PictureBox1.X = c

' La posizione della "PictureBox" decrementa di volta in volta, dando così l'effetto dello scorrimento verso sinistra:"
 c -= 1

' Se la "PictureBox" è totalmente al di fuori sulla sinistra del Form, allora ricominciamo subito da capo:"
 If c = PictureBox1.W * -1 Then c = FMain.W

End


Note

[1] Vedere anche la seguente pagina: Oggetti scorrevoli