迭代PictureBoxes

Question

如何在Visual Basic 10中迭代名为PictureBox1，PictureBox2 ... PictureBox24的PictureBox？

Answer 1

你应该给你的PictureBox个有意义的名字，如果你有那么多的图片框，你应该把它们放到一个数组中。

除此之外，拥有许多图片框会损害性能。您可能正在使用它们绘制单个对象 - 不要那样做！使用一个图片框并在其上绘制所有内容。

但是如果你真的想要，你可以迭代父控件的Controls集合。

For Each control As Control In parent.Controls
    Dim pictureBox As PictureBox = TryCast(control, PictureBox)
    If pictureBox IsNot Nothing Then … ' Do something.
End For

其中parent是包含图片框的父控件（例如表单）。