VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • 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 教程 目录
————————————————
版权声明:本文为CSDN博主「VB.Net」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/uruseibest/article/details/72716329

相关教程