Inserire più linguette ed oggetti via codice - Cronologia

Vuott: Redirect alla pagina Inserire più linguette ed oggetti via codice in una TabStrip

2022-08-26T13:05:41Z

Redirect alla pagina Inserire più linguette ed oggetti via codice in una TabStrip

← Versione meno recente		Versione delle 07:05, 26 ago 2022
Riga 1:		Riga 1:
	~~Per inserire~~ via codice in una ''TabStrip~~'' due o più linguette comprensive di uno o più oggetti al loro interno, possiamo utilizzare il codice che segue.~~		#REDIRECT [[Inserire più linguette ed oggetti via codice in una TabStrip]]
	~~<BR>Poniamo il caso di voler inserire quattro linguette, ed in ciascuna di queste un "''Button''":~~
	~~'''Public''' Sub Form_Open()~~

	~~Dim j As Byte~~
	~~Dim bt As Button~~

	~~<FONT color=#006400>' ''Inseriamo quattro linguette:''</font>~~
	~~TabStrip1.Count = 4~~

	~~For j = 0 To 3~~

	~~<FONT color=#006400>' ''Intestiamo ciascuna linguetta:''</font>~~
	~~TabStrip1[j~~]~~.Text = CStr(j)~~
	~~<FONT color=#006400>' ''Prendiamo in considerazione la linguetta n. j :''</font>~~
	~~TabStrip1.Index = j~~
	~~<FONT color=#006400>' ''Inseriamo un "Button" nella linguetta in considerazione:''</font>~~
	~~With bt = New Button(TabStrip1) As "tasto"~~
	~~.X = 40~~
	~~.Y = 100~~
	~~.W = 100~~
	~~.H = 50~~
	~~.Text = "Nuovo tasto " & CStr(j)~~
	~~.Tag = j~~
	~~End With~~

	~~Next~~

	~~<FONT color=#006400>' ''Infine, mostriamo in primo piano la prima linguetta:''</font>~~
	~~TabStrip1.Index = 0~~

	~~'''End'''~~


	~~'''Public''' Sub tasto_Click() <FONT color=#006400>' ''Facciamo la prova del funzionamento dei "Button" inseriti:''</font>~~

	~~Print "Premuto tasto n. " & Last.Tag~~

	~~'''End'''~~

Vuott il 02:24, 12 gen 2013

2013-01-12T02:24:16Z

← Versione meno recente		Versione delle 20:24, 11 gen 2013
Riga 7:		Riga 7:

	<FONT color=#006400>' ''Inseriamo quattro linguette:''</font>		<FONT color=#006400>' ''Inseriamo quattro linguette:''</font>
	~~TabStrip~~.Count = 4		TabStrip1.Count = 4

	For j = 0 To 3		For j = 0 To 3

Vuott il 11:38, 12 dic 2012

2012-12-12T11:38:16Z

← Versione meno recente		Versione delle 05:38, 12 dic 2012
Riga 1:		Riga 1:
	Per inserire via codice in una ''TabStrip'' due o più linguette comprensive di uno o più oggetti al loro interno, possiamo utilizzare il codice che segue.		Per inserire via codice in una ''TabStrip'' due o più linguette comprensive di uno o più oggetti al loro interno, possiamo utilizzare il codice che segue.
	<BR>Poniamo il caso di voler inserire quattro linguette, ed in ciascuna di queste un "''Button''":		<BR>Poniamo il caso di voler inserire quattro linguette, ed in ciascuna di queste un "''Button''":
	~~'''Private''' bt As Button~~


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

	Dim j As Byte		Dim j As Byte
			Dim bt As Button

	<FONT color=#006400>' ''Inseriamo quattro linguette:''</font>		<FONT color=#006400>' ''Inseriamo quattro linguette:''</font>

Vuott il 11:37, 12 dic 2012

2012-12-12T11:37:15Z

← Versione meno recente		Versione delle 05:37, 12 dic 2012
Riga 35:		Riga 35:


	'''Public Sub tasto_Click() <FONT color=#006400>' ''Facciamo la prova del funzionamento dei "Button" inseriti:''</font>		'''Public''' Sub tasto_Click() <FONT color=#006400>' ''Facciamo la prova del funzionamento dei "Button" inseriti:''</font>

	Print "Premuto tasto n. " & Last.Tag		Print "Premuto tasto n. " & Last.Tag

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

Vuott il 11:36, 12 dic 2012

2012-12-12T11:36:56Z

← Versione meno recente		Versione delle 05:36, 12 dic 2012
Riga 1:		Riga 1:
	Per inserire via codice in una ''TabStrip'' due o più linguette comprensive di uno o più oggetti al loro interno, possiamo utilizzare il codice che segue.		Per inserire via codice in una ''TabStrip'' due o più linguette comprensive di uno o più oggetti al loro interno, possiamo utilizzare il codice che segue.
	<BR>Poniamo il caso di voler inserire quattro linguette, ed in ciascuna di queste un "''Button''":		<BR>Poniamo il caso di voler inserire quattro linguette, ed in ciascuna di queste un "''Button''":
			'''Private''' bt As Button


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

	Dim j As Byte		Dim j As Byte
	~~Dim bt As Button~~

	<FONT color=#006400>' ''Inseriamo quattro linguette:''</font>		<FONT color=#006400>' ''Inseriamo quattro linguette:''</font>
Riga 33:		Riga 35:


	'''Public Sub tasto_Click()		'''Public Sub tasto_Click() <FONT color=#006400>' ''Facciamo la prova del funzionamento dei "Button" inseriti:''</font>

	Print "Premuto tasto n. " & ~~tasto~~.Tag		Print "Premuto tasto n. " & Last.Tag

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

Vuott il 11:31, 12 dic 2012

2012-12-12T11:31:50Z

← Versione meno recente		Versione delle 05:31, 12 dic 2012
Riga 16:		Riga 16:
	TabStrip1.Index = j		TabStrip1.Index = j
	<FONT color=#006400>' ''Inseriamo un "Button" nella linguetta in considerazione:''</font>		<FONT color=#006400>' ''Inseriamo un "Button" nella linguetta in considerazione:''</font>
	With bt = New Button(TabStrip1)		With bt = New Button(TabStrip1) As "tasto"
	.X = 40		.X = 40
	.Y = 100		.Y = 100
Riga 22:		Riga 22:
	.H = 50		.H = 50
	.Text = "Nuovo tasto " & CStr(j)		.Text = "Nuovo tasto " & CStr(j)
			.Tag = j
	End With		End With

Riga 28:		Riga 29:
	<FONT color=#006400>' ''Infine, mostriamo in primo piano la prima linguetta:''</font>		<FONT color=#006400>' ''Infine, mostriamo in primo piano la prima linguetta:''</font>
	TabStrip1.Index = 0		TabStrip1.Index = 0

			'''End'''


			'''Public Sub tasto_Click()

			Print "Premuto tasto n. " & tasto.Tag

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

Vuott il 11:29, 12 dic 2012

2012-12-12T11:29:20Z

← Versione meno recente		Versione delle 05:29, 12 dic 2012
Riga 6:		Riga 6:
	Dim bt As Button		Dim bt As Button

	~~With TabStrip1~~
	<FONT color=#006400>' ''Inseriamo quattro linguette:''</font>		<FONT color=#006400>' ''Inseriamo quattro linguette:''</font>
	.Count = 4		TabStrip.Count = 4
	~~<FONT color=#006400>' ''Mostriamo in primo piano la prima linguetta:''</font>~~
	~~.Index = 0~~
	~~End With~~

	For j = 0 To 3		For j = 0 To 3

	<FONT color=#006400>' ''Intestiamo ciascuna linguetta:''</font>		<FONT color=#006400>' ''Intestiamo ciascuna linguetta:''</font>
	TabStrip1[j].Text = CStr(j)		TabStrip1[j].Text = CStr(j)
Riga 28:		Riga 25:

	Next		Next

			<FONT color=#006400>' ''Infine, mostriamo in primo piano la prima linguetta:''</font>
			TabStrip1.Index = 0

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

Vuott: Nuova pagina: Per inserire via codice in una ''TabStrip'' due o più linguette comprensive di uno o più oggetti al loro interno, possiamo utilizzare il codice che segue.
Poniamo il caso di vole...

2012-12-12T11:26:52Z

Nuova pagina: Per inserire via codice in una ''TabStrip'' due o più linguette comprensive di uno o più oggetti al loro interno, possiamo utilizzare il codice che segue. Poniamo il caso di vole...

Nuova pagina

Per inserire via codice in una ''TabStrip'' due o più linguette comprensive di uno o più oggetti al loro interno, possiamo utilizzare il codice che segue.
 Poniamo il caso di voler inserire quattro linguette, ed in ciascuna di queste un "''Button''":
'''Public''' Sub Form_Open()

Dim j As Byte
Dim bt As Button

With TabStrip1
' ''Inseriamo quattro linguette:''
.Count = 4
' ''Mostriamo in primo piano la prima linguetta:''
.Index = 0
End With

For j = 0 To 3
' ''Intestiamo ciascuna linguetta:''
TabStrip1[j].Text = CStr(j)
' ''Prendiamo in considerazione la linguetta n. j :''
TabStrip1.Index = j
' ''Inseriamo un "Button" nella linguetta in considerazione:''
With bt = New Button(TabStrip1)
.X = 40
.Y = 100
.W = 100
.H = 50
.Text = "Nuovo tasto " & CStr(j)
End With

Next

'''End'''