Differenze tra le versioni di "Scritta scorrevole"

Versione delle 14:24, 24 ott 2012

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

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

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.