怎样用代码创建PictureBox控件？

Question

我想在程序运行时用代码创建10个PictureBox控件，请问高手应该怎样做？谢谢

Answer 1

Private Sub Command1_Click()
    Dim MyPictureBox(9) As PictureBox
    Dim i As Integer
    For i = 0 To 9
        Set MyPictureBox(i) = Controls.Add("VB.PictureBox", "MyPictureBox" & (i))
        MyPictureBox(i).Top = 500 * i
        MyPictureBox(i).Visible = True
    Next i
End Sub

Answer 2

Dim ctlPic(9) As VB.PictureBox
Private Sub Command1_Click()
Dim i As Long
For i = 0 To 9
 Set ctlPic(i) = Controls.Add("VB.PictureBox", "Pic" & i, Form1)
'设置ctlPic的位置和尺寸
ctlPic(i).Move 10 * (i + 1), 10 * (i + 1), 500, 500
'将ctlPic的背景色设置为蓝色并将前景色设置为白色
ctlPic(i).BackColor = vbBlue
ctlPic(i).ForeColor = vbWhite
'使ctlPic可见
ctlPic(i).Visible = True
Next
End Sub

Answer 3

Option ExplicitPrivate Sub Command1_Click()
    Dim vbPictureBox(0 To 9)  As PictureBox
    Dim i As Integer
    For i = 0 To 9
        Set vbPictureBox(i) = Controls.Add("VB.PictureBox", "vbPictureBox" & i, Me)
        vbPictureBox(i).Left = i * 200
        vbPictureBox(i).Top = i * 200
        vbPictureBox(i).Visible = True
        vbPictureBox(i).BackColor = RGB(50 * i, 100, 155)
    Next
End Sub

Answer 4

在窗体上加一个PICTURE1，将INDEX设置为0
Private Sub Command1_Click()
    Dim i As Integer
    For i = 1 To 10
        Load Picture1(i)
        Picture1(i).Top = Picture1(i - 1).Width
        Picture1(i).Visible = True
    Next i
End Sub