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

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

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

栏目列表

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