Creare Menu popup da codice - Cronologia

Vuott il 12:34, 28 lug 2024

2024-07-28T12:34:28Z

← Versione meno recente		Versione delle 06:34, 28 lug 2024
Riga 40:		Riga 40:
	Dim SottoVoci As String[] = ["PrimaSub", "SecondaSub", "TerzaSub", "QuartaSub"]		Dim SottoVoci As String[] = ["PrimaSub", "SecondaSub", "TerzaSub", "QuartaSub"]

			<FONT color=gray>' ''Crea innanzitutto il Menu principale:''</font>
	hMenu = New Menu(Me)		hMenu = New Menu(Me)

			<FONT color=gray>' ''Poi crea le voci del Menu principale:''</font>
	For Each nome As String In NomiVociMenu		For Each nome As String In NomiVociMenu
	With VoceMenu = New Menu(hMenu)		With VoceMenu = New Menu(hMenu)
	.text = nome		.text = nome
			<FONT color=gray>' ''Poi crea le sub-voci per ciascuna voce del menu principale:''</font>
	For Each subnome As String In SottoVoci		For Each subnome As String In SottoVoci
	With subVoce = New Menu(VoceMenu) ~~'As "VociMenu"~~		With subVoce = New Menu(VoceMenu)
	.text = subnome		.text = subnome
	.Action = .text & " della " & VoceMenu.Text		.Action = .text & " della " & VoceMenu.Text

Vuott il 12:32, 28 lug 2024

2024-07-28T12:32:36Z

← Versione meno recente		Versione delle 06:32, 28 lug 2024
Riga 27:		Riga 27:

	<FONT color=gray>' ''Vediamo semplicemente il testo del sotto-Menu cliccato:''</font>		<FONT color=gray>' ''Vediamo semplicemente il testo del sotto-Menu cliccato:''</font>
			Print azione

			End


			====Creando delle sub-voci alle voci del Menu principale====
			Public Sub Form_Menu()

			Dim hMenu As Menu
			Dim VoceMenu, subVoce As Menu
			Dim NomiVociMenu As String[] = ["Prima voce", "Seconda voce", "Terza voce", "Quarta voce"]
			Dim SottoVoci As String[] = ["PrimaSub", "SecondaSub", "TerzaSub", "QuartaSub"]

			hMenu = New Menu(Me)

			For Each nome As String In NomiVociMenu
			With VoceMenu = New Menu(hMenu)
			.text = nome
			For Each subnome As String In SottoVoci
			With subVoce = New Menu(VoceMenu) 'As "VociMenu"
			.text = subnome
			.Action = .text & " della " & VoceMenu.Text
			End With
			Next
			End With
			Next

			hMenu.Popup

			End


			Public Sub Action_Activate(azione As String) As Boolean

	Print azione		Print azione

Vuott il 12:12, 28 lug 2024

2024-07-28T12:12:10Z

← Versione meno recente		Versione delle 06:12, 28 lug 2024
Riga 6:		Riga 6:

	Dim hMenu As Menu		Dim hMenu As Menu
	Dim ~~VociMenu~~ As Menu		Dim VoceMenu As Menu
	Dim NomiVociMenu As String[] = ["Prima voce", "Seconda voce", "Terza voce", "Quarta voce"]		Dim NomiVociMenu As String[] = ["Prima voce", "Seconda voce", "Terza voce", "Quarta voce"]

	hMenu = New Menu(Me) ~~'As "MenuPrincipale"~~		hMenu = New Menu(Me)

	For Each nome As String In NomiVociMenu		For Each nome As String In NomiVociMenu
	With ~~VociMenu~~ = New Menu(hMenu) ~~As "VociMenu"~~		With VoceMenu = New Menu(hMenu)
	.text = nome		.text = nome
	.Action = .text		.Action = .text

Vuott il 12:04, 28 lug 2024

2024-07-28T12:04:31Z

← Versione meno recente		Versione delle 06:04, 28 lug 2024
Riga 1:		Riga 1:
	Mostreremo due possibili modalità, per creare, cliccando con il tasto destro del mouse ad esempio sul ''Form''~~, un menu ''Popup'' con quattro sotto-menu, ciascuno dei quali presenta ulteriori tre sotto-menu~~:		Mostreremo due possibili modalità, per creare un menu ''Popup'', cliccando con il tasto destro del mouse ad esempio sul ''Form'':

	==Sollevando l'Evento "_Activate()" dei sotto-Menu==		==Sollevando l'Evento "_Activate()" dei sotto-Menu==
	Public Sub ~~Form_Menu~~() <FONT color=gray>' ''Questo Evento si scatena, se si è cliccato con il tasto destro del mouse.''</font>		In questa modalità si userà l'Evento "_Menu()" del ''Form'':
			Public Sub Form<FONT color=green>_Menu</font>() <FONT color=gray>' ''Questo Evento si scatena, se si è cliccato sul "Form" con il tasto destro del mouse.''</font>

	Dim ~~menu1~~, ~~submenu1livello~~, ~~submenu2livello~~ As ~~Menu~~		Dim hMenu As Menu
			Dim VociMenu As Menu
			Dim NomiVociMenu As String[] = ["Prima voce", "Seconda voce", "Terza voce", "Quarta voce"]

			hMenu = New Menu(Me) 'As "MenuPrincipale"

	~~<FONT color=gray>' ''Crea innanzitutto il Menu principale:''</font>~~		For Each nome As String In NomiVociMenu
	~~menu1 = New Menu(Me)~~		With VociMenu = New Menu(hMenu) As "VociMenu"
			.text = nome
	~~<FONT color=gray>' ''Poi crea quattro sotto-Menu (1° livello dei sotto-menu):''</font>~~		.Action = .text
	For j As ~~Byte = 1 To 4~~		End With
	~~submenu1livello~~ = New Menu(~~menu1~~)
	~~<FONT color=gray>' ''Mostra il testo per ciascuno dei quattro sotto-Menu:''</font>~~
	~~submenu1livello.Text =~~ "~~1° livello sotto-Menu" & "_~~" ~~& CStr(j)~~

	~~<FONT color=gray>' ''Poi crea tre sotto-Menu (2° livello dei sotto-menu) per ciascun precedente sotto-Menu del 1° livello:''</font>~~
	~~For b As Byte = 1 To 3~~
	~~submenu2livello = New Menu(submenu1livello)~~
	~~<FONT color=gray>' ''Mostra il testo per ciascuno dei tre sotto-Menu:''</font>~~
	~~submenu2livello.Text = submenu1livello~~.~~Text & " --> " &~~
	~~"2° livello sotto-Menu" & CStr(b)~~
	~~<FONT color~~=~~gray>' ''Assegna all'azione, quando si cliccherà su uno dei secondi sotto-Menu, il testo del secondo sotto-Menu medesimo:''</font>~~
	~~submenu2livello~~.Action = ~~submenu2livello~~.~~Text~~
	~~Next~~
	Next		Next

			<FONT color=gray>' ''Cliccando sul "Form" con il tasto destro del mouse, si aprirà il "PopMenu";''</font>
			hMenu<FONT color=red>.Popup</font>

	~~<FONT color=gray>' ''Mostra quindi le finestre di ciascun Menu:''</font>~~
	~~menu1.Popup~~

	End		End

Riga 40:		Riga 32:


	==Sollevando l'Evento "_Click()" ~~dei sotto-~~Menu==		==Sollevando l'Evento "_Click()" delle voci del Menu==
	~~Anziché sollevare l'Evento "Action_Activate()", si potrà sollevare l'Evento "_Click()" di un sotto-Menu.~~		Private hMenu As Menu
	~~del secondo sub-~~Menu ~~cliccato.~~
	~~<BR>Mostriamo un codice, simile al precedente, nel quale viene sollevare l'Evento "'_Click()" el secondo sub-Menu cliccato.~~
	~~Public Sub Form_Menu() <FONT color=gray>' ''Questo Evento si scatena, se si è cliccato con il tasto destro del mouse.''</font>~~

	~~Dim menu1, submenu1livello, submenu2livello As Menu~~

	~~<FONT color=gray>' ''Crea innanzitutto il Menu principale:''</font>~~		Public Sub Form_Open()
	~~menu1 = New Menu~~(Me)

	~~<FONT color=gray>' ''Poi crea quattro sotto-~~Menu ~~(1° livello dei sotto-menu):''</font>~~		Dim VociMenu As Menu
	~~For j~~ As ~~Byte~~ = ~~1 To 4~~		Dim NomiVociMenu As String[] = ["Prima voce", "Seconda voce", "Terza voce", "Quarta voce"]
	~~submenu1livello~~ = ~~New Menu(menu1)~~
	<FONT color=gray>' ''~~Mostra~~ il ~~testo per ciascuno dei quattro sotto-Menu:~~''</font>		With Me
	~~submenu1livello.Text = "1° livello sotto-Menu" & "_" & CStr(j)~~		.H = 512
			.W = 512
	<FONT color=~~gray~~>~~' ''Poi crea tre sotto-Menu (2° livello dei sotto-menu) per ciascun precedente sotto-Menu del 1° livello:''~~</font>		<FONT color=gray>' ''Cliccando sul "Form" con il tasto destro del mouse, si aprirà il "PopMenu";''</font>
	~~For b As Byte = 1 To 3~~		<FONT color=red>.PopupMenu</font> = "MenuPrincipale"
	~~submenu2livello~~ = New Menu(~~submenu1livello~~) As "~~Submenu2~~"		End With
	~~<FONT color=gray>' ''Mostra il testo per ciascuno dei tre sotto-Menu:''</font>~~
	~~submenu2livello.Text~~ = ~~submenu1livello.Text & " --> " &~~		hMenu = New Menu(Me) As "MenuPrincipale"
	~~"2° livello sotto-~~Menu~~" & CStr~~(b)
	~~<FONT color=gray>' ''Assegna all'azione, quando si cliccherà su uno dei secondi sotto-Menu, il testo del secondo sotto-Menu medesimo:''</font>~~		For Each nome As String In NomiVociMenu
	~~submenu2livello~~.~~Action~~ = ~~submenu2livello.Text~~		With VociMenu = New Menu(hMenu) As "VociMenu"
	~~Next~~		.text = nome
			End With
	Next		Next

	~~<FONT color=gray>' ''Mostra quindi le finestre di ciascun Menu:''</font>~~
	~~menu1.Popup~~

	End		End


	Public Sub ~~Submenu2~~<FONT color=red>~~'''~~_Click()~~'''~~</font>		Public Sub VociMenu<FONT color=red><B>_Click()</b></font>

	~~<FONT color=gray>' ''Vediamo semplicemente il testo dell'ultimo sotto-Menu cliccato:''</font>~~
	Print Last.Text		Print Last.Text

	End		End

Vuott il 13:37, 8 lug 2024

2024-07-08T13:37:46Z

← Versione meno recente		Versione delle 07:37, 8 lug 2024
Riga 19:		Riga 19:
	submenu2livello = New Menu(submenu1livello)		submenu2livello = New Menu(submenu1livello)
	<FONT color=gray>' ''Mostra il testo per ciascuno dei tre sotto-Menu:''</font>		<FONT color=gray>' ''Mostra il testo per ciascuno dei tre sotto-Menu:''</font>
	submenu2livello.Text = "2° livello sotto-Menu" & CStr(b)		submenu2livello.Text = submenu1livello.Text & " --> " &
			"2° livello sotto-Menu" & CStr(b)
	<FONT color=gray>' ''Assegna all'azione, quando si cliccherà su uno dei secondi sotto-Menu, il testo del secondo sotto-Menu medesimo:''</font>		<FONT color=gray>' ''Assegna all'azione, quando si cliccherà su uno dei secondi sotto-Menu, il testo del secondo sotto-Menu medesimo:''</font>
	submenu2livello.Action = submenu2livello.Text		submenu2livello.Action = submenu2livello.Text
Riga 60:		Riga 61:
	submenu2livello = New Menu(submenu1livello) As "Submenu2"		submenu2livello = New Menu(submenu1livello) As "Submenu2"
	<FONT color=gray>' ''Mostra il testo per ciascuno dei tre sotto-Menu:''</font>		<FONT color=gray>' ''Mostra il testo per ciascuno dei tre sotto-Menu:''</font>
	submenu2livello.Text = "2° livello sotto-Menu" & CStr(b)		submenu2livello.Text = submenu1livello.Text & " --> " &
			"2° livello sotto-Menu" & CStr(b)
	<FONT color=gray>' ''Assegna all'azione, quando si cliccherà su uno dei secondi sotto-Menu, il testo del secondo sotto-Menu medesimo:''</font>		<FONT color=gray>' ''Assegna all'azione, quando si cliccherà su uno dei secondi sotto-Menu, il testo del secondo sotto-Menu medesimo:''</font>
	submenu2livello.Action = submenu2livello.Text		submenu2livello.Action = submenu2livello.Text

Vuott il 13:34, 8 lug 2024

2024-07-08T13:34:34Z

← Versione meno recente		Versione delle 07:34, 8 lug 2024
Riga 40:		Riga 40:

	==Sollevando l'Evento "_Click()" dei sotto-Menu==		==Sollevando l'Evento "_Click()" dei sotto-Menu==
	Anziché sollevare l'Evento "Action_Activate()", si potrà sollevare l'Evento "'_Click()" di un sotto-Menu.		Anziché sollevare l'Evento "Action_Activate()", si potrà sollevare l'Evento "_Click()" di un sotto-Menu.
	del secondo sub-Menu cliccato.		del secondo sub-Menu cliccato.
	<BR>Mostriamo un codice, simile al precedente, nel quale viene sollevare l'Evento "'_Click()" el secondo sub-Menu cliccato.		<BR>Mostriamo un codice, simile al precedente, nel quale viene sollevare l'Evento "'_Click()" el secondo sub-Menu cliccato.
	Public Sub Form_Menu() <FONT color=gray>' ''Questo Evento si scatena, se si è cliccato con il tasto destro del mouse.''</font>		Public Sub Form_Menu() <FONT color=gray>' ''Questo Evento si scatena, se si è cliccato con il tasto destro del mouse.''</font>

	Dim menu1, ~~submenu1~~, ~~submenu2~~ As Menu		Dim menu1, submenu1livello, submenu2livello As Menu
	~~Dim j, b As Byte~~

	<FONT color=gray>' ''Crea innanzitutto il Menu principale:''</font>		<FONT color=gray>' ''Crea innanzitutto il Menu principale:''</font>
	menu1 = New Menu(Me)		menu1 = New Menu(Me)

	<FONT color=gray>' ''Poi crea quattro sotto-Menu:''</font>		<FONT color=gray>' ''Poi crea quattro sotto-Menu (1° livello dei sotto-menu):''</font>
	For j = 1 To 4		For j As Byte = 1 To 4
	~~submenu1~~ = New Menu(menu1)		submenu1livello = New Menu(menu1)
	<FONT color=gray>' ''Mostra il testo per ciascuno dei quattro sotto-Menu:''</font>		<FONT color=gray>' ''Mostra il testo per ciascuno dei quattro sotto-Menu:''</font>
	~~submenu1~~.Text = "~~submenu1_~~" & CStr(j)		submenu1livello.Text = "1° livello sotto-Menu" & "_" & CStr(j)

	<FONT color=gray>' ''Poi crea tre sotto-Menu per ciascun precedente sotto-Menu:''</font>		<FONT color=gray>' ''Poi crea tre sotto-Menu (2° livello dei sotto-menu) per ciascun precedente sotto-Menu del 1° livello:''</font>
	For b = 1 To 3		For b As Byte = 1 To 3
	~~<FONT color=gray>' ''Con questa seconda modalità è necessario assegnare ogni sotto-Menu ad un unico Gruppo di Eventi:''</font>~~		submenu2livello = New Menu(submenu1livello) As "Submenu2"
	~~submenu2~~ = New Menu(~~submenu1~~) As "Submenu2"
	<FONT color=gray>' ''Mostra il testo per ciascuno dei tre sotto-Menu:''</font>		<FONT color=gray>' ''Mostra il testo per ciascuno dei tre sotto-Menu:''</font>
	~~submenu2~~.Text = "~~submenu2_~~" & CStr(b)		submenu2livello.Text = "2° livello sotto-Menu" & CStr(b)
	<FONT color=gray>' ''Assegna all'azione, quando si cliccherà su uno dei secondi sotto-Menu, il testo del secondo sotto-Menu medesimo:''</font>		<FONT color=gray>' ''Assegna all'azione, quando si cliccherà su uno dei secondi sotto-Menu, il testo del secondo sotto-Menu medesimo:''</font>
	~~submenu2~~.Action = ~~submenu2~~.Text		submenu2livello.Action = submenu2livello.Text
	Next		Next
	Next		Next
Riga 74:		Riga 72:


	Public Sub Submenu2<FONT color=red>'''_Click()'''</font>~~(azione As String)~~		Public Sub Submenu2<FONT color=red>'''_Click()'''</font>

	<FONT color=gray>' ''Vediamo semplicemente il testo dell'ultimo sotto-Menu cliccato:''</font>		<FONT color=gray>' ''Vediamo semplicemente il testo dell'ultimo sotto-Menu cliccato:''</font>

Vuott il 13:29, 8 lug 2024

2024-07-08T13:29:32Z

← Versione meno recente		Versione delle 07:29, 8 lug 2024
Riga 4:		Riga 4:
	Public Sub Form_Menu() <FONT color=gray>' ''Questo Evento si scatena, se si è cliccato con il tasto destro del mouse.''</font>		Public Sub Form_Menu() <FONT color=gray>' ''Questo Evento si scatena, se si è cliccato con il tasto destro del mouse.''</font>

	Dim menu1, ~~submenu1~~, ~~submenu2~~ As Menu		Dim menu1, submenu1livello, submenu2livello As Menu
	~~Dim j, b As Byte~~

	<FONT color=gray>' ''Crea innanzitutto il Menu principale:''</font>		<FONT color=gray>' ''Crea innanzitutto il Menu principale:''</font>
	menu1 = New Menu(Me)		menu1 = New Menu(Me)

	<FONT color=gray>' ''Poi crea quattro sotto-Menu:''</font>		<FONT color=gray>' ''Poi crea quattro sotto-Menu (1° livello dei sotto-menu):''</font>
	For j = 1 To 4		For j As Byte = 1 To 4
	~~submenu1~~ = New Menu(menu1)		submenu1livello = New Menu(menu1)
	<FONT color=gray>' ''Mostra il testo per ciascuno dei quattro sotto-Menu:''</font>		<FONT color=gray>' ''Mostra il testo per ciascuno dei quattro sotto-Menu:''</font>
	~~submenu1~~.Text = "~~submenu1_~~" & CStr(j)		submenu1livello.Text = "1° livello sotto-Menu" & "_" & CStr(j)

	<FONT color=gray>' ''Poi crea tre sotto-Menu per ciascun precedente sotto-Menu:''</font>		<FONT color=gray>' ''Poi crea tre sotto-Menu (2° livello dei sotto-menu) per ciascun precedente sotto-Menu del 1° livello:''</font>
	For b = 1 To 3		For b As Byte = 1 To 3
	~~submenu2~~ = New Menu(~~submenu1~~)		submenu2livello = New Menu(submenu1livello)
	<FONT color=gray>' ''Mostra il testo per ciascuno dei tre sotto-Menu:''</font>		<FONT color=gray>' ''Mostra il testo per ciascuno dei tre sotto-Menu:''</font>
	~~submenu2~~.Text = "~~submenu2_~~" & CStr(b)		submenu2livello.Text = "2° livello sotto-Menu" & CStr(b)
	<FONT color=gray>' ''Assegna all'azione, quando si cliccherà su uno dei secondi sotto-Menu, il testo del secondo sotto-Menu medesimo:''</font>		<FONT color=gray>' ''Assegna all'azione, quando si cliccherà su uno dei secondi sotto-Menu, il testo del secondo sotto-Menu medesimo:''</font>
	~~submenu2~~.Action = ~~submenu2~~.Text		submenu2livello.Action = submenu2livello.Text
	Next		Next
	Next		Next

Vuott il 12:22, 8 lug 2024

2024-07-08T12:22:50Z

← Versione meno recente		Versione delle 06:22, 8 lug 2024
Riga 1:		Riga 1:
	Mostreremo due possibili modalità, per creare, cliccando con il tasto destro del mouse ad esempio sul ''Form'', un menu ''Popup'' con quattro sotto-menu, ciascuno dei quali presenta ulteriori tre sotto-menu:		Mostreremo due possibili modalità, per creare, cliccando con il tasto destro del mouse ad esempio sul ''Form'', un menu ''Popup'' con quattro sotto-menu, ciascuno dei quali presenta ulteriori tre sotto-menu:

	==Sollevando l'Evento "_Activate()" ~~di sub~~-Menu==		==Sollevando l'Evento "_Activate()" dei sotto-Menu==
	Public Sub Form_Menu() <FONT color=gray>' ''Questo Evento si scatena, se si è cliccato con il tasto destro del mouse.''</font>		Public Sub Form_Menu() <FONT color=gray>' ''Questo Evento si scatena, se si è cliccato con il tasto destro del mouse.''</font>

Riga 40:		Riga 40:


	==Sollevando l'Evento "_Click()" ~~di sub~~-Menu==		==Sollevando l'Evento "_Click()" dei sotto-Menu==
	Anziché sollevare l'Evento "Action_Activate()", si potrà sollevare l'Evento "'_Click()" di un sotto-Menu.		Anziché sollevare l'Evento "Action_Activate()", si potrà sollevare l'Evento "'_Click()" di un sotto-Menu.
	del secondo sub-Menu cliccato.		del secondo sub-Menu cliccato.

Vuott il 12:22, 8 lug 2024

2024-07-08T12:22:04Z

← Versione meno recente		Versione delle 06:22, 8 lug 2024
Riga 32:		Riga 32:


	Public Sub Action'''_Activate'''(azione As String) As Boolean		Public Sub Action<FONT color=red>'''_Activate'''</font>(azione As String) As Boolean

	<FONT color=gray>' ''Vediamo semplicemente il testo del sotto-Menu cliccato:''</font>		<FONT color=gray>' ''Vediamo semplicemente il testo del sotto-Menu cliccato:''</font>
Riga 75:		Riga 75:


	Public Sub '''~~Submenu2~~'''~~_Click~~()		Public Sub Submenu2<FONT color=red>'''_Click()'''</font>(azione As String)

	<FONT color=gray>' ''Vediamo semplicemente il testo dell'ultimo sotto-Menu cliccato:''</font>		<FONT color=gray>' ''Vediamo semplicemente il testo dell'ultimo sotto-Menu cliccato:''</font>

Vuott il 12:21, 8 lug 2024

2024-07-08T12:21:04Z

← Versione meno recente		Versione delle 06:21, 8 lug 2024
Riga 1:		Riga 1:
	Mostreremo ~~un possibile codice~~ per creare, cliccando con il tasto destro del mouse ad esempio sul ''Form'', un menu ''Popup'' con quattro sotto-menu, ciascuno dei quali presenta ulteriori tre sotto-menu:		Mostreremo due possibili modalità, per creare, cliccando con il tasto destro del mouse ad esempio sul ''Form'', un menu ''Popup'' con quattro sotto-menu, ciascuno dei quali presenta ulteriori tre sotto-menu:

			==Sollevando l'Evento "_Activate()" di sub-Menu==
	Public Sub Form_Menu() <FONT color=gray>' ''Questo Evento si scatena, se si è cliccato con il tasto destro del mouse.''</font>		Public Sub Form_Menu() <FONT color=gray>' ''Questo Evento si scatena, se si è cliccato con il tasto destro del mouse.''</font>

Riga 30:		Riga 32:


	Public Sub ~~Action_Activate~~(azione As String) As Boolean		Public Sub Action'''_Activate'''(azione As String) As Boolean

	<FONT color=gray>' ''Vediamo semplicemente il testo del sotto-Menu cliccato:''</font>		<FONT color=gray>' ''Vediamo semplicemente il testo del sotto-Menu cliccato:''</font>
Riga 38:		Riga 40:


	Anziché sollevare l'~~evento ''~~Action_Activate()'', si potrà sollevare l'~~evento~~ "'' _Click()'' " del secondo sub-Menu cliccato. ~~In tal caso il~~ precedente ~~codice~~ viene ~~così modificato:~~		==Sollevando l'Evento "_Click()" di sub-Menu==
			Anziché sollevare l'Evento "Action_Activate()", si potrà sollevare l'Evento "'_Click()" di un sotto-Menu.
			del secondo sub-Menu cliccato.
			<BR>Mostriamo un codice, simile al precedente, nel quale viene sollevare l'Evento "'_Click()" el secondo sub-Menu cliccato.
	Public Sub Form_Menu() <FONT color=gray>' ''Questo Evento si scatena, se si è cliccato con il tasto destro del mouse.''</font>		Public Sub Form_Menu() <FONT color=gray>' ''Questo Evento si scatena, se si è cliccato con il tasto destro del mouse.''</font>

Riga 70:		Riga 75:


	Public Sub ~~Submenu2_Click~~()		Public Sub '''Submenu2'''_Click()

	<FONT color=gray>' ''Vediamo semplicemente il testo dell'ultimo sotto-Menu cliccato:''</font>		<FONT color=gray>' ''Vediamo semplicemente il testo dell'ultimo sotto-Menu cliccato:''</font>