如何用程序的方法生成控件？

Question

比如说，有一个图片控件，在运行时需用程序生成所需的图片框，因为一个图片框里只能放一个图片，请教一下程序怎么作？

Answer 1

'先在form1上加一个Picture1,  index属性为 0Private Sub Form_Load()
    For i = 1 To 10
        Load Picture1(i)
        Picture1(i).Top = 400 * i + 200
        Picture1(i).Left = 20
        Picture1(i).Picture = LoadPicture("f:\\aa.bmp")
        Picture1(i).Visible = True
    Next
End Sub

Answer 2

在窗体不加任何控件的情况下，动态添加控件
Dim WithEvents ctlPicture As VB.PictureBoxPrivate Sub Form_Load()
    Set ctlPicture = Controls.Add("VB.PictureBox", "ctlPicture1", Me)
    '设置Picture的位置和尺寸
    ctlPicture.Top = 400 + 200
    ctlPicture.Left = 20
    ctlPicture.Width = 3500
    ctlPicture.Height = 2500
    ctlPicture.Picture = LoadPicture("f:\\aa.bmp")
    '使Picture可见
    ctlPicture.Visible = True
    
End Sub

Answer 3

在VB中动态添加可响应消息的控件
http://www.applevb.com/art/dyn_control.txt

Answer 4

主要是这个：
Dim WithEvents ctlPicture As VB.PictureBox
Set ctlPicture = Controls.Add("VB.PictureBox", "ctlPicture1", Me)