版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

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 教程 目录

————————————————

版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/uruseibest/article/details/72716329