迭代PictureBoxes

Question

如何遍历名为PictureBox1、PictureBox2的PictureBoxes ...Visual basic10中的PictureBox24

Answer 1

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

除此之外，拥有如此多的图片框会影响性能。您可能正在使用它们来绘制单独的对象-不要这样做！使用一个图片框并在其上绘制所有内容。

但是如果你真的想这样做，你可以迭代父控件的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是包含图片框的父控件(例如窗体)。