Question

vb:动态中生成了几个image，请问如何知道鼠标点击了哪个image?

Answer 1

如果动态生存的Image数量有限，可以给每个生存image定义个变量，这样：
Private WithEvents 变量名 As Image
要定义在声明区。
这样在下拉列表中列出该对象变量的事件了。

另一种在设计窗体时也放一个Image控件，再设置Index 一个索引值，这样就成了控件数组了，
动态添加用Load image1(索引)
删除：unLoad image1(索引)

追问

谢谢您的热心回答，如果百度知道具有对回答者的赠分功能就好了，现在只能口头致谢。其实很多未采纳的回答，都对解决问题有启发性。谢谢！

Answer 2

Private Sub image1_Click(Index As Integer)
MsgBox Index
End Sub
前提是：你的动态组件是用load 生成的。

追问

Controls.Add()生成的就不行吧？

追答

参考一下这个代码吧。csdn上的，我就不更改了。这个是command的

用类模块！
工程中加一类模块（Class1)
Class1代码如下
Private WithEvents mvarCmBtn As CommandButton
Public Property Set CmBtn(ByVal vData As CommandButton)
    Set mvarCmBtn = vData
End Property
Public Property Get CmBtn() As CommandButton

    Set CmBtn = mvarCmBtn
End Property

Private Sub mvarCmBtn_Click()
MsgBox mvarCmBtn.Name
End Sub

Form代码如下
Dim a() As Class1
Private Sub Form_Load()
ReDim a(5)
For i = 0 To 5
Set a(i) = New Class1
Set a(i).CmBtn = Me.Controls.Add("VB.CommandButton", "cmdObj" & i)
a(i).CmBtn.Visible = True
a(i).CmBtn.Top = i * 500
Next i
End Sub