vb.net 教程 3-7 窗体编程 菜单和工具栏 2 ContextMenuStrip

ContextMenuStrip：快捷菜单，大多数是在某处单击鼠标右键后弹出的菜单

相对于上一节的MenuStrip，ContextMenuStrip有几个重要的属性

ShowCheckMargin：是否在菜单项左边缘预留出选中标记的位置

ShowImageMargin：是否在菜单项的左边缘显示图像的位置

如果ShowCheckMargin=False，那么下图中1的空位不会显示；如果ShowImageMargin=False，那么2的空位不会显示：

与MenuStrip 相同的是，ContextMenuStrip也主要集中在菜单项的编程：

双击 苹果 和 梨子 菜单项输入代码：

    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

Ok。我们运行看看：

什么！没有看到我们设置的菜单呢？

这是当然的，还没有让它显示，还需要在加入代码：

    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

当然，通常情况下是鼠标右键按下时弹出菜单，所以选择在窗体上按下鼠标这个事件，然后再选择按下的是鼠标右键显示出快捷菜单。

再次运行。

什么！还是看不到。

不过注意一下显示屏左上角，怎么在这里显示了快捷菜单呢？

因为我们还没有指定菜单显示的位置。

比较快捷的方法是使用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

学习更多vb.net知识，请参看 vb.net 教程 目录