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

在VB中，你可以使用MouseDown事件来检测鼠标右键点击事件，并且使用Popup方法来弹出一个自定义的菜单。下面是一个示例代码来实现在鼠标右键点击时弹出菜单的功能：

Private Sub YourDataGridView_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles YourDataGridView.MouseDown
    If e.Button = MouseButtons.Right Then '检测右键点击事件
        Dim menu As New ContextMenu() '创建一个菜单对象

        '添加菜单项
        menu.MenuItems.Add("菜单项1", AddressOf MenuItem1_Click)
        menu.MenuItems.Add("菜单项2", AddressOf MenuItem2_Click)
        menu.MenuItems.Add("菜单项3", AddressOf MenuItem3_Click)

        '在鼠标位置弹出菜单
        menu.Show(YourDataGridView, New Point(e.X, e.Y))
    End If
End Sub

Private Sub MenuItem1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
    '菜单项1的点击事件处理
    'TODO: 添加你的代码
End Sub

Private Sub MenuItem2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
    '菜单项2的点击事件处理
    'TODO: 添加你的代码
End Sub

Private Sub MenuItem3_Click(ByVal sender As Object, ByVal e As System.EventArgs)
    '菜单项3的点击事件处理
    'TODO: 添加你的代码
End Sub

在上面的代码中，你需要将YourDataGridView替换为你的实际表格控件的名称。然后，你可以在MouseDown事件处理程序中添加自定义的菜单项，并为每个菜单项指定一个对应的点击事件处理程序。当鼠标右键点击时，菜单将在鼠标位置弹出，并且当菜单项被点击时，相应的事件处理程序将被调用。你可以在每个菜单项的点击事件处理程序中添加你自己的代码来完成相应的功能