Creare Menu a finestra con MenuButton - Cronologia

Vuott il 18:31, 20 giu 2024

2024-06-20T18:31:46Z

← Versione meno recente		Versione delle 12:31, 20 giu 2024
Riga 1:		Riga 1:
	Di seguito mostriamo un semplice esempio, nel quale viene creato un ''Menu'' associato ad un oggetto ''MenuButton''.		Di seguito mostriamo un semplice esempio, nel quale viene creato un ''Menu'' associato ad un oggetto ''MenuButton''.

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

	Dim MenuButton1 As MenuButton		Dim MenuButton1 As MenuButton
Riga 28:		Riga 28:
	Next		Next

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

	~~'''~~Public~~'''~~ Sub SottoMenu_Click()
			Public Sub SottoMenu_Click()

	Print Last.text		Print Last.text

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

Vuott il 01:16, 1 ott 2022

2022-10-01T01:16:09Z

← Versione meno recente		Versione delle 19:16, 30 set 2022
Riga 1:		Riga 1:
	Di seguito mostriamo un semplice esempio, nel quale viene creato un Menu associato ad un oggetto ''MenuButton''.		Di seguito mostriamo un semplice esempio, nel quale viene creato un ''Menu'' associato ad un oggetto ''MenuButton''.

	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()
Riga 6:		Riga 6:
	Dim mn, sottomenu As Menu		Dim mn, sottomenu As Menu
	Dim b As Byte		Dim b As Byte
	Dim testo As String[] = ["~~aaa~~", "~~bbb~~", "~~ccc~~"]		Dim testo As String[] = ["1° sottomenu", "2° sottomenu", "3° sottomenu"]

	With MenuButton1 = New MenuButton(Me)		With MenuButton1 = New MenuButton(Me)

Vuott il 01:14, 1 ott 2022

2022-10-01T01:14:17Z

← Versione meno recente		Versione delle 19:14, 30 set 2022
Riga 13:		Riga 13:
	.H = 20		.H = 20
	.AutoResize = True		.AutoResize = True
	.Text = "Menu 1"		.Text = "Menu 1"
	<FONT Color=gray>' ''Associa il MenuButton al Menu principale (il testo deve essere identico al nome del Gruppo attribuito al Menu principale):''</font>		<FONT Color=gray>' ''Associa il MenuButton al Menu principale (il testo deve essere identico al nome del Gruppo attribuito al Menu principale):''</font>
	.Menu = "<FONT Color=#B22222>Menu</font>"		.Menu = "<FONT Color=#B22222>Menu</font>"

Vuott il 01:13, 1 ott 2022

2022-10-01T01:13:39Z

← Versione meno recente		Versione delle 19:13, 30 set 2022
Riga 4:		Riga 4:

	Dim MenuButton1 As MenuButton		Dim MenuButton1 As MenuButton
	Dim mn ~~As Menu~~		Dim mn, sottomenu As Menu
	~~Dim campomenu~~ As Menu
	Dim b As Byte		Dim b As Byte
	Dim testo As String[] = ["aaa", "bbb", "ccc"]		Dim testo As String[] = ["aaa", "bbb", "ccc"]

	With MenuButton1 = New MenuButton(Me)		With MenuButton1 = New MenuButton(Me)
	.X = ~~100~~		.X = 10
	.Y = ~~100~~		.Y = 0
	.~~Width~~ = 40		.H = 20
	.~~Height~~ = 30		.AutoResize = True
	<FONT Color=gray>' ''Associa il MenuButton al Menu (il testo deve essere identico al nome del Gruppo attribuito al Menu)''</font>		.Text = "Menu 1"
	.Menu = "<FONT Color=#B22222>Menu</font>"		<FONT Color=gray>' ''Associa il MenuButton al Menu principale (il testo deve essere identico al nome del Gruppo attribuito al Menu principale):''</font>
	End With		.Menu = "<FONT Color=#B22222>Menu</font>"
			End With

	<FONT Color=gray>' ''Crea il Menu:''</font>		<FONT Color=gray>' ''Crea il Menu principale:''</font>
	mn = New Menu(Me) As "<FONT Color=#B22222>Menu</font>"		mn = New Menu(Me) As "<FONT Color=#B22222>Menu</font>"

	<FONT Color=gray>' ''Crea alcuni ~~campi del~~ menu:''</font>		<FONT Color=gray>' ''Crea alcuni sotto-menu della voce Menu principale:''</font>
	For b = 0 To testo.Max		For b = 0 To testo.Max
	~~campomenu~~ = New Menu(mn) As "~~Campo~~"		sottomenu = New Menu(mn) As "SottoMenu"
	<FONT Color=gray>' ''Assegna un testo ai campi del Menu:''</font>		<FONT Color=gray>' ''Assegna un testo ai campi del Menu:''</font>
	~~campomenu~~.Text = testo[~~CStr(~~b)]		sottomenu.Text = testo[b]
	Next		Next

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

			'''Public''' Sub SottoMenu_Click()
	'''Public''' Sub ~~Campo_Click~~()

	Print Last.text		Print Last.text

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

Vuott: Creata pagina con "Di seguito mostriamo un semplice esempio, nel quale viene creato un Menu associato ad un oggetto ''MenuButton''. '''Public''' Sub Form_Open() Dim MenuButton1 As MenuBut..."

2016-03-25T10:08:23Z

Creata pagina con "Di seguito mostriamo un semplice esempio, nel quale viene creato un Menu associato ad un oggetto ''MenuButton''. '''Public''' Sub Form_Open() Dim MenuButton1 As MenuBut..."

Nuova pagina

Di seguito mostriamo un semplice esempio, nel quale viene creato un Menu associato ad un oggetto ''MenuButton''.

'''Public''' Sub Form_Open()

Dim MenuButton1 As MenuButton
Dim mn As Menu
Dim campomenu As Menu
Dim b As Byte
Dim testo As String[] = ["aaa", "bbb", "ccc"]

With MenuButton1 = New MenuButton(Me)
.X = 100
.Y = 100
.Width = 40
.Height = 30
' ''Associa il MenuButton al Menu (il testo deve essere identico al nome del Gruppo attribuito al Menu)''
.Menu = "Menu"
End With

' ''Crea il Menu:''
mn = New Menu(Me) As "Menu"

' ''Crea alcuni campi del menu:''
For b = 0 To testo.Max
campomenu = New Menu(mn) As "Campo"
' ''Assegna un testo ai campi del Menu:''
campomenu.Text = testo[CStr(b)]
Next

'''End'''

'''Public''' Sub Campo_Click()

Print Last.text

'''End'''