Visualizza wikitesto di Creare Menu popup da codice

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>
 
  Dim menu1, submenu1, submenu2 As Menu
  Dim j, b As Byte
  
 <FONT color=gray>' ''Crea innanzitutto il Menu principale:''</font>
  menu1 = New Menu(Me)
  
 <FONT color=gray>' ''Poi crea quattro sotto-Menu:''</font>
  For j = 1 To 4
    submenu1 = New Menu(menu1)
 <FONT color=gray>' ''Mostra il testo per ciascuno dei quattro sotto-Menu:''</font>
    submenu1.Text = "submenu1_" & CStr(j)
    
 <FONT color=gray>' ''Poi crea tre sotto-Menu per ciascun precedente sotto-Menu:''</font>
    For b = 1 To 3
      submenu2 = New Menu(submenu1)
 <FONT color=gray>' ''Mostra il testo per ciascuno dei tre sotto-Menu:''</font>
      submenu2.Text = "submenu2_" & 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>
      submenu2.Action = submenu2.Text
    Next
  Next
  
 <FONT color=gray>' ''Mostra quindi le finestre di ciascun Menu:''</font>
  menu1.Popup
 
 End
 
 
 Public Sub Action'''_Activate'''(azione As String) As Boolean
 
 <FONT color=gray>' ''Vediamo semplicemente il testo del sotto-Menu cliccato:''</font>
  Print azione
 
 End


==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>
 
  Dim menu1, submenu1, submenu2 As Menu
  Dim j, b As Byte
  
 <FONT color=gray>' ''Crea innanzitutto il Menu principale:''</font>
  menu1 = New Menu(Me)
  
 <FONT color=gray>' ''Poi crea quattro sotto-Menu:''</font>
  For j = 1 To 4
    submenu1 = New Menu(menu1)
 <FONT color=gray>' ''Mostra il testo per ciascuno dei quattro sotto-Menu:''</font>
    submenu1.Text = "submenu1_" & CStr(j)
    
 <FONT color=gray>' ''Poi crea tre sotto-Menu per ciascun precedente sotto-Menu:''</font>
    For b = 1 To 3
 <FONT color=gray>' ''Con questa seconda modalità è necessario assegnare ogni sotto-Menu ad un unico Gruppo di Eventi:''</font>
      submenu2 = New Menu(submenu1) As "Submenu2"
 <FONT color=gray>' ''Mostra il testo per ciascuno dei tre sotto-Menu:''</font>
      submenu2.Text = "submenu2_" & 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>
      submenu2.Action = submenu2.Text
    Next
  Next
  
 <FONT color=gray>' ''Mostra quindi le finestre di ciascun Menu:''</font>
  menu1.Popup
 
 End
 
 
 Public Sub '''Submenu2'''_Click()
  
 <FONT color=gray>' ''Vediamo semplicemente il testo dell'ultimo sotto-Menu cliccato:''</font>
  Print Last.Text
    
 End