Oggetti scorrevoli

Da Gambas-it.org - Wikipedia.

Per far scorrere un oggetto, ad esempio un Button sul Form, si potrà adottare il seguente codice. Si farà uso anche di un Timer.

Facciamo scorrere l'oggetto da destra verso sinistra:

Private a As Short


Public Sub Form_Open()

' Facciamo partire l'oggetto dall'esterno a destra del Form :
  a = FMain.W

End


Public Sub Button1_Click()

 With Timer1
   .Enabled = True
' Impostiamo la velocità di scorrimento dell'oggetto:
   .Delay = 50
 End With
 
End


Public Sub Timer1_Timer()

  Button1.X = a

' La posizione dell'oggetto decrementa di volta in volta,
' dando così l'effetto dello scorrimento verso sinistra:
  a -= 1

' Se l'oggetto è totalmente al di fuori sulla sinistra del Form,
' allora ricominciamo da capo:
  If a = Button1.W * -1 Then a = FMain.W

End


Lo scorrimento da sinistra verso destra sarà, invece, ottenuto così:

Private a As Short


Public Sub Form_Open()

' Facciamo partire l'oggetto dall'esterno a sinistra del Form :
  a = Button1.W * -1

End


Public Sub Button1_Click()

 With Timer1
   .Enabled = True
' Impostiamo la velocità di scorrimento dell'oggetto:
   .Delay = 50
 End With
 
End


Public Sub Timer1_Timer()

  Button1.X = a

' La posizione dell'oggetto aumenta di volta in volta,
' dando così l'effetto dello scorrimento verso destra:
  a += 1

' Se l'oggetto è totalmente al di fuori sulla destra del Form,
' allora ricominciamo subito da capo:
  If a = FMain.W Then a = Button1.W * -1

End