Differenze tra le versioni di "Scritta lampeggiante"
Da Gambas-it.org - Wikipedia.
| Riga 1: | Riga 1: | ||
| − | Per ottenere una scritta ''lampeggiante'', anche - volendo - avente diversi colori, caratteristiche e dimensioni al proprio interno, | + | Per ottenere una scritta ''lampeggiante'' è possibile utilizzare almeno due modalità. |
| + | |||
| + | |||
| + | ===Uso delle sole risorse di Gambas=== | ||
| + | L'uso delle sole risorse di Gambas prevede l'utilizzo di un ''Timer''. | ||
| + | |||
| + | Mostriamo un esempio, nel quale si farà comparire la scritta all'interno di una ''TextLabel'': | ||
| + | '''Public''' Sub Form_Open() | ||
| + | |||
| + | With Timer1 | ||
| + | .Delay = 500 | ||
| + | .Start | ||
| + | End With | ||
| + | |||
| + | '''End''' | ||
| + | |||
| + | |||
| + | '''Public''' Sub Timer1_Timer() | ||
| + | |||
| + | If IsNull(TextLabel.Text) then | ||
| + | TextLabel.Text = "Scritta lampeggiante" | ||
| + | Else | ||
| + | TextLabel.Text = Null | ||
| + | Endif | ||
| + | |||
| + | '''End''' | ||
| + | |||
| + | |||
| + | ===Uso del codice ''javascript'' con l'oggetto ''WebView''=== | ||
| + | Un'altra modalità per ottenere una scritta lampeggiante, anche - volendo - avente diversi colori, caratteristiche e dimensioni al proprio interno, prevede l'uso del codice ''javascript'' con l'oggetto ''WebView''. Si dovrà attivare il componente ''gb.qt4.webkit''. | ||
Mostreremo, a mo' di esempio, il codice appresso indicato: | Mostreremo, a mo' di esempio, il codice appresso indicato: | ||
Versione delle 00:14, 3 apr 2015
Per ottenere una scritta lampeggiante è possibile utilizzare almeno due modalità.
Uso delle sole risorse di Gambas
L'uso delle sole risorse di Gambas prevede l'utilizzo di un Timer.
Mostriamo un esempio, nel quale si farà comparire la scritta all'interno di una TextLabel:
Public Sub Form_Open() With Timer1 .Delay = 500 .Start End With End Public Sub Timer1_Timer() If IsNull(TextLabel.Text) then TextLabel.Text = "Scritta lampeggiante" Else TextLabel.Text = Null Endif End
Uso del codice javascript con l'oggetto WebView
Un'altra modalità per ottenere una scritta lampeggiante, anche - volendo - avente diversi colori, caratteristiche e dimensioni al proprio interno, prevede l'uso del codice javascript con l'oggetto WebView. Si dovrà attivare il componente gb.qt4.webkit.
Mostreremo, a mo' di esempio, il codice appresso indicato:
Public Sub Button1_Click()
WebView1.HTML = "<HTML>" &
"<div id=\"blink\" style=\"text-align:center;\">" &
"<span style=\" color:#0000FF; font-size:18px;\">Questo è un testo </span>" &
"<span style=\" color:#FFAA00; font-size:20px;\">a tre colori </span>" &
"<span style=\"color:#FF0000; font-size:24px;\">che lampeggia !</span></a> </div>" &
"<script language=\"JavaScript\">" &
"function blink_one() {" &
"document.getElementById('blink').style.visibility='visible';" &
"/* Qui è indicato in millisecondi il tempo per il quale la scritta rimarrà visibile: */" &
"setTimeout('blink_two()',500);" &
"}" &
"function blink_two() {" &
"document.getElementById('blink').style.visibility='hidden';" &
"/* Qui è indicato in millisecondi il tempo per il quale la scritta rimarrà invisibile: */" &
"setTimeout('blink_one()',500);" &
"}" &
"blink_one();" &
"</script>" &
"</html>"
End
oppure quest'altro simile:
Public Sub Button1_Click()
WebView1.HTML = "<HTML>" &
"<script type=\"text/javascript\">" &
"function blink() {" &
"var blinks = document.getElementsByTagName('blink');" &
"for (var i = blinks.length - 1; i >= 0; i--) {" &
"var s = blinks[i];" &
"s.style.visibility = (s.style.visibility === 'visible') ? 'hidden' : 'visible';" &
"}" &
"/* Qui è indicata in millisecondi la frequenza di lampeggiamento: */" &
"window.setTimeout(blink, 500);" &
"}" &
"if (document.addEventListener) document.addEventListener(\"DOMContentLoaded\", blink, false);" &
"else if (window.addEventListener) window.addEventListener(\"load\", blink, false);" &
"else if (window.attachEvent) window.attachEvent(\"onload\", blink);" &
"else window.onload = blink;" &
"</script>" &
"<blink><FONT color=red>Testo lampeggiante</blink>" &
"</html>"
End
