Inserire una linea separatrice in un Menu

Da Gambas-it.org - Wikipedia.
Versione del 8 lug 2024 alle 07:01 di Vuott (Discussione | contributi)

(diff) ← Versione meno recente | Versione attuale (diff) | Versione più recente → (diff)

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