Oggetti scorrevoli - Cronologia

Vuott il 22:38, 13 set 2023

2023-09-13T22:38:17Z

← Versione meno recente		Versione delle 16:38, 13 set 2023
Riga 1:		Riga 1:
	Per far scorrere un ~~oggetto~~, ad esempio un ''Button'' sul ''Form'', si potrà adottare il seguente codice. Si farà uso anche di un ''Timer''.		Per far scorrere un Oggetto grafico, ad esempio un ''Button'' sul ''Form'', si potrà adottare il seguente codice. Si farà uso anche di un ''Timer''. <SUP>[[[#Note\|nota 1]]]</sup>

	Facciamo scorrere l'~~oggetto~~ da destra verso sinistra:		Facciamo scorrere l'Oggetto grafico da destra verso sinistra:
	Private c As Short		Private c As Short


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

	<FONT color=gray>' ''~~Facciamo~~ partire l'~~oggetto~~ dall'esterno a destra del Form:''</font>		<FONT color=gray>' ''Fa partire l'Oggetto grafico dall'esterno a destra del Form:''</font>
	c = FMain.W		c = FMain.W

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


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

	With Timer1		With Timer1
	~~.Enabled = True~~		<FONT color=gray>' ''Imposta la velocità di scorrimento dell'Oggetto grafico:''</font>
	<FONT color=gray>' ''~~Impostiamo~~ la velocità di scorrimento dell'~~oggetto~~:''</font>
	.Delay = 50		.Delay = 50
			.Start
	End With		End With

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


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

	Button1.X = c		Button1.X = c

	<FONT color=gray>' ''La posizione dell'~~oggetto~~ decrementa di volta in volta, dando così l'effetto dello scorrimento verso sinistra:''</font>		<FONT color=gray>' ''La posizione dell'Oggetto grafico decrementa di volta in volta, dando così l'effetto dello scorrimento verso sinistra:''</font>
	c -= 1		c -= 1

	<FONT color=gray>' ''Se l'~~oggetto~~ è totalmente al di fuori sulla sinistra del Form, allora ricominciamo subito da capo:''</font>		<FONT color=gray>' ''Se l'Oggetto grafico è totalmente al di fuori sulla sinistra del Form, allora ricominciamo subito da capo:''</font>
	If c = Button1.W * -1 Then c = FMain.W		If c = Button1.W * -1 Then c = FMain.W

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


	Lo scorrimento da sinistra verso destra sarà, invece, ottenuto così:		Lo scorrimento da sinistra verso destra sarà, invece, ottenuto così:
	Private c As Short		Private c As Short


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

	<FONT color=gray>' ''~~Facciamo~~ partire l'~~oggetto~~ dall'esterno a sinistra del Form:''</font>		<FONT color=gray>' ''Fa partire l'Oggetto grafico dall'esterno a sinistra del Form:''</font>
	c = Button1.W * -1		c = Button1.W * -1

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


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

	With Timer1		With Timer1
	~~.Enabled = True~~		<FONT Color=gray>' ''Imposta la velocità di scorrimento dell'Oggetto grafico:''</font>
	<FONT ~~color~~=gray>' ''~~Impostiamo~~ la velocità di scorrimento dell'~~oggetto~~:''</font>
	.Delay = 50		.Delay = 50
			.Start
	End With		End With

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


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

	Button1.X = c		Button1.X = c

	<FONT color=gray>' ''La posizione dell'~~oggetto~~ aumenta di volta in volta, dando così l'effetto dello scorrimento verso destra:''</font>		<FONT color=gray>' ''La posizione dell'Oggetto grafico aumenta di volta in volta, dando così l'effetto dello scorrimento verso destra:''</font>
	c += 1		c += 1

	<FONT color=gray>' ''Se l'~~oggetto~~ è totalmente al di fuori sulla destra del Form, allora ricominciamo subito da capo:''</font>		<FONT color=gray>' ''Se l'Oggetto grafico è totalmente al di fuori sulla destra del Form, allora ricominciamo subito da capo:''</font>
	If c = FMain.W Then c = Button1.W * -1		If c = FMain.W Then c = Button1.W * -1

	'''End'''		'''End'''
			Ora facciamo scorrere un Oggetto grafico dall'alto in basso e viceversa:

	Ora facciamo scorrere un ~~oggetto~~ dall'alto in basso e viceversa:
	Private c As Short		Private c As Short
	Private h As Short		Private h As Short


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

			With Me
			.Height = Desktop.Height
			.Width = Desktop.Width
			End With

			With Timer1
			.Delay = 3
			.Start
			End With

			End

	~~Me.Height = Desktop.Height~~
	~~Me.Width = Desktop.Width~~		Public Sub Timer1_Timer()

	~~Timer1.Delay = 3~~
	~~Timer1.Start()~~

	~~'''End'''~~

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

	Button1.Y = c		Button1.Y = c
Riga 93:		Riga 98:
	c += h		c += h

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



			=Note=
			[1] Vedere anche questa pagina: [[Immagine scorrevole]]

Vuott il 15:07, 14 giu 2023

2023-06-14T15:07:16Z

← Versione meno recente		Versione delle 09:07, 14 giu 2023
Riga 27:		Riga 27:

	<FONT color=gray>' ''La posizione dell'oggetto decrementa di volta in volta, dando così l'effetto dello scorrimento verso sinistra:''</font>		<FONT color=gray>' ''La posizione dell'oggetto decrementa di volta in volta, dando così l'effetto dello scorrimento verso sinistra:''</font>
	c -= 1		c -= 1

	<FONT color=gray>' ''Se l'oggetto è totalmente al di fuori sulla sinistra del Form, allora ricominciamo subito da capo:''</font>		<FONT color=gray>' ''Se l'oggetto è totalmente al di fuori sulla sinistra del Form, allora ricominciamo subito da capo:''</font>
	If c = Button1.W * -1 Then c = FMain.W		If c = Button1.W * -1 Then c = FMain.W

	'''End'''		'''End'''
Riga 64:		Riga 64:

	<FONT color=gray>' ''Se l'oggetto è totalmente al di fuori sulla destra del Form, allora ricominciamo subito da capo:''</font>		<FONT color=gray>' ''Se l'oggetto è totalmente al di fuori sulla destra del Form, allora ricominciamo subito da capo:''</font>
	If c = FMain.W Then c = Button1.W * -1		If c = FMain.W Then c = Button1.W * -1

	'''End'''		'''End'''

Vuott il 15:06, 14 giu 2023

2023-06-14T15:06:29Z

← Versione meno recente		Versione delle 09:06, 14 giu 2023
Riga 2:		Riga 2:

	Facciamo scorrere l'oggetto da destra verso sinistra:		Facciamo scorrere l'oggetto da destra verso sinistra:
	~~'''~~Private~~''' a~~ As Short		Private c As Short


Riga 8:		Riga 8:

	<FONT color=gray>' ''Facciamo partire l'oggetto dall'esterno a destra del Form:''</font>		<FONT color=gray>' ''Facciamo partire l'oggetto dall'esterno a destra del Form:''</font>
	a = FMain.W		c = FMain.W

	'''End'''		'''End'''


	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()
Riga 22:		Riga 21:

	'''End'''		'''End'''


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

	Button1.X = a		Button1.X = c

	<FONT color=gray>' ''La posizione dell'oggetto decrementa di volta in volta,''		<FONT color=gray>' ''La posizione dell'oggetto decrementa di volta in volta, dando così l'effetto dello scorrimento verso sinistra:''</font>
	~~' ''~~dando così l'effetto dello scorrimento verso sinistra:''</font>		c -= 1
	a -= 1

	<FONT color=gray>' ''Se l'oggetto è totalmente al di fuori sulla sinistra del Form,''		<FONT color=gray>' ''Se l'oggetto è totalmente al di fuori sulla sinistra del Form, allora ricominciamo subito da capo:''</font>
	~~' ''~~allora ricominciamo subito da capo:''</font>		If c = Button1.W * -1 Then c = FMain.W
	If a = Button1.W * -1 Then a = FMain.W

	'''End'''		'''End'''
Riga 40:		Riga 36:

	Lo scorrimento da sinistra verso destra sarà, invece, ottenuto così:		Lo scorrimento da sinistra verso destra sarà, invece, ottenuto così:
	~~'''~~Private~~''' a~~ As Short		Private c As Short


Riga 46:		Riga 42:

	<FONT color=gray>' ''Facciamo partire l'oggetto dall'esterno a sinistra del Form:''</font>		<FONT color=gray>' ''Facciamo partire l'oggetto dall'esterno a sinistra del Form:''</font>
	a = Button1.W * -1		c = Button1.W * -1

	'''End'''		'''End'''


	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()
Riga 60:		Riga 55:

	'''End'''		'''End'''


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

	Button1.X = a		Button1.X = c

	<FONT color=gray>' ''La posizione dell'oggetto aumenta di volta in volta,''		<FONT color=gray>' ''La posizione dell'oggetto aumenta di volta in volta, dando così l'effetto dello scorrimento verso destra:''</font>
	~~' ''~~dando così l'effetto dello scorrimento verso destra:''</font>		c += 1
	a += 1

	<FONT color=gray>' ''Se l'oggetto è totalmente al di fuori sulla destra del Form,''		<FONT color=gray>' ''Se l'oggetto è totalmente al di fuori sulla destra del Form, allora ricominciamo subito da capo:''</font>
	~~' ''~~allora ricominciamo subito da capo:''</font>		If c = FMain.W Then c = Button1.W * -1
	If a = FMain.W Then a = Button1.W * -1

	'''End'''		'''End'''
Riga 78:		Riga 70:

	Ora facciamo scorrere un oggetto dall'alto in basso e viceversa:		Ora facciamo scorrere un oggetto dall'alto in basso e viceversa:
	~~'''~~Private~~''' a~~ As Short		Private c As Short
	~~'''~~Private~~''' b~~ As Short		Private h As Short


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

	Me.Height = Desktop.Height		Me.Height = Desktop.Height
	Me.Width = Desktop.Width		Me.Width = Desktop.Width

	Timer1.Delay = 3		Timer1.Delay = 3
	Timer1.Start()		Timer1.Start()

	~~'''End'''~~

			'''End'''

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

	Button1.Y = a		Button1.Y = c

	If a = Desktop.Height - Button1.Height Then b = -1		If c = Desktop.Height - Button1.Height Then h = -1
	If a = 0 Then b = 1		If c = 0 Then h = 1

	a += b		c += h

	'''End'''		'''End'''

Vuott il 01:17, 20 feb 2014

2014-02-20T01:17:58Z

← Versione meno recente		Versione delle 19:17, 19 feb 2014
Riga 7:		Riga 7:
	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

	<FONT color=~~#006400~~>' ''Facciamo partire l'oggetto dall'esterno a destra del Form:''</font>		<FONT color=gray>' ''Facciamo partire l'oggetto dall'esterno a destra del Form:''</font>
	a = FMain.W		a = FMain.W

Riga 17:		Riga 17:
	With Timer1		With Timer1
	.Enabled = True		.Enabled = True
	<FONT color=~~#006400~~>' ''Impostiamo la velocità di scorrimento dell'oggetto:''</font>		<FONT color=gray>' ''Impostiamo la velocità di scorrimento dell'oggetto:''</font>
	.Delay = 50		.Delay = 50
	End With		End With
Riga 28:		Riga 28:
	Button1.X = a		Button1.X = a

	<FONT color=~~#006400~~>' ''La posizione dell'oggetto decrementa di volta in volta,''		<FONT color=gray>' ''La posizione dell'oggetto decrementa di volta in volta,''
	' ''dando così l'effetto dello scorrimento verso sinistra:''</font>		' ''dando così l'effetto dello scorrimento verso sinistra:''</font>
	a -= 1		a -= 1

	<FONT color=~~#006400~~>' ''Se l'oggetto è totalmente al di fuori sulla sinistra del Form,''		<FONT color=gray>' ''Se l'oggetto è totalmente al di fuori sulla sinistra del Form,''
	' ''allora ricominciamo subito da capo:''</font>		' ''allora ricominciamo subito da capo:''</font>
	If a = Button1.W * -1 Then a = FMain.W		If a = Button1.W * -1 Then a = FMain.W
Riga 45:		Riga 45:
	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

	<FONT color=~~#006400~~>' ''Facciamo partire l'oggetto dall'esterno a sinistra del Form:''</font>		<FONT color=gray>' ''Facciamo partire l'oggetto dall'esterno a sinistra del Form:''</font>
	a = Button1.W * -1		a = Button1.W * -1

Riga 55:		Riga 55:
	With Timer1		With Timer1
	.Enabled = True		.Enabled = True
	<FONT color=~~#006400~~>' ''Impostiamo la velocità di scorrimento dell'oggetto:''</font>		<FONT color=gray>' ''Impostiamo la velocità di scorrimento dell'oggetto:''</font>
	.Delay = 50		.Delay = 50
	End With		End With
Riga 66:		Riga 66:
	Button1.X = a		Button1.X = a

	<FONT color=~~#006400~~>' ''La posizione dell'oggetto aumenta di volta in volta,''		<FONT color=gray>' ''La posizione dell'oggetto aumenta di volta in volta,''
	' ''dando così l'effetto dello scorrimento verso destra:''</font>		' ''dando così l'effetto dello scorrimento verso destra:''</font>
	a += 1		a += 1

	<FONT color=~~#006400~~>' ''Se l'oggetto è totalmente al di fuori sulla destra del Form,''		<FONT color=gray>' ''Se l'oggetto è totalmente al di fuori sulla destra del Form,''
	' ''allora ricominciamo subito da capo:''</font>		' ''allora ricominciamo subito da capo:''</font>
	If a = FMain.W Then a = Button1.W * -1		If a = FMain.W Then a = Button1.W * -1
Riga 77:		Riga 77:


	Ora facciamo ~~sorrere~~ un oggetto dall'alto in basso e viceversa:		Ora facciamo scorrere un oggetto dall'alto in basso e viceversa:
	'''Private''' a As Short		'''Private''' a As Short
	'''Private''' b As Short		'''Private''' b As Short

Vuott il 19:39, 19 feb 2014

2014-02-19T19:39:42Z

@@ Riga 73: / Riga 73: @@
   ' ''allora ricominciamo subito da capo:''</font>
     If a = FMain.W Then a = Button1.W * -1
   '''End'''

Vuott il 10:59, 25 ott 2012

2012-10-25T10:59:48Z

← Versione meno recente		Versione delle 04:59, 25 ott 2012
Riga 7:		Riga 7:
	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

	<FONT color=#006400>' ''Facciamo partire l'oggetto dall'esterno a destra del Form :''</font>		<FONT color=#006400>' ''Facciamo partire l'oggetto dall'esterno a destra del Form:''</font>
	a = FMain.W		a = FMain.W

Riga 33:		Riga 33:

	<FONT color=#006400>' ''Se l'oggetto è totalmente al di fuori sulla sinistra del Form,''		<FONT color=#006400>' ''Se l'oggetto è totalmente al di fuori sulla sinistra del Form,''
	' ''allora ricominciamo da capo:''</font>		' ''allora ricominciamo subito da capo:''</font>
	If a = Button1.W * -1 Then a = FMain.W		If a = Button1.W * -1 Then a = FMain.W

Riga 45:		Riga 45:
	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

	<FONT color=#006400>' ''Facciamo partire l'oggetto dall'esterno a sinistra del Form :''</font>		<FONT color=#006400>' ''Facciamo partire l'oggetto dall'esterno a sinistra del Form:''</font>
	a = Button1.W * -1		a = Button1.W * -1

Vuott il 10:58, 25 ott 2012

2012-10-25T10:58:45Z

@@ Riga 1: / Riga 1: @@
-Per far scorrere un oggetto, ad esempio un ''Button'' sul ''Form'', si potrà adottare il seguente codice. Si farà uso anche di un ''Timer'':
+Per far scorrere un oggetto, ad esempio un ''Button'' sul ''Form'', si potrà adottare il seguente codice. Si farà uso anche di un ''Timer''.
   '''Private''' a As Short
@@ Riga 27: / Riga 29: @@
   <FONT color=#006400>' ''La posizione dell'oggetto decrementa di volta in volta,''
-  ' ''dando così l'effetto dello scorrimento:''</font>
+  ' ''dando così l'effetto dello scorrimento verso sinistra:''</font>
     a -= 1
@@ Riga 33: / Riga 35: @@
   ' ''allora ricominciamo da capo:''</font>
     If a = Button1.W * -1 Then a = FMain.W
   '''End'''

Vuott: Nuova pagina: Per far scorrere un oggetto, ad esempio un ''Button'' sul ''Form'', si potrà adottare il seguente codice. Si farà uso anche di un ''Timer'': '''Private''' a As Short '''Public'...

2012-10-25T10:37:03Z

Nuova pagina: Per far scorrere un oggetto, ad esempio un ''Button'' sul ''Form'', si potrà adottare il seguente codice. Si farà uso anche di un ''Timer'': '''Private''' a As Short '''Public'...

Nuova pagina

Per far scorrere un oggetto, ad esempio un ''Button'' sul ''Form'', si potrà adottare il seguente codice. Si farà uso anche di un ''Timer'':
'''Private''' a As Short

'''Public''' Sub Form_Open()

' ''Facciamo partire l'oggetto dall'esterno a destra del Form :''
a = FMain.W

'''End'''

'''Public''' Sub Button1_Click()

With Timer1
.Enabled = True
' ''Impostiamo la velocità di scorrimento dell'oggetto:''
.Delay = 50
End With

'''End'''

'''Public''' Sub Timer1_Timer()

Button1.X = a

' ''La posizione dell'oggetto decrementa di volta in volta,''
' ''dando così l'effetto dello scorrimento:''
a -= 1

' ''Se l'oggetto è totalmente al di fuori sulla sinistra del Form,''
' ''allora ricominciamo da capo:''
If a = Button1.W * -1 Then a = FMain.W

'''End'''