Creare Menu a finestra con MenuButton

Da Gambas-it.org - Wikipedia.

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, sottomenu As Menu
 Dim b As Byte
 Dim testo As String[] = ["1° sottomenu", "2° sottomenu", "3° sottomenu"]
 
 With MenuButton1 = New MenuButton(Me)
   .X = 10
   .Y = 0
   .H = 20
   .AutoResize = True
   .Text = "Menu 1"
' Associa il MenuButton al Menu principale (il testo deve essere identico al nome del Gruppo attribuito al Menu principale):
   .Menu = "Menu"
 End With
  
' Crea il Menu principale:
 mn = New Menu(Me) As "Menu"
  
' Crea alcuni sotto-menu della voce Menu principale:
 For b = 0 To testo.Max
   sottomenu = New Menu(mn) As "SottoMenu"
' Assegna un testo ai campi del Menu:
   sottomenu.Text = testo[b]
 Next
  
End


Public Sub SottoMenu_Click()
 
 Print Last.text
  
End