Visualizza wikitesto di Scritta scorrevole

Riportiamo qui alcuni esempi per ottenere una scritta scorrevole.


==Con le funzioni di Gambas==
'''1°''' esempio (prevede la presenza dell'oggetto speciale ''Timer''):

 Private Titolo As String = "Questa e' una stringa scorrevole"
 
 
 '''Public''' Sub Button1_Click()
 
  Dim i As Integer
 
   i = TextBox1.Font.TextWidth(titolo)
 
   Titolo &= String(i \ 2, " ")
   
   Timer1.Enabled = True
 
 '''End'''
 
 
 '''Public''' Sub Timer1_Timer()
 
 Titolo = Mid(Titolo, 2) & Left(Titolo, 1)
 
 TextBox1.Text = Titolo
 
 '''End'''
La velocità di scorrimento della scritta è determinata dalla proprietà ''.Delay'' del ''Timer''.



'''2°''' esempio (prevede la presenza dell'oggetto speciale ''Timer''):  |[[#Note|1]]|

 Private scorre As String = "Questa stringa scorre"
 Private 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(scorre, i, 10)
 
 '''End'''



==Con il codice html==
Si potrà utilizzare anche il codice html per ottenere una scritta scorrevole. Si attiverà il componente ''gb.qt4webkit'', e conseguentemente si farà uso di una ''WebView'', e si adopererà nel codice la sua proprietà ''HTML''. Il comando html che permetterà di avere una scritta scorrevole è &lt;MARQUEE&gt;:
 '''Public''' Sub Form_Open()
 
   WebView1.HTML = "&lt;MARQUEE&gt;Scritta scorrevole"
 
 '''End'''

===Alcune proprietà del comando &lt;MARQUEE&gt;===
Il comando &lt;MARQUEE&gt; possiede una serie di proprietà che consentono di caratterizzare l'effetto scorrevole di un testo:
====BGCOLOR====
L'attributo ''bgcolor'' definisce il colore dello sfondo lungo il quale scorre il testo:
 '''Public''' Sub Form_Open()
 
   WebView1.HTML = "&lt;MARQUEE bgcolor=#FFFF00&gt;Scritta scorrevole"
 
 '''End'''

====WIDTH e HEIGHT====
L'attributo ''width'' definisce la lunghezza dello sfondo, lungo il quale scorre il testo, mentre ''height'' ne definisce la larghezza. Se la definizione della lunghezza o della larghezza dello sfondo è basata rispetto alla lunghezza o alla larghezza del suo contenitore (nel nostro caso la ''WebView''), la dimensione viene espressa in percentuale. In termini asoluti, invece, viene espresa in pixel.
 '''Public''' Sub Form_Open()
 
   WebView1.HTML = "&lt;MARQUEE bgcolor=#FFFF00 width=80% height=30%&gt;Scritta scorrevole"
 
 '''End'''

====BEHAVIOR====
La proprietà ''behavior'' unitamente ad alcuni valori determina la modalità di scorrimento del testo.

Di default lo scorrimento avviene da destra verso sinistra. Con il valore ''scroll direction=left'' lo scorrimento avviene, invce, da sinistra verso destra:
 '''Public''' Sub Form_Open()
 
   WebView1.HTML = "&lt;MARQUEE behavior=scroll direction=left&gt;Scritta scorrevole"
 
 '''End'''

====SCROLLAMOUNT e SCROLLDELAY====
Gli attributi ''scrollamount'' e ''scrolldelay'' controllano la velocità dello scorrimento della scritta.

''Scrollamount'' indica quanti pixel alla volta si spostano: più è alto il numero, maggiore sarà la velocità.
 '''Public''' Sub Form_Open()
 
   WebView1.HTML = "&lt;MARQUEE scrollamount=100&gt;Scritta scorrevole"
 
 '''End'''
''Scrolldelay'' indica il numero di millisecondi tra uno scatto e l'altro dello scorrimento del testo: minore è il valore dei millisecondi, maggiore sarà la velocità di scorrimento:
 '''Public''' Sub Form_Open()
 
   WebView1.HTML = "&lt;MARQUEE scrolldelay=10&gt;Scritta scorrevole"
 
 '''End'''




----

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