Creare Menu a finestra con MenuButton: differenze tra le versioni

Da Gambas-it.org - Wikipedia.
Vai alla navigazione Vai alla ricerca
(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...")
 
Nessun oggetto della modifica
 
(3 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
Di seguito mostriamo un semplice esempio, nel quale viene creato un Menu associato ad un oggetto ''MenuButton''.
Di seguito mostriamo un semplice esempio, nel quale viene creato un ''Menu'' associato ad un oggetto ''MenuButton''.


  '''Public''' Sub Form_Open()
  Public Sub Form_Open()
    
    
   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[] = ["1° sottomenu", "2° sottomenu", "3° sottomenu"]
    
    
  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 Campo_Click()
  Public Sub SottoMenu_Click()
    
    
  Print Last.text
  Print Last.text
    
    
  '''End'''
  End

Versione attuale delle 12:31, 20 giu 2024

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
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Creare_Menu_a_finestra_con_MenuButton&oldid=37311"