VB.NET 代码 datagridview右键显示菜单

以下是VB.NET中使用DataGridView控件右键显示菜单的代码示例：

1. 在窗体上添加一个DataGridView控件和一个ContextMenuStrip控件。

2. 双击DataGridView控件，在代码视图中添加以下代码：

Private Sub DataGridView1_MouseDown(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseDown
    ' 判断是否右键单击
    If e.Button = Windows.Forms.MouseButtons.Right Then
        ' 获取当前鼠标所在的单元格
        Dim hti As DataGridView.HitTestInfo = DataGridView1.HitTest(e.X, e.Y)
        If hti.Type = DataGridViewHitTestType.Cell Then
            ' 选中当前单元格
            DataGridView1.CurrentCell = DataGridView1.Rows(hti.RowIndex).Cells(hti.ColumnIndex)
            ' 显示菜单
            ContextMenuStrip1.Show(MousePosition)
        End If
    End If
End Sub

3. 双击ContextMenuStrip控件，在代码视图中添加菜单项的点击事件处理代码，例如：

Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
    MessageBox.Show("你单击了菜单项1")
End Sub

以上代码实现了在DataGridView控件上右键单击单元格时弹出菜单的功能，并且在单元格上右键单击时选中当前单元格。你可以根据需要自定义菜单项及其功能。