Как обращаться к динамически созданным кнопкам? - VBA
Формулировка задачи:
Есть код
Но как обрабатывать нажатие по этим кнопкам?
Решение задачи: «Как обращаться к динамически созданным кнопкам?»
textual
Листинг программы
Dim MyButton(9) As New ButtonForClick Dim LocalButton As MSForms.CommandButton Public Sub MyButton_Click(ID As Integer) MsgBox ("Кнопка") End Sub Private Sub UserForm_Initialize() For i = 0 To 8 Set LocalButton = MyButton(i).Create(Me, "Button" & i, i) LocalButton.Left = 18 LocalButton.Top = (6 + ((i + 1) * 36)) LocalButton.Height = 24 LocalButton.Caption = "Кнопка" & i LocalButton.Width = 84 Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д