Eliminare una scheda da una TabStrip - Cronologia

Vuott il 12:40, 3 ago 2023

2023-08-03T12:40:01Z

← Versione meno recente		Versione delle 06:40, 3 ago 2023
Riga 33:		Riga 33:
	<Font Color=gray>' ''Elimina quindi la scheda corrente:''</font>		<Font Color=gray>' ''Elimina quindi la scheda corrente:''</font>
	TabStrip1[TabStrip1.Index].Delete		TabStrip1[TabStrip1.Index].Delete
			<Font Color=gray>' ''oppure anche: '''''TabStrip1.Current.Delete'''</font>
	Wend		Wend

	End		End

Vuott il 12:38, 3 ago 2023

2023-08-03T12:38:20Z

← Versione meno recente		Versione delle 06:38, 3 ago 2023
Riga 16:		Riga 16:
	<Font Color=gray>' ''Se vi è più di una scheda attiva, la scheda corrente viene eliminata dalla "TabStrip":''</font>		<Font Color=gray>' ''Se vi è più di una scheda attiva, la scheda corrente viene eliminata dalla "TabStrip":''</font>
	If TabStrip1.Count > 1 Then TabStrip1[TabStrip1.Index].Delete		If TabStrip1.Count > 1 Then TabStrip1[TabStrip1.Index].Delete
			<Font Color=gray>' ''oppure anche: '''''If TabStrip1.Count > 1 Then TabStrip1.Current.Delete'''</font>

	End		End

Vuott il 12:32, 3 ago 2023

2023-08-03T12:32:12Z

← Versione meno recente		Versione delle 06:32, 3 ago 2023
Riga 18:		Riga 18:

	End		End
	Se si vogliono eliminare con un ciclo le schede, lasciando - ad esempio - la sola prima scheda:		Se si vogliono eliminare con un ciclo le schede, lasciando - ad esempio - la sola prima scheda conservandone anche gli eventuali Controlli su di essa presenti:
	Public Sub Button1_Click()		Public Sub Button1_Click()

	Dim ob As Object		Dim ob As Object

	Do		TabStrip1.Index = TabStrip1.Count - 1

			While TabStrip1.Index > 0 <Font Color=gray>' ''Se c'è un'altra scheda oltre la prima, si accede al ciclo per eliminarla''</font>
	For Each ob In TabStrip1[TabStrip1.Index].Children		For Each ob In TabStrip1[TabStrip1.Index].Children
	<Font Color=gray>' ''Elimina gli eventuali oggetti grafici presenti sulla scheda corrente:''</font>		<Font Color=gray>' ''Elimina gli eventuali oggetti grafici presenti sulla scheda corrente:''</font>
	ob.Delete		ob.Delete
	Next		Next
	~~<Font Color=gray>' ''Se si è giunti alla prima scheda (dunque all'unica ormai presente), si esce dal ciclo:''</font>~~		<Font Color=gray>' ''Elimina quindi la scheda corrente:''</font>
	~~If TabStrip1.Index == 0 Then Exit~~
	<Font Color=gray>' ''Elimina la scheda corrente:''</font>
	TabStrip1[TabStrip1.Index].Delete		TabStrip1[TabStrip1.Index].Delete
	~~Loop~~		Wend

	End		End

Vuott il 12:25, 3 ago 2023

2023-08-03T12:25:17Z

← Versione meno recente		Versione delle 06:25, 3 ago 2023
Riga 1:		Riga 1:
	Per eliminare una scheda (o linguetta) da una "TabStrip", è sufficiente utilizzare il ~~metodo~~ ".Delete" della scheda individuata, purché tale scheda <SPAN Style="text-decoration:underline">sia priva di ~~oggetti~~ su di essa</span>.		Per eliminare una scheda (o linguetta) da una ''TabStrip'', è sufficiente utilizzare il Metodo ".Delete" della scheda individuata, purché tale scheda <SPAN Style="text-decoration:underline">sia priva di Oggetti grafici su di essa</span>.
	<BR>Bisogna tenere conto anche che <SPAN Style="text-decoration:underline">non</span> è possibile eliminare tutte le schede da una "TabStrip", non essendo possibile l'esistenza di una "TabStrip" senza schede.		<BR>Bisogna tenere conto anche che <SPAN Style="text-decoration:underline">non</span> è possibile eliminare tutte le schede da una ''TabStrip'', non essendo possibile l'esistenza di una ''TabStrip'' senza schede.

	====Esempio pratico====		====Esempio pratico====
	Supponiamo di avere una "TabStrip" con un certo numero di schede contenenti (tutte o alcune) anche eventualmente alcuni ~~oggetti~~ grafici.		Supponiamo di avere una ''TabStrip'' con un certo numero di schede contenenti (tutte o alcune) anche eventualmente alcuni Oggetti grafici.
	<BR>Si provvederà a ripulire ciascuna scheda attiva della "TabStrip" dagli eventuali ~~oggetti~~ grafici, su di esse presenti, e successivamente la scheda medesima.		<BR>Si provvederà a ripulire ciascuna scheda attiva della ''TabStrip'' dagli eventuali Oggetti grafici, su di esse presenti, e successivamente la scheda medesima.
	Public Sub Button1_Click()		Public Sub Button1_Click()

Riga 18:		Riga 18:

	End		End
	Se si vogliono eliminare con un ciclo le schede, lasciando - ad esempio - la sola prima scheda ~~però priva di eventuali Controlli già presenti su di essa all'inizio~~:		Se si vogliono eliminare con un ciclo le schede, lasciando - ad esempio - la sola prima scheda:
	Public Sub Button1_Click()		Public Sub Button1_Click()

Vuott il 12:19, 3 ago 2023

2023-08-03T12:19:28Z

← Versione meno recente		Versione delle 06:19, 3 ago 2023
Riga 18:		Riga 18:

	End		End
	Se si vogliono eliminare con un ciclo le schede, lasciando la sola prima scheda però priva di eventuali Controlli già presenti su di essa all'inizio:		Se si vogliono eliminare con un ciclo le schede, lasciando - ad esempio - la sola prima scheda però priva di eventuali Controlli già presenti su di essa all'inizio:
	Public Sub Button1_Click()		Public Sub Button1_Click()

Vuott il 12:18, 3 ago 2023

2023-08-03T12:18:59Z

← Versione meno recente		Versione delle 06:18, 3 ago 2023
Riga 18:		Riga 18:

	End		End
	Se si vogliono eliminare con un ciclo le schede, lasciando la sola prima scheda ~~(tenendo conto che si dovrà lasciare attiva almeno una scheda, non essendo possibile l'esistenza di una "TabStrip" senza schede), anch'essa~~ però priva di eventuali Controlli presenti su di essa all'inizio:		Se si vogliono eliminare con un ciclo le schede, lasciando la sola prima scheda però priva di eventuali Controlli già presenti su di essa all'inizio:
	Public Sub Button1_Click()		Public Sub Button1_Click()

Vuott il 12:16, 3 ago 2023

2023-08-03T12:16:22Z

← Versione meno recente		Versione delle 06:16, 3 ago 2023
Riga 5:		Riga 5:
	Supponiamo di avere una "TabStrip" con un certo numero di schede contenenti (tutte o alcune) anche eventualmente alcuni oggetti grafici.		Supponiamo di avere una "TabStrip" con un certo numero di schede contenenti (tutte o alcune) anche eventualmente alcuni oggetti grafici.
	<BR>Si provvederà a ripulire ciascuna scheda attiva della "TabStrip" dagli eventuali oggetti grafici, su di esse presenti, e successivamente la scheda medesima.		<BR>Si provvederà a ripulire ciascuna scheda attiva della "TabStrip" dagli eventuali oggetti grafici, su di esse presenti, e successivamente la scheda medesima.
	~~'''~~Public~~'''~~ Sub Button1_Click()		Public Sub Button1_Click()

	Dim ob As Object		Dim ob As Object
Riga 14:		Riga 14:
	Next		Next

	<Font Color=gray>' ''Se ~~scheda attiva corrente non~~ è ~~la prima (e quindi non è l'unica esistente, non essendo possibile l'esistenza~~ di una ~~"TabStrip" senza schede)~~, la scheda viene ~~con sicurezza~~ eliminata dalla "TabStrip":''</font>		<Font Color=gray>' ''Se vi è più di una scheda attiva, la scheda corrente viene eliminata dalla "TabStrip":''</font>
	If TabStrip1.~~Index~~ > 0 Then TabStrip1[TabStrip1.Index].Delete		If TabStrip1.Count > 1 Then TabStrip1[TabStrip1.Index].Delete

	~~'''~~End~~'''~~		End
			Se si vogliono eliminare con un ciclo le schede, lasciando la sola prima scheda (tenendo conto che si dovrà lasciare attiva almeno una scheda, non essendo possibile l'esistenza di una "TabStrip" senza schede), anch'essa però priva di eventuali Controlli presenti su di essa all'inizio:
	Se si vogliono eliminare con un ciclo le schede (tenendo ~~comunque~~ conto che si dovrà lasciare attiva una scheda, non essendo possibile l'esistenza di una "TabStrip" senza schede):		Public Sub Button1_Click()
	~~'''~~Public~~'''~~ Sub Button1_Click()

	Dim ob As Object		Dim ob As Object

	Do		Do
	For Each ~~child~~ In TabStrip1[TabStrip1.Index].Children		For Each ob In TabStrip1[TabStrip1.Index].Children
	<Font Color=gray>' ''Elimina gli eventuali oggetti grafici presenti sulla scheda corrente:''</font>		<Font Color=gray>' ''Elimina gli eventuali oggetti grafici presenti sulla scheda corrente:''</font>
	ob.Delete		ob.Delete
Riga 35:		Riga 34:
	Loop		Loop

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

Vuott il 23:38, 1 giu 2021

2021-06-01T23:38:15Z

← Versione meno recente		Versione delle 17:38, 1 giu 2021
Riga 1:		Riga 1:
	Per eliminare una scheda (o linguetta) da una ''TabStrip'', è sufficiente utilizzare il metodo ".Delete" della scheda individuata, purché tale scheda <SPAN Style="text-decoration:underline">sia priva di oggetti su di essa</span>.		Per eliminare una scheda (o linguetta) da una "TabStrip", è sufficiente utilizzare il metodo ".Delete" della scheda individuata, purché tale scheda <SPAN Style="text-decoration:underline">sia priva di oggetti su di essa</span>.
			<BR>Bisogna tenere conto anche che <SPAN Style="text-decoration:underline">non</span> è possibile eliminare tutte le schede da una "TabStrip", non essendo possibile l'esistenza di una "TabStrip" senza schede.

			====Esempio pratico====
	~~In questo esempio supponiamo~~ di avere una "TabStrip" con un certo numero di schede contenenti (tutte o alcune) anche eventualmente alcuni oggetti grafici.		Supponiamo di avere una "TabStrip" con un certo numero di schede contenenti (tutte o alcune) anche eventualmente alcuni oggetti grafici.
	<BR>Si provvederà a ripulire ciascuna scheda attiva della "TabStrip" dagli eventuali oggetti grafici, su di esse presenti, e successivamente la scheda medesima.		<BR>Si provvederà a ripulire ciascuna scheda attiva della "TabStrip" dagli eventuali oggetti grafici, su di esse presenti, e successivamente la scheda medesima.
	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()

Vuott il 23:33, 1 giu 2021

2021-06-01T23:33:57Z

← Versione meno recente		Versione delle 17:33, 1 giu 2021
Riga 13:		Riga 13:
	Next		Next

	<Font Color=gray>' ''~~Viene dunque con sicurezza eliminata dalla "TabStrip" la~~ scheda corrente ~~attiva.''~~		<Font Color=gray>' ''Se scheda attiva corrente non è la prima (e quindi non è l'unica esistente, non essendo possibile l'esistenza di una "TabStrip" senza schede), la scheda viene con sicurezza eliminata dalla "TabStrip":''</font>
	~~' ''Resterà soltanto~~ l'~~ultima scheda~~, non essendo possibile l'esistenza di una "TabStrip" senza schede.''</font>		If TabStrip1.Index > 0 Then TabStrip1[TabStrip1.Index].Delete
	If ~~TabStrip1[~~TabStrip1.Index] > 0 Then TabStrip1[TabStrip1.Index].Delete

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

Vuott il 23:29, 1 giu 2021

2021-06-01T23:29:39Z

@@ Riga 13: / Riga 13: @@
    Next
-  <Font Color=gray>' ''Viene dunque con sicurezza eliminata dalla "TabStrip" la scheda corrente attiva:''</font>
+  <Font Color=gray>' ''Viene dunque con sicurezza eliminata dalla "TabStrip" la scheda corrente attiva.''
-   TabStrip1[TabStrip1.Index].Delete
+ ' ''Resterà soltanto l'ultima scheda, non essendo possibile l'esistenza di una "TabStrip" senza schede.''</font>
   '''End'''