Differenze tra le versioni di "Scritta scorrevole"
Riga 1: | Riga 1: | ||
− | + | Riportiamo qui alcuni esempi per ottenere una scritta scorrevole. | |
Riga 66: | Riga 66: | ||
'''End''' | '''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''' | ||
+ | |||
+ | |||
Versione delle 14:24, 24 ott 2012
Riportiamo qui alcuni esempi per ottenere una scritta scorrevole.
Indice
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.