Differenze tra le versioni di "Creare Menu a finestra con MenuButton"

Da Gambas-it.org - Wikipedia.
(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...")
 
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'''

Versione delle 18:13, 30 set 2022

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[] = ["aaa", "bbb", "ccc"]
 
 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
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Creare_Menu_a_finestra_con_MenuButton&oldid=32267"