将随机图像添加到标签

Question

UserForm 2 = 36个按钮（btn1到btn36）每个按钮上都有一个图像。 当我点击“添加”按钮时，我希望按钮上的三个randon图像显示在UserForm 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中的控件数，并将其四舍五入为整数，则将获得随机控制。只需确保您编入索引的控件是一个按钮，然后您可以将该按钮的图像用作随机图像之一。