Differenze tra le versioni di "Creare Menu a finestra con MenuButton"
Da Gambas-it.org - Wikipedia.
| (Una versione intermedia di uno stesso utente non è mostrata) | |||
| 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() | |
Dim MenuButton1 As MenuButton | Dim MenuButton1 As MenuButton | ||
Dim mn, sottomenu As Menu | Dim mn, sottomenu As Menu | ||
Dim b As Byte | Dim b As Byte | ||
| − | Dim testo As String[] = [" | + | Dim testo As String[] = ["1° sottomenu", "2° sottomenu", "3° sottomenu"] |
With MenuButton1 = New MenuButton(Me) | With MenuButton1 = New MenuButton(Me) | ||
| Riga 28: | Riga 28: | ||
Next | Next | ||
| − | + | End | |
| − | + | ||
| + | Public Sub SottoMenu_Click() | ||
Print Last.text | Print Last.text | ||
| − | + | End | |
Versione attuale delle 11: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
