Differenze tra le versioni di "Rilevare quale sotto-voce di menu è stata cliccata"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per rilevare quale sotto-voce (''item'' ) di un Menu è stata cliccata, è possibile usare il seguente codice: Public Sub Form_Open() Dim Menu1, Menu2, Menu3, Menu4 As Me...") |
|||
(Una versione intermedia di uno stesso utente non è mostrata) | |||
Riga 1: | Riga 1: | ||
− | Per rilevare quale sotto-voce (''item'' ) di un Menu è stata cliccata, è possibile usare il seguente codice: | + | Per rilevare quale sotto-voce (''item'') di un Menu è stata cliccata, è possibile usare il seguente codice: |
Public Sub Form_Open() | Public Sub Form_Open() | ||
Dim Menu1, Menu2, Menu3, Menu4 As Menu | Dim Menu1, Menu2, Menu3, Menu4 As Menu | ||
− | With Menu1 = New Menu(Me) | + | With Menu1 = New Menu(Me) |
.Caption = "Menu1" | .Caption = "Menu1" | ||
End With | End With |
Versione attuale delle 08:57, 2 lug 2024
Per rilevare quale sotto-voce (item) di un Menu è stata cliccata, è possibile usare il seguente codice:
Public Sub Form_Open() Dim Menu1, Menu2, Menu3, Menu4 As Menu With Menu1 = New Menu(Me) .Caption = "Menu1" End With With Menu2 = New Menu(Menu1) As "Mn" .Caption = "Menu2" End With With Menu3 = New Menu(Menu1) As "Mn" .Caption = "Menu3" End With With Menu4 = New Menu(Menu1) As "Mn" .Caption = "Menu4" End With End Public Sub Mn_Click() Print Last.Caption End