2012-11-11 26 views
0

有没有办法将图片从一个PictureBox对象设置到另一个?例如:Visual Basic - 图片框名称可变增量

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来做。

和我tryed .picture它说同样的事情

+0

您已发布评论作为解答。请停止这样做。我意识到现在的问题是你需要将控件作为PictureBox进行投射。 –

+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 
+0

如果这不起作用,请在此下面发表评论,或编辑您的帖子。 –

+0

非常感谢:D – Cenas