E
Elliot
The code creates two menu items at runtime and I want to be know which
menu item was clicked in the Menuitems_Click procedure.
Sender.Gettype.Name returns the value "MenuItem" only.
Any help is appreciated.
Private Sub
Dim mainMenu1 As New MainMenu()
Me.Menu = mainMenu1
' Create empty menu item objects.
Dim menuItem1 As New MenuItem("&File")
Dim menuItem2 As New MenuItem("&Edit")
' Add the menu items to the main menu.
mainMenu1.MenuItems.Add(menuItem1)
mainMenu1.MenuItems.Add(menuItem2)
' Add functionality
AddHandler menuItem1.Click, AddressOf Menuitems_Click
AddHandler menuItem2.Click, AddressOf Menuitems_Click
End Sub
Private Sub Menuitems_Click(ByVal sender As Object, ByVal e As
EventArgs)
' Code to determine which item was clicked -- menuitem1 or menuitem2.
End Sub
menu item was clicked in the Menuitems_Click procedure.
Sender.Gettype.Name returns the value "MenuItem" only.
Any help is appreciated.
Private Sub
Dim mainMenu1 As New MainMenu()
Me.Menu = mainMenu1
' Create empty menu item objects.
Dim menuItem1 As New MenuItem("&File")
Dim menuItem2 As New MenuItem("&Edit")
' Add the menu items to the main menu.
mainMenu1.MenuItems.Add(menuItem1)
mainMenu1.MenuItems.Add(menuItem2)
' Add functionality
AddHandler menuItem1.Click, AddressOf Menuitems_Click
AddHandler menuItem2.Click, AddressOf Menuitems_Click
End Sub
Private Sub Menuitems_Click(ByVal sender As Object, ByVal e As
EventArgs)
' Code to determine which item was clicked -- menuitem1 or menuitem2.
End Sub