将随机图像添加到标签

Question

UserForm 2 = 36个按钮（btn1到btn36）每个按钮上都有一个图像。 当我点击“添加”按钮，我想对于那些上的按钮3个randon图像在用户窗体1日3个标贴的地方说：随机图片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中的控件数，并将其舍入为整数，您将得到一个随机控件。只要确保索引的控件是一个按钮，并且可以将该按钮的图像用作随机图像之一。