Immagine scorrevole
Da Gambas-it.org - Wikipedia.
Versione del 13 set 2023 alle 16:30 di Vuott (Discussione | contributi)
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