Добавить случайные изображения на ярлыки

Question

UserForm 2 = 36 кнопок (от btn1 до btn36) На каждой кнопке есть изображение. Когда я нажимаю кнопку «ДОБАВИТЬ», мне нужно, чтобы три случайных изображения, которые находятся на кнопках, отображались в 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 и округлите его до целого числа, вы получите случайный элемент управления.Просто убедитесь, что индексированный вами элемент управления является кнопкой, и вы можете использовать изображение этой кнопки в качестве одного из случайных изображений.