Как обращаться к динамически созданным кнопкам? - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.1 из 5
Похожие ответы