Question

在中Vb怎样循环添加控件

我用下面的语句在pictures1中添加了一个image控件，但是由于名字相同，只能添加一个控件，还有就是我需要对每个image控件进行事件Click编程，哪位高手帮忙解决一下。
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Do
Form1.Controls.Add "vb.image", "a", Picture1
With Form1!a
.Visible = True
.Picture = LoadResPicture(101, vbResBitmap)
.Top = Y
.Left = X
End With

Loop
End Sub
我想在picture1的任何位置添加控件image（这个已经实现了）并且可以添加多个,而且在点击任何一个image控件时就会弹出一个窗体。

Answer 1

建立Image1(0) [index=0]
然后循环，用Load Image1(i)动态建立

事件是Image1的事件，对Index进行判断即可。

Load Image(i)
然后SetParent将Image放入PictureBox [不知道有没有更简单办法]

Answer 2

Dim i '全局变量
(先在picture1上画一个image(0),命名为a(0))
Private Sub a_Click(Index As Integer)
Select Case Index
Case 1
Form2.Show
Case 2
Form3.Show
Case 3
Form1.Show
End Select
End Sub
Private Sub picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim mc As String
i = i + 1
Load a(i)
With a(i)
.Visible = True
.Picture = LoadResPicture(101, vbResBitmap)
.Top = Y
.Left = X
End With
end sub

Answer 3

没说明白