Visualizza wikitesto di Creare Menu da codice e non con l'Editor-Menu

Come è noto, per creare un classico Menu si utilizza l'apposito Editor, che viene aperto premendo i due tasti ctrl + e; ma qui prendiamo in considerazione la possibilità di realizzare un Menu mediante il codice.
<BR>Dovremo, inoltre, collegare un Evento alle sotto-voci del Menu principale, che venga sollevato, quando clicchiamo su una di quelle sotto-voci del Menu.

Prendiamo in considerazione alcune modalità.

==Creando una routine-evento per ciascuna sotto-voce del Menu==
 Public Sub Form_Open()
 
 <FONT color=gray>' ''Dichiariamo il Menu principale:''</font>  
   Dim mn As Menu
 
 <FONT color=gray>' ''Dichiariamo anche le sotto-voci del Menu:''</font>  
   Dim mn1, mn2, mn3, mn4 As Menu  
 
 <FONT color=gray>' ''Impostiamo il Menu principale, impostando come "contenitore" il Form:''</font>
   With mn = New Menu(Me)
 <FONT color=gray>' ''Gli diamo il testo che sarà mostrato:''</font>
     .Caption = "File"
   End With 
     
 <FONT color=gray>' ''Attribuiamo al Menu principale le sue sotto-voci, le quali attribuiamo ad un proprio Gruppo.''
 ' ''Inoltre, a tali sotto-voci diamo il testo che sarà mostrato e come "contenitore" il Menu principale:''</font>
   With mn1 = New Menu(mn, False) As "<FONT color=red>'''Mn1'''</font>"
 <FONT color=gray>' ''Facciamo mostrare la denominazione della sotto-voce mediante la Proprietà ".Caption":''</font>
     .Caption = "Nuovo"
     .Name = "Nuovo"
   End With
 
   With mn2 = New Menu(mn, False) As "<FONT color=blue>'''Mn2'''</font>"
     .Caption = "Apri"
     .Name = "Apri"
   End With
 
   With mn3 = New Menu(mn, False) As "<FONT color=darkorange>'''Mn3'''</font>"
     .Caption = "Salva con nome..."
     .Name = "Salva con nome..."
   End With
 
   With mn4 = New Menu(mn, False) As "<FONT color=darkgreen>'''Mn4'''</font>"
     .Caption = "Esci"
     .Name = "Esci"
   End With
     
 End
 
 
 Public Sub <FONT color=red>'''Mn1'''</font>_Click()  
 
   <FONT color=gray>' ''qui fa qualcosa...''</font>
 
 End
 
 
 Public Sub <FONT color=blue>'''Mn2'''</font>_Click()  
 
   <FONT color=gray>' ''qui fa qualcosa...''</font>
 
 End
 
 
 Public Sub <FONT color=darkorange>'''Mn3'''</font>_Click()  
 
   <FONT color=gray>' ''qui fa qualcosa...''</font>
 
 End
 
 
 Public Sub <FONT color=darkgreen>'''Mn4'''</font>_Click()  
 
   <FONT color=gray>' ''qui fa qualcosa...''</font>
 
 End


==Assegnando un medesimo Gruppo alle sotto-voci del Menu==
Mostriamo due modalità possibili per assegnare un medesimo Gruppo di Eventi alle sotto-voci del Menu, e per associare ciascuna sotto-voce, in qualità di Oggetto, ad un Evento:  <SUP>&#091;[[#Note|nota 1]]&#093;</sup>
 Public Sub Form_Open()  
 
   Dim mn, subMn As Menu 
   Dim i As Integer
   Dim testo As String 
 
   With mn = New Menu(FMain)  
     .Caption = "File"
   End With
 
 <FONT color=gray>' ''Per far apparire nel Menu principale le sue sotto-voci con "specifiche" denominazioni:''</font>
   For i = 0 To 3  
     Select Case i  
      Case 0  
        testo = "Nuovo"  
      Case 1  
        testo = "Apri"  
      Case 2  
        testo = "Salva con nome..."  
      Case 3  
        testo = "esci"  
     End Select  
 <FONT color=gray>' ''Crea una nuova sotto-voce del Menu principale, e viene assegnata ad un unico Gruppo di Eventi:''</font>
     With subMn = New Menu(mn) <FONT color=red>'''As "SubMenu"'''</font>
       .Caption = testo
       .Name = testo  
     End With
   Next
 
 End
 
 
 Public Sub <FONT color=red>'''SubMenu'''</font>_Click()  
 
 <FONT color=gray>' ''Riscontriamo quale sotto-voce del Menu abbiamo scelto:''</font>
   Message.Info("Hai premuto il sotto-menu: " & Last.Name)
 
 End


===Usando il Metodo "Object.Attach()"===
 Public Sub Form_Open()
 
   Dim mn, mn1, mn2, mn3, mn4 As Menu
 
   mn = New Menu(Fmain)
   mn.Caption = "File"
 
   With mn1 = New Menu(mn, False)
 <FONT color=gray>' ''Facciamo mostrare la denominazione della sotto-voce mediante ".Caption":''</font>
     .Caption = "Nuovo"
     .Name = "Nuovo"
   End With
 
   With mn2 = New Menu(mn, False)
     .Caption = "Apri"
     .Name = "Apri"
   End With
 
   With mn3 = New Menu(mn, False)
     .Caption = "Salva con nome..."
     .Name = "Salva con nome..."
   End With
 
   With mn4 = New Menu(mn, False)
     .Caption = "Esci"
     .Name = "Esci"
   End With
 
   <FONT color=red><B>Object.Attach</b></font>(mn1, Me, "<FONT color=blue>Ev'''</font>")
   <FONT color=red><B>Object.Attach</b></font>(mn2, Me, "<FONT color=blue>Ev'''</font>")
   <FONT color=red><B>Object.Attach</b></font>(mn3, Me, "<FONT color=blue>Ev'''</font>")
   <FONT color=red><B>Object.Attach</b></font>(mn4, Me, "<FONT color=blue>Ev'''</font>")
 
 End
 
 
 Public Sub <FONT color=blue>'''Ev'''</font>_Click()
 
 <FONT color=gray>' ''Riscontriamo quale sotto-voce abbiamo scelto:''</font>
   Message.Info("Hai premuto il menu: " & Last.Name)
 
 End
o, volendo, sempre mediante "Object.Attach()", anche più semplicemente così:
 Public Sub Form_Open()  
 
   Dim mn, subMn As Menu 
   Dim i As Integer
   Dim testo As String 
 
   With mn = New Menu(FMain)  
     .Caption = "File"
   End With
 
 <FONT color=gray>' ''Per far apparire nel Menu principale le sue sotto-voci con "specifiche" denominazioni:''</font>
  For i = 0 To 3  
    Select Case i  
     Case 0  
       testo = "Nuovo"  
     Case 1  
       testo = "Apri"  
     Case 2  
       testo = "Salva con nome..."  
     Case 3  
       testo = "esci"  
    End Select  
 
 <FONT color=gray>' ''Crea una nuova sotto-voce del Menu principale, e viene assegnata ad un unico Gruppo:''</font>
    With subMn = New Menu(mn)
      .Caption = testo
      .Name = testo  
    End With
 
    <FONT color=red>'''Object.Attach'''</font>(subMn, Me, "<FONT color=blue>SubMenu</font>")
 
  Next    
 
 End
 
 
 Public Sub <FONT color=blue>SubMenu</font>_Click()  
 
 <FONT color=gray>' ''Riscontriamo quale sotto-voce abbiamo scelto:''</font>
   Message.Info("Hai premuto il sotto-menu: " & Last.Name)
 
 End


===Usando la Classe "Observer"===
Si potrà usare anche la Classe ''Observer'':
 Public Sub Form_Open()
 
   Dim mn, mn1, mn2, mn3, mn4 As Menu
   Dim obs As <FONT color=red>Observer</font>
 
   mn = New Menu(Fmain)
   mn.Caption = "File"
 
   With mn1 = New Menu(mn, False)
     .Caption = "Nuovo"
     .Name = "Nuovo"
   End With
 
   With mn2 = New Menu(mn, False)
     .Caption = "Apri"
     .Name = "Apri"
   End With
 
   With mn3 = New Menu(mn, False)
     .Caption = "Salva con nome..."
     .Name = "Salva con nome..."
   End With
 
   With mn4 = New Menu(mn, False)
     .Caption = "Esci"
     .Name = "Esci"
   End With
 
   obs = New <FONT color=red><B>Observer</b></font>(mn1) As "<FONT color=blue>Ev</font>"
   obs = New <FONT color=red><B>Observer</b></font>(mn2) As "<FONT color=blue>Ev</font>"
   obs = New <FONT color=red><B>Observer</b></font>(mn3) As "<FONT color=blue>Ev</font>"
   obs = New <FONT color=red><B>Observer</b></font>(mn4) As "<FONT color=blue>Ev</font>"
 
 End
 
 
 Public Sub "<FONT color=blue>Ev</font>"_Click()
 
 <FONT color=gray>' ''Riscontriamo quale sotto-voce abbiamo scelto:''</font>
   Message.Info("Hai premuto il menu: " & Last.Name)
 
 End


==Creare Menu in un Oggetto di tipo ''Window''==
E' possibile creare Menu anche per l'Oggetto della Classe ''Window''.

Come esempio riprendiamo in parte, ed opportunamente modificato, uno dei codici sopra descritti:
 Public Sub Button1_Click()
 
   Dim w As Window
   Dim mn, subMn As Menu
   Dim i As Integer
   Dim testo As String
  
 <FONT color=gray>' ''Crea un'oggetto "Window":''</font>
   With w = New Window
     .W = 200
     .H = 200
     .Center
     .Show
   End With
  
 <FONT color=gray>' ''Crea un Menu attribuendolo all'ggetto "Window":''</font>
   With mn = New Menu(w)
   .Name = "prova_Menu"
   .Text = "menu"
   End With
  
   For i = 0 To 3  
     Select Case i  
       Case 0  
         testo = "Nuovo"  
       Case 1  
         testo = "Apri"  
       Case 2  
         testo = "Salva con nome..."  
       Case 3  
         testo = "esci"  
     End Select  
 <FONT color=gray>' ''Crea una nuova sotto-voce del Menu principale, e l'assegna al medesimo Gruppo delle altre sotto-voci:''</font>
     With subMn = New Menu(mn) As "SubMn"
       .Caption = testo
       .Name = testo  
     End With
   Next
 
 End
 
 
 Public Sub subMn_Click()  
 
 <FONT color=gray>' ''Riscontriamo quale sotto-voce abbiamo scelto:''</font>
   Message.Info("Hai premuto il sotto-menu: " & Last.Name)
 
 End



=Note=
[1] Vedere anche questa pagina: [[Assegnare da codice più oggetti ad un Gruppo di eventi]]