关于动态控件数组问题：能不能在动态生成的picturebox控件里动态添加一个image控件，请大家帮帮我

Question

IMAGE控件没有句柄属性，恐怕不好办。在PICTUREBOX里加PICTUREBOX
倒是应该没有问题。你添加完成后，再使用SetParent这个API应该就可以了。API声明如下：
Public Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Answer 1

谢谢junglerover(灌木丛)了 用你的方法可以实现picturebox的问题，但是我想使用image控件的stretch属性实现缩略图。请大家帮帮我啊~~

Answer 2

Private Sub Command1_Click()
Dim p As PictureBox, i As Image '或Dim p As Control, i As Control
Set p = Controls.Add("VB.PictureBox", "pic")
p.Visible = True
p.Width = 1500
p.Height = 1500
Set i = Controls.Add("VB.Image", "img", p)
i.Visible = True
i.BorderStyle = 1
End Sub

Answer 3

感谢lihanbing的帮助，可是我需要的是对于控件数组的方法。

Answer 4

控件数组也是一样的，把上面的p换成你用空间数组load的PictureBox就行了

Answer 5

我回去再试试  虽然已经用picturebox替换了image控件 谢谢两位了