迭代PictureBoxes

Question

我如何通過名爲PictureBox1，PictureBox2 ... PictureBox24在Visual Basic 10

Answer 1

PictureBoxes迭代，你應該給你的PictureBox ES有意義的名稱，如果你有很多圖片框，你應該把它們放到一個數組。

除此之外，有這麼多的圖片盒傷害了性能。您可能正在使用它們來繪製單個物體 - 不這樣做！使用一個圖片框並在其上繪製所有圖片。

但是，如果你真的想要，你可以迭代父控件的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是包含圖片框的父控件（例如表格）。