需要在通用里声明一个变量来记录和区分点了那个 Dim I As Integer Private Sub Image1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then I = Index Form1.PopupMenu YinCang End If End SubPrivate Sub YinC_Click() Image1(I).Visible = False End Sub
Dim I As Integer
Private Sub Image1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
I = Index
Form1.PopupMenu YinCang
End If
End SubPrivate Sub YinC_Click()
Image1(I).Visible = False
End Sub