Inserire una linea separatrice in un Menu
Da Gambas-it.org - Wikipedia.
Versione del 8 lug 2024 alle 07:01 di Vuott (Discussione | contributi)
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