右键菜单选项和子菜单 [英] Right click menu option with sub menu

问题描述

您好b $ b

如何在现有菜单选项上添加子菜单

继承我的代码;

Hi
how can i add a sub menu on my existing menu option
heres my code;

Private Sub viewmenu(ByVal sender As Object, ByVal a As EventArgs)

        'Dim i = dgvexception.CurrentRow.Index
        Dim item = CType(sender, ToolStripMenuItem)
        Dim selection = CInt(item.Tag)
        Dim b = selection
        If b = 1 Then
            MsgBox(selection)
        End If
        If b = 2 Then
            MsgBox(selection)
        End If

    End Sub

    Private Sub dgvexception_MouseUp(sender As Object, e As MouseEventArgs) Handles dgvexception.MouseUp
        Try
            If e.Button <> Windows.Forms.MouseButtons.Right Then Return
            Dim cms = New ContextMenuStrip
            Dim item1 = cms.Items.Add("Edit")
            item1.Tag = 1
            AddHandler item1.Click, AddressOf viewmenu

            Dim item2 = cms.Items.Add("View")
            item2.Tag = 2

            AddHandler item2.Click, AddressOf viewmenu
            cms.Show(Me.dgvexception, e.Location)
        Catch ex As Exception

        End Try

    End Sub

代码很好，我想添加一个我的查看选项上的子菜单

the code is good and i wanted to add a sub menu on my "view" option

推荐答案

这篇关于右键菜单选项和子菜单的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！