有没有办法将图像从一个PictureBox对象设置为另一个?例如:
pictureboxA1.image = pictureboxB1.image
pictureboxA2.image = pictureboxB2.image
pictureboxA3.image = pictureboxB3.image
我使用TextBox控件做了类似的事情,但是这段代码对我不起作用:
For i = 0 To 2
Me.Controls("picturebox" + "A" & i + 1).image = Me.Controls("picturebox" + "B" & i + 1).image
Next i
当我运行此操作时,我收到一条错误,指出.image is not a member of 'System.Windows.Forms.Control'
。
我知道这是pictureboxA1.image = pictureboxB1.image。
但如果我尝试这样
For i = 0 To 2
Me.Controls("picturebox" + "A" & i + 1).image = Me.Controls("picturebox" + "B" & i + 1).image
Next i
它说图像不是控件的成员。 因为我必须做这个pictureboxA1.image = pictureboxB1.image,21次。
像 pictureboxA1,pictureboxA2,... 3,4,5,6,7直到21。
如果我这样做
pictureboxA1.image = pictureboxB1.image
我必须将代码改为21次,如果我只使用xD一次。
我尝试.picture它说同样的事情
答案 0 :(得分:1)
对不起,我应该早点看到这个。您需要将控件设置为PictureBox才能识别该属性。我认为。这样的事可能有用。我没有权限访问PictureBox控件,所以这是猜测:
Dim pic as PictureBox
For i = 0 To 2
set pic = Me.Controls("picturebox" + "A" & i + 1)
pic.image = Me.Controls("picturebox" + "B" & i + 1).image
Next i