Dim obj Set obj = Controls.Add("vb.image", "img") With obj .Visible = True .Picture = LoadPicture("d:\a.jpg") Set .Container = Me.Picture1 '这个属性... End With
For n = 1 To 5 Load Image1(n) With Image1(n) .Visible = True .Picture = LoadPicture("d:\a.jpg") Set .Container = Me.Picture1 .Move x, 0 x = x + .Width + 10 End With
Dim obj
Set obj = Controls.Add("vb.image", "img")
With obj
.Visible = True
.Picture = LoadPicture("d:\a.jpg")
Set .Container = Me.Picture1 '这个属性...
End With
Dim x As Long
For n = 1 To 5
Load Image1(n)
With Image1(n)
.Visible = True
.Picture = LoadPicture("d:\a.jpg")
Set .Container = Me.Picture1
.Move x, 0
x = x + .Width + 10
End With