当前位置：文江博客话题详情

迭代图片框

发布于 2024-11-04 06:08:06 字数 86 浏览 1 评论 0原文

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

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

亂 2024-11-11 06:08:06

您应该为您的图片框指定有意义的名称，如果您有那么多图片框，您应该将它们放入一个数组中。

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

但如果您确实愿意，可以迭代父控件的 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 是包含图片框的父控件（例如表单）。

You should give your PictureBoxes meaningful names and if you have that many picture boxes you should put them into an array.

Apart from that, having that many picture boxes hurts performance. You are probably using them to draw individual objects – don’t do that! Use one picture box and draw everything on it.

But if you really want to, you can iterate the parent control’s Controls collection.

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

Where parent is the parent control (e.g. the form) that contains the picture boxes.

回复收藏 0 原文

~没有更多了~