Private Sub 苹果ToolStripMenuItem_Click(sender As Object,e As EventArgs) Handles 苹果ToolStripMenuItem.Click MessageBox.Show("选择了吃苹果") End Sub Private Sub 梨子ToolStripMenuItem_Click(sender As Object,e As EventArgs) Handles 梨子ToolStripMenuItem.Click MessageBox.Show("选择了吃梨子") End Sub
@H_301_0@Ok。我们运行看看: @H_301_0@什么!没有看到我们设置的菜单呢? @H_301_0@这是当然的,还没有让它显示,还需要在加入代码:
Private Sub Form4_MouseDown(sender As Object,e As MouseEventArgs) Handles Me.MouseDown If e.Button = MouseButtons.Right Then ContextMenuStrip1.Show() End If End Sub
@H_301_0@当然,通常情况下是鼠标右键按下时弹出菜单,所以选择在窗体上按下鼠标这个事件,然后再选择按下的是鼠标右键显示出快捷菜单。 @H_301_0@再次运行。 @H_301_0@什么!还是看不到。 @H_301_0@不过注意一下显示屏左上角,怎么在这里显示了快捷菜单呢? @H_301_0@因为我们还没有指定菜单显示的位置。 @H_301_0@比较快捷的方法是使用show()的重载 Show(Control,Point),相对于指定的控件的位置显示菜单:
Private Sub Form4_MouseDown(sender As Object,e As MouseEventArgs) Handles Me.MouseDown If e.Button = MouseButtons.Right Then ContextMenuStrip1.Show(Me,New Point(e.X,e.Y)) End If End Sub
@H_301_0@
@H_301_0@学习更多vb.net知识,请参看 vb.net 教程 目录