Differenze tra le versioni di "Scritta scorrevole"

Da Gambas-it.org - Wikipedia.
Riga 24: Riga 24:
  
  
2° esempio (da ''Ceskho''. Prevede la presenza dell'oggetto speciale ''Timer''):
+
2° esempio (Prevede la presenza dell'oggetto speciale ''Timer''): |[[#Note|1]]|
  
 
  da_scorrere As String = "Questa stringa scorre"
 
  da_scorrere As String = "Questa stringa scorre"
Riga 53: Riga 53:
  
 
3° esempio
 
3° esempio
<BR>molto ingegnoso e simpatico questo esempio proposto da ''Milio'', del quale potete scaricare il sorgente qui:
+
<BR>ingegnoso e simpatico esempio, del quale potete scaricare il sorgente qui:
[http://www.gambas-it.org/smf/index.php?action=dlattach;topic=1043.0;attach=609 txtscorrevole-0.0.1.tar.gz]
+
[http://www.gambas-it.org/smf/index.php?action=dlattach;topic=1043.0;attach=609 txtscorrevole-0.0.1.tar.gz] |[[#Note|2]]|
 +
 
 +
 
 +
----
 +
 
 +
==Note==
 +
[1] Questo algoritmo è stato proposto dall'utente ''Ceskho'' del Forum Gambas-it.org.
 +
 
 +
[2] Questo algoritmo è stato proposto dall'utente ''Milio'' del Forum Gambas-it.org.

Versione delle 08:49, 24 ott 2012

Gli esempi qui riportati sono tratti da interventi di alcuni iscritti al Forum riguardanti il medesimo argomento.


1° esempio (prevede la presenza dell'oggetto speciale Timer):

Titolo As String


Public Sub Button1_Click()

Titolo = String(30, " ") & "Questa e' una stringa scorrevole"
Timer1.Enabled = True

End


Public Sub Timer1_Timer()

Titolo = Mid(Titolo, 2) & Left(Titolo, 1)

TextBox1.Text = Titolo

End


2° esempio (Prevede la presenza dell'oggetto speciale Timer): |1|

da_scorrere As String = "Questa stringa scorre"
i As Integer = 0

Public Sub Form_Open()

 Me.Center
 Timer1.Start

End


Public Sub Form_Close()

 Timer1.Stop

End


Public Sub Timer1_Timer()

 Inc i
 Label1.Text = Mid(da_scorrere, i, 10)

End


3° esempio
ingegnoso e simpatico esempio, del quale potete scaricare il sorgente qui: txtscorrevole-0.0.1.tar.gz |2|



Note

[1] Questo algoritmo è stato proposto dall'utente Ceskho del Forum Gambas-it.org.

[2] Questo algoritmo è stato proposto dall'utente Milio del Forum Gambas-it.org.