动态添加image，但是如何响应动态的事件。

Question

动态的添加image，我想使动态添加的image能像静态添加的一样，响应事件。而且是哪一个都能响应事件.

Answer 1

要先好 image 的事件。然后再动态创建就可以了。
这种例子太多了。 google 一下。CSDN 里也有很多！

Answer 2

Dim WithEvents ctlImage As VB.ImagePrivate Sub ctlImage_Click()
    MsgBox "click"
End SubPrivate Sub Form_Load()
Set ctlImage = Controls.Add("VB.Image", "ctlImage1", Me)
'设置Image的位置和尺寸
ctlImage.Picture = LoadPicture("f:\aa.bmp")
ctlImage.Top = 400 + 200
ctlImage.Left = 20'使Image可见
ctlImage.Visible = TrueEnd Sub

Answer 3

'先有form1上加一个Image11 (0)Private Sub Form_Load()
    For i = 1 To 10
        Load Image1(i)
        Image1(i).Picture = LoadPicture("f:\aa.bmp")
        Image1(i).Top = 400 * i + 200
        Image1(i).Left = 20
        Image1(i).Visible = True
    Next
End SubPrivate Sub Image1_Click(Index As Integer)
    MsgBox Index
End Sub

Answer 4

image控件好象不能装载动态图
？？？

Answer 5

我解决的和 lihonggen0(李洪根，MS MVP，标准答案来了) 的方法是一样的。可以动态装图片。可以响应事件