表格用vb写 选定当前的图片右键弹出菜单的代码

以下是一个示例代码，用于在图片上右键单击时弹出菜单：

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 2 Then ' 右键单击
        PopupMenu PopupMenu1
    End If
End Sub

在该示例中，我们假设图片控件的名称为 Image1，它的 MouseUp 事件用于检测鼠标点击事件。当右键单击图片时，会调用 PopupMenu 函数弹出名为 PopupMenu1 的菜单。

请注意，要使该代码正常工作，您需要在窗体上添加一个 PopupMenu 控件，并将其名称设置为 PopupMenu1。在 PopupMenu1 上添加所需的菜单项。