Scritta scorrevole - Cronologia

Vuott il 00:20, 2 nov 2024

2024-11-02T00:20:31Z

← Versione meno recente		Versione delle 18:20, 1 nov 2024
Riga 106:		Riga 106:

	==Con il codice html==		==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>:		Si potrà utilizzare anche il codice html per ottenere una scritta scorrevole.
			<BR>Si dovranno attivare i Componenti ''gb.qt5'' e ''gb.qt5.webview'', oppure i Componenti ''gb.qt6'' e ''gb.qt6.webview''.
			<BR>Conseguentemente si farà uso di una ''WebView'', adoperando nel codice il suo Metodo ".SetHtml()".
			<BR>Il comando html che permetterà di avere una scritta scorrevole è <MARQUEE>.
	Public Sub Form_Open()		Public Sub Form_Open()

	WebView1.~~HTML =~~ "<MARQUEE>Scritta scorrevole"		WebView1.SetHtml("<MARQUEE>Scritta scorrevole")

	End		End
Riga 119:		Riga 122:
	Public Sub Form_Open()		Public Sub Form_Open()

	WebView1.~~HTML =~~ "<MARQUEE bgcolor=#FFFF00>Scritta scorrevole"		WebView1.SetHtml("<MARQUEE bgcolor=#FFFF00>Scritta scorrevole")

	End		End

	====WIDTH e HEIGHT====		====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.		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 assoluti, invece, viene espressa in pixel.
	Public Sub Form_Open()		Public Sub Form_Open()

	WebView1.~~HTML =~~ "<MARQUEE bgcolor=#FFFF00 width=80% height=30%>Scritta scorrevole"		WebView1.SetHtml("<MARQUEE bgcolor=#FFFF00 width=80% height=30%>Scritta scorrevole")

	End		End
Riga 134:		Riga 137:
	La proprietà ''behavior'' unitamente ad alcuni valori determina la modalità di scorrimento del testo.		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:		Di default lo scorrimento avviene da destra verso sinistra. Con il valore ''scroll direction=left'' lo scorrimento avviene, invece, da sinistra verso destra:
	Public Sub Form_Open()		Public Sub Form_Open()

	WebView1.~~HTML =~~ "<MARQUEE behavior=scroll direction=left>Scritta scorrevole"		WebView1.SetHtml("<MARQUEE behavior=scroll direction=left>Scritta scorrevole")

	End		End
Riga 147:		Riga 150:
	Public Sub Form_Open()		Public Sub Form_Open()

	WebView1.~~HTML =~~ "<MARQUEE scrollamount=100>Scritta scorrevole"		WebView1.SetHtml("<MARQUEE scrollamount=100>Scritta scorrevole")

	End		End
	''Scrolldelay'' indica il numero di millisecondi tra uno scatto e l'altro dello scorrimento del testo: <~~SPAN Style="text-decoration:underline"~~>minore è il valore dei millisecondi, maggiore sarà la velocità di scorrimento</~~span~~>:		''Scrolldelay'' indica il numero di millisecondi tra uno scatto e l'altro dello scorrimento del testo: <U>minore è il valore dei millisecondi, maggiore sarà la velocità di scorrimento</u>:
	Public Sub Form_Open()		Public Sub Form_Open()

	WebView1.~~HTML =~~ "<MARQUEE scrolldelay=500>Scritta scorrevole"		WebView1.SetHtml("<MARQUEE scrolldelay=500>Scritta scorrevole")

	End		End

Vuott il 05:50, 14 set 2023

2023-09-14T05:50:29Z

← Versione meno recente		Versione delle 23:50, 13 set 2023
Riga 107:		Riga 107:
	==Con il codice html==		==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>:		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()		Public Sub Form_Open()

	WebView1.HTML = "<MARQUEE>Scritta scorrevole"		WebView1.HTML = "<MARQUEE>Scritta scorrevole"

	~~'''~~End~~'''~~		End

	===Alcune proprietà del comando <MARQUEE>===		===Alcune proprietà del comando <MARQUEE>===
Riga 117:		Riga 117:
	====BGCOLOR====		====BGCOLOR====
	L'attributo ''bgcolor'' definisce il colore dello sfondo lungo il quale scorre il testo:		L'attributo ''bgcolor'' definisce il colore dello sfondo lungo il quale scorre il testo:
	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	WebView1.HTML = "<MARQUEE bgcolor=#FFFF00>Scritta scorrevole"		WebView1.HTML = "<MARQUEE bgcolor=#FFFF00>Scritta scorrevole"

	~~'''~~End~~'''~~		End

	====WIDTH e HEIGHT====		====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.		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()		Public Sub Form_Open()

	WebView1.HTML = "<MARQUEE bgcolor=#FFFF00 width=80% height=30%>Scritta scorrevole"		WebView1.HTML = "<MARQUEE bgcolor=#FFFF00 width=80% height=30%>Scritta scorrevole"

	~~'''~~End~~'''~~		End

	====BEHAVIOR====		====BEHAVIOR====
Riga 135:		Riga 135:

	Di default lo scorrimento avviene da destra verso sinistra. Con il valore ''scroll direction=left'' lo scorrimento avviene, invce, da sinistra verso destra:		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()		Public Sub Form_Open()

	WebView1.HTML = "<MARQUEE behavior=scroll direction=left>Scritta scorrevole"		WebView1.HTML = "<MARQUEE behavior=scroll direction=left>Scritta scorrevole"

	~~'''~~End~~'''~~		End

	====SCROLLAMOUNT e SCROLLDELAY====		====SCROLLAMOUNT e SCROLLDELAY====
Riga 145:		Riga 145:

	''Scrollamount'' indica quanti pixel alla volta si spostano: più è alto il numero, maggiore sarà la velocità.		''Scrollamount'' indica quanti pixel alla volta si spostano: più è alto il numero, maggiore sarà la velocità.
	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	WebView1.HTML = "<MARQUEE scrollamount=100>Scritta scorrevole"		WebView1.HTML = "<MARQUEE scrollamount=100>Scritta scorrevole"

	~~'''~~End~~'''~~		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:		''Scrolldelay'' indica il numero di millisecondi tra uno scatto e l'altro dello scorrimento del testo: <SPAN Style="text-decoration:underline">minore è il valore dei millisecondi, maggiore sarà la velocità di scorrimento</span>:
	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	WebView1.HTML = "<MARQUEE scrolldelay=10>Scritta scorrevole"		WebView1.HTML = "<MARQUEE scrolldelay=500>Scritta scorrevole"

	~~'''~~End~~'''~~		End

Vuott il 13:53, 8 lug 2023

2023-07-08T13:53:40Z

← Versione meno recente		Versione delle 07:53, 8 lug 2023
Riga 29:		Riga 29:
	'''2°''' esempio:		'''2°''' esempio:
	Private scorre As String = "Questa stringa scorre"		Private scorre As String = "Questa stringa scorre"
	Private i As ~~Integer~~		Private c As Short


Riga 42:		Riga 42:
	Public Sub Timer1_Timer()		Public Sub Timer1_Timer()

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

	End		End
	oppure lungo tutto il Controllo di testo utilizzato:		oppure lungo tutto il Controllo di testo utilizzato:
	Private Label1 As Label		Private Label1 As Label
	Private TESTO As String = Space(100) & "Testo che scorre"		Private TESTO As String = <FONT Color=darkorange>Space</font>(100) & "Testo che scorre"
	Private Tempus As Timer		Private Tempus As Timer
	Private c As Short		Private c As Short

Vuott il 13:50, 8 lug 2023

2023-07-08T13:50:32Z

@@ Riga 45: / Riga 45: @@
    Label1.Text = Mid(scorre, i, Label1.W)
    If i > Len(scorre) Then i = 0
   End

Vuott il 00:02, 8 lug 2023

2023-07-08T00:02:12Z

← Versione meno recente		Versione delle 18:02, 7 lug 2023
Riga 128:		Riga 128:
	=Note=		=Note=
	[1] Per lo scorrimento su una DrawingArea vedere la seguente pagina: [[Far scorrere un testo in una DrawingArea]]		[1] Per lo scorrimento su una DrawingArea vedere la seguente pagina: [[Far scorrere un testo in una DrawingArea]]

	~~[2] Questo algoritmo è stato proposto dall'utente ''Ceskho'' del Forum Gambas-it.org.~~

Vuott il 00:01, 8 lug 2023

2023-07-08T00:01:37Z

← Versione meno recente		Versione delle 18:01, 7 lug 2023
Riga 27:		Riga 27:


			'''2°''' esempio:
	'''2°''' esempio ~~(prevede la presenza dell'oggetto speciale ''Timer'')~~: ~~<SUP>[[[#Note\|nota 2]]]</sup>~~
	Private scorre As String = "Questa stringa scorre"		Private scorre As String = "Questa stringa scorre"
	Private i As Integer		Private i As Integer


	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	Me.~~Center~~		Timer1.Delay = 100
	Timer1.Start		Timer1.Start

	~~'''~~End~~'''~~		End


	~~'''~~Public~~''' Sub Form_Close()~~		Public Sub Timer1_Timer()

	~~Timer1.Stop~~

	~~'''End'''~~


	~~'''Public'''~~ Sub Timer1_Timer()

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

	~~'''~~End~~'''~~		End

Vuott il 23:54, 7 lug 2023

2023-07-07T23:54:27Z

← Versione meno recente		Versione delle 17:54, 7 lug 2023
Riga 69:		Riga 69:
	n = 0		n = 0
	Else		Else
	Write ~~#File.Out,~~ Mid(String$(String.Len(scorre), " ") & scorre, i, String.Len(scorre)) & String$(n, " ") & "\r"		Write Mid(String$(String.Len(scorre), " ") & scorre, i, String.Len(scorre)) & String$(n, " ") & "\r"
			Flush
	Endif		Endif
	Wait 0.1		Wait 0.1

Vuott il 23:53, 7 lug 2023

2023-07-07T23:53:48Z

@@ Riga 57: / Riga 57: @@
 '''3°''' esempio (testo che scorre nella console dell'IDE di Gambas):
-  '''Public''' Sub Main()
+  Public Sub Main()
    Dim scorre As String = "Questa stringa scorre"
    Dim i, n As Integer
-   While True
+  End

Vuott il 23:48, 7 lug 2023

2023-07-07T23:48:49Z

← Versione meno recente		Versione delle 17:48, 7 lug 2023
Riga 1:		Riga 1:
	Riportiamo qui alcuni esempi per ottenere una scritta scorrevole.		Riportiamo qui alcuni esempi per ottenere una scritta scorrevole. <SUP>[[[#Note\|nota 1]]]</sup>


Riga 7:		Riga 7:


	~~'''~~Public~~'''~~ Sub Button1_Click()		Public Sub Button1_Click()

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

	~~Timer1.Enabled = True~~

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

			Timer1.Delay = 100
			Timer1.Start

			End


	~~'''~~Public~~'''~~ Sub Timer1_Timer()		Public Sub Timer1_Timer()

	Titolo = Mid(Titolo, 2) & Left(Titolo, 1)		Titolo = Mid(Titolo, 2) & Left(Titolo, 1)
Riga 22:		Riga 23:
	TextBox1.Text = Titolo		TextBox1.Text = Titolo

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



	'''2°''' esempio (prevede la presenza dell'oggetto speciale ''Timer''): <SUP>[[[#Note\|~~Nota 1~~]]]</sup>		'''2°''' esempio (prevede la presenza dell'oggetto speciale ''Timer''): <SUP>[[[#Note\|nota 2]]]</sup>
	Private scorre As String = "Questa stringa scorre"		Private scorre As String = "Questa stringa scorre"
	Private i As Integer		Private i As Integer
Riga 132:		Riga 133:


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

	~~----~~		[2] Questo algoritmo è stato proposto dall'utente ''Ceskho'' del Forum Gambas-it.org.

	~~==Note==~~
	[1] Questo algoritmo è stato proposto dall'utente ''Ceskho'' del Forum Gambas-it.org.

Vuott il 08:58, 4 ago 2020

2020-08-04T08:58:06Z

← Versione meno recente		Versione delle 02:58, 4 ago 2020
Riga 27:		Riga 27:


	'''2°''' esempio (prevede la presenza dell'oggetto speciale ''Timer''): \|[[#Note\|1]]\|		'''2°''' esempio (prevede la presenza dell'oggetto speciale ''Timer''): <SUP>[[[#Note\|Nota 1]]]</sup>
	Private scorre As String = "Questa stringa scorre"		Private scorre As String = "Questa stringa scorre"
	Private i As Integer		Private i As Integer