Differenze tra le versioni di "Inserire una linea separatrice in un Menu"

Da Gambas-it.org - Wikipedia.
 
Riga 2: Riga 2:
  
 
1) creare una voce del Menu, come di consueto;
 
1) creare una voce del Menu, come di consueto;
−
<BR>2) se il Menu viene creato da <I>Editor Menu</i>, allora lasciare in bianco lo spazio ''Caption'' della voce, appena creata, che deve servire per generare la linea separatrice;
+
 
−
<BR>3) se invece il Menu viene creato da codice, basterà non assegnare alcun testo alla Proprietà ".Caption" né alla Proprietà ".Text" del sottomenu che deve servire per generare la linea separatrice.
+
2) se il Menu viene creato da <I>Editor Menu</i>, allora lasciare in bianco lo spazio ''Caption'' della voce, appena creata, che deve servire per generare la linea separatrice;
 +
 
 +
3) se invece il Menu viene creato da codice, basterà <U>non assegnare alcun testo alla Proprietà ".Caption" né alla Proprietà ".Text"</u> della voce del menu che deve servire per generare la linea separatrice:
 +
Public Sub Form_Menu()
 +
 +
  Dim menu1, vocemenu As Menu
 +
 +
<FONT Color=gray>' ''Crea innanzitutto il "Menu principale":''</font>
 +
  menu1 = New Menu(Me)
 +
 +
<FONT Color=gray>' ''Crea le "voci" del Menu principale:''</font>
 +
  vocemenu = New Menu(menu1) As "Vocimenu"
 +
  vocemenu.Text = "Voce 1"
 +
 +
  vocemenu = New Menu(menu1) As "Vocimenu"
 +
  vocemenu.Text = "Voce 2"
 +
 +
<FONT Color=gray>' '''''Inserisce un "separatore" fra la seconda e la terza voce del menu principale:'''''</font>
 +
  vocemenu = New Menu(menu1)
 +
 +
  vocemenu = New Menu(menu1) As "Vocimenu"
 +
  vocemenu.Text = "Voce 3"
 +
 +
<FONT Color=gray>' ''Consente di mostrare quindi le finestre di ciascun Menu:''</font>
 +
  menu1.Popup
 +
 +
End
 +
 +
 +
Public Sub Vocimenu_Click()
 +
 +
<FONT Color=gray>' ''Vediamo semplicemente il testo dell'ultima voceMenu cliccata:''</font>
 +
  Print Last.Text
 +
 +
End

Versione attuale delle 07:01, 8 lug 2024

Per inserire una linea separatrice fra una voce e l'altra all'interno di un Menu, si dovrà procedere come segue (con riferimento all'Editor Menu):

1) creare una voce del Menu, come di consueto;

2) se il Menu viene creato da Editor Menu, allora lasciare in bianco lo spazio Caption della voce, appena creata, che deve servire per generare la linea separatrice;

3) se invece il Menu viene creato da codice, basterà non assegnare alcun testo alla Proprietà ".Caption" né alla Proprietà ".Text" della voce del menu che deve servire per generare la linea separatrice: 

Public Sub Form_Menu()

 Dim menu1, vocemenu As Menu

' Crea innanzitutto il "Menu principale":
 menu1 = New Menu(Me)

' Crea le "voci" del Menu principale:
 vocemenu = New Menu(menu1) As "Vocimenu"
 vocemenu.Text = "Voce 1"

 vocemenu = New Menu(menu1) As "Vocimenu"
 vocemenu.Text = "Voce 2"

' Inserisce un "separatore" fra la seconda e la terza voce del menu principale:
 vocemenu = New Menu(menu1)

 vocemenu = New Menu(menu1) As "Vocimenu"
 vocemenu.Text = "Voce 3"

' Consente di mostrare quindi le finestre di ciascun Menu:
 menu1.Popup

End


Public Sub Vocimenu_Click()

' Vediamo semplicemente il testo dell'ultima voceMenu cliccata:
 Print Last.Text

End
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Inserire_una_linea_separatrice_in_un_Menu&oldid=38108"