16,554
社区成员
发帖
与我相关
我的任务
分享
Public Class form7
Inherits Form
'演示在OnLoad中添加一个右键菜单
Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
MyBase.OnLoad(e)
Dim cm As New ContextMenu
Dim m As New MenuItem("菜单项1")
AddHandler m.Click, AddressOf MenuItemClicked
cm.MenuItems.Add(m)
Dim m2 As New MenuItem("菜单项2")
AddHandler m2.Click, AddressOf MenuItemClicked
cm.MenuItems.Add(m2)
Me.ContextMenu = cm '设置窗体右键菜单
End Sub
Public Sub MenuItemClicked(ByVal sender As Object, ByVal e As EventArgs)
Dim m As MenuItem = DirectCast(sender, MenuItem)
MessageBox.Show(m.Text)
End Sub
End Class
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim f As New form7
f.ShowDialog()
End Sub
Dim m as New MenuItem....
AddHandler m.Click,AddressOf 定义好的处理方法
public sub 定义好的处理方法(sender as object, e as eventargs)
'sender就是你点击的菜单项,转换即可。
Dim m as MenuItem = Ctype(sender,MenuItem)
使用这个m
end sub