Differenze tra le versioni di "Scritta scorrevole"

Da Gambas-it.org - Wikipedia.
Riga 2: Riga 2:
  
  
 +
==Con le funzioni di Gambas==
 
'''1°''' esempio (prevede la presenza dell'oggetto speciale ''Timer''):
 
'''1°''' esempio (prevede la presenza dell'oggetto speciale ''Timer''):
  
Riga 55: Riga 56:
 
<BR>ingegnoso e simpatico esempio, del quale potete scaricare il sorgente qui:
 
<BR>ingegnoso e simpatico esempio, del quale potete scaricare il sorgente qui:
 
[http://www.gambas-it.org/smf/index.php?action=dlattach;topic=1043.0;attach=609 txtscorrevole-0.0.1.tar.gz]  |[[#Note|2]]|
 
[http://www.gambas-it.org/smf/index.php?action=dlattach;topic=1043.0;attach=609 txtscorrevole-0.0.1.tar.gz]  |[[#Note|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 è &lt;MARQUEE&gt;:
 +
'''Public''' Sub Form_Open()
 +
 +
  WebView1.HTML = "&lt;MARQUEE&gt;Scritta scorrevole"
 +
 +
'''End'''
  
  

Versione delle 15:11, 24 ott 2012

Gli esempi qui riportati sono tratti da interventi di alcuni iscritti al Forum riguardanti il medesimo argomento.


Con le funzioni di Gambas

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


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


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



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.