Differenze tra le versioni di "Oggetti scorrevoli"

Versione delle 13:39, 19 feb 2014

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 subito 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

Ora facciamo sorrere un oggetto dall'alto in basso e viceversa:

Private a As Short
Private b As Short


Public Sub Form_Open()

  Me.Height = Desktop.Height  
  Me.Width = Desktop.Width  
     
  Timer1.Delay = 3
  Timer1.Start()
     
End
     
     
Public Sub Timer1_Timer()  

  Button1.Y = a 
           
  If a = Desktop.Height - Button1.Height Then b = -1
  If a = 0 Then b = 1

  a += b

End