Visual Basic - 图片框名称变量增量

时间:2012-11-11 22:30:19

标签: vba variables picturebox

有没有办法将图像从一个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它说同样的事情

1 个答案:

答案 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