Differenze tra le versioni di "Rilevare quale sotto-voce di menu è stata cliccata"

Versione 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)' As "Menu1"
   .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