Versione attuale delle 23:50, 13 set 2023

Riportiamo qui alcuni esempi per ottenere una scritta scorrevole. ^{[nota 1]}

Con le funzioni di Gambas

1° esempio (prevede la presenza dell'oggetto speciale Timer):

Private Titolo As String = "Questa e' una stringa scorrevole"


Public Sub Button1_Click()

 Titolo &= String(TextBox1.W \ TextBox1.Font.TextWidth(" "), " ")

 Timer1.Delay = 100 
 Timer1.Start

End


Public Sub Timer1_Timer()

Titolo = Mid(Titolo, 2) & Left(Titolo, 1)

TextBox1.Text = Titolo

End

La velocità di scorrimento della scritta è determinata dalla Proprietà ".Delay" del Timer.

2° esempio:

Private scorre As String = "Questa stringa scorre"
Private c As Short


Public Sub Form_Open()

 Timer1.Delay = 100
 Timer1.Start

End


Public Sub Timer1_Timer()

 Inc c
 Label1.Text = Mid(scorre, c, Label1.W)
 If c > Len(scorre) Then c = 0

End

oppure lungo tutto il Controllo di testo utilizzato:

Private Label1 As Label
Private TESTO As String = Space(100) & "Testo che scorre"
Private Tempus As Timer
Private c As Short

Public Sub _new()

 With Me
   .W = 300
   .H = 100
   .Arrangement = Arrange.Fill
 End With
 Label1 = New Label(Me)

End

Public Sub Form_Open()

 With Tempus = New Timer As "Tempus"
   .Delay = 50
   .Start
 End With

End

Public Sub Tempus_Timer()

 Inc c
 Label1.Text = Mid(TESTO, c, Label1.W)
 If c > Len(TESTO) Then c = 0

End

3° esempio (testo che scorre nella console dell'IDE di Gambas):

Public Sub Main()

 Dim scorre As String = "Questa stringa scorre"
 Dim i, n As Integer

 Do
   Inc i
   If i > String.Len(scorre) + 1 Then Inc n
   If n = String.Len(scorre) + 1 Then
     i = 0
     n = 0
   Else
     Write Mid(String$(String.Len(scorre), " ") & scorre, i, String.Len(scorre)) & String$(n, " ") & "\r"
     Flush
   Endif
   Wait 0.1
 Loop
 
End

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=500>Scritta scorrevole"

End

Note

[1] Per lo scorrimento su una DrawingArea vedere la seguente pagina: Far scorrere un testo in una DrawingArea