将随机图像添加到标签

Question

用户窗体 2 = 36 个按钮（btn1 至 btn36） 每个按钮上都有一个图像。 当我单击“ADD”按钮时，我希望按钮上的三个随机图像显示在用户窗体 1 的三个标签中，其中显示“随机图像 1”。

Answer 1

要选择随机按钮图像，您需要使用表单上的 Me.Controls 集合。例如：

Dim cCont As Control
For Each cCont In Me.Controls
    'DO STUFF HERE
Next cCont

如果您在变量 cCont 上放置一个监视，您可以看到每个控件具有的所有属性。首先，您必须过滤掉按钮控件。然后，您必须查看该按钮的图像属性以获取它并在第二个表单上进行设置。

最后，要引入随机元素，只需使用 Rand() 函数即可。这将返回 0 到 1 之间的随机数。如果将其乘以 Me.Controls 中的控件数量，并将其舍入为整数，您将获得一个随机控件。只需确保您索引的控件是一个按钮，并且您可以使用该按钮的图像作为随机图像之一。