表格用vb写 鼠标右键弹出菜单的代码

以下是使用VB编写的一个示例代码，用于在表格上单击鼠标右键时弹出菜单：

Private Sub DataGridView1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseDown
    If e.Button = MouseButtons.Right Then
        Dim menu As New ContextMenuStrip
        Dim menuItem As New ToolStripMenuItem("菜单项1")
        menu.Items.Add(menuItem)
        AddHandler menuItem.Click, AddressOf MenuItem1_Click

        menuItem = New ToolStripMenuItem("菜单项2")
        menu.Items.Add(menuItem)
        AddHandler menuItem.Click, AddressOf MenuItem2_Click

        DataGridView1.ContextMenuStrip = menu
    End If
End Sub

Private Sub MenuItem1_Click(ByVal sender As Object, ByVal e As EventArgs)
    ' 处理菜单项1的点击事件
    MessageBox.Show("菜单项1被点击了")
End Sub

Private Sub MenuItem2_Click(ByVal sender As Object, ByVal e As EventArgs)
    ' 处理菜单项2的点击事件
    MessageBox.Show("菜单项2被点击了")
End Sub

在这个示例中，我们使用DataGridView1_MouseDown事件来监听鼠标的点击事件。当鼠标右键被点击时，我们创建一个ContextMenuStrip对象作为右键菜单，并添加两个菜单项。然后，我们分别为菜单项1和菜单项2添加了点击事件的处理程序MenuItem1_Click和MenuItem2_Click。最后，我们将这个右键菜单设置为DataGridView1的上下文菜单。

你可以根据需要修改菜单项的名称和点击事件的处理逻辑