Differenze tra le versioni di "Scritta lampeggiante"
| Riga 93: | Riga 93: | ||
"<blink><FONT color=red>Testo lampeggiante</blink>" & | "<blink><FONT color=red>Testo lampeggiante</blink>" & | ||
"</html>" | "</html>" | ||
| + | |||
| + | End | ||
| + | |||
| + | |||
| + | ==Testo lampeggiante in console dell'IDE di Gambas o in Terminale== | ||
| + | Per ottenere un testo lampeggiante nella console dell'IDE di Gambas o nel Terminale, si dovrà anteporre la scritta con il carattere ''escape'' "\e[5m". | ||
| + | <BR>Al termine del testo, per annullare gli effetti del carattere ''escape'' con il codice, si imposterà il seguente: "\e[0m". | ||
| + | |||
| + | Mostriamo un esempio: | ||
| + | Public Sub Main() | ||
| + | |||
| + | Print "<FONT Color=red><B>\e[5m</b></font>Testo qualsiasi<FONT Color=darkorange>\e[0m</font>" | ||
End | End | ||
Versione attuale delle 17:13, 1 nov 2024
Per ottenere una scritta lampeggiante è possibile utilizzare alcune 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 Label:
Private Label1 As Label Private Timer1 As Timer Public Sub _new() With Me .W = 300 .H = 100 .Arrangement = Arrange.Fill End With Label1 = New Label(Me) Label1.Alignment = Align.Center End Public Sub Form_Open() With Timer1 = New Timer As "Timer1" .Delay = 500 .Start End With End Public Sub Timer1_Timer() If IsNull(Label1.Text) then Label1.Text = "Scritta lampeggiante" Else Label1.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 dovranno attivare i Componenti gb.qt5 e gb.qt5.webview, oppure i Componenti gb.qt6 e gb.qt6.webview, oppure i Componenti gb.gtk3 e gb.gtk3.webview.
Mostreremo, a mo' di esempio, il codice appresso indicato:
Public Sub Button1_Click()
WebView1.SetHtml("<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.SetHtml("<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
Testo lampeggiante in console dell'IDE di Gambas o in Terminale
Per ottenere un testo lampeggiante nella console dell'IDE di Gambas o nel Terminale, si dovrà anteporre la scritta con il carattere escape "\e[5m".
Al termine del testo, per annullare gli effetti del carattere escape con il codice, si imposterà il seguente: "\e[0m".
Mostriamo un esempio:
Public Sub Main() Print "\e[5mTesto qualsiasi\e[0m" End
