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):

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|

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 è <MARQUEE>:

Public Sub Form_Open()

  WebView1.HTML = "<MARQUEE>Scritta scorrevole"

End

Alcune proprietà del comando <MARQUEE>

Il comando <MARQUEE> 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 = "<MARQUEE bgcolor=#FFFF00>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 = "<MARQUEE bgcolor=#FFFF00 width=80% height=30%>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 = "<MARQUEE behavior=scroll direction=left>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 = "<MARQUEE scrollamount=100>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 = "<MARQUEE scrolldelay=10>Scritta scorrevole"

End

---

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.