Здравствуйте. Будте добры,
имеем:
Private MyControl As MSForms.control
Dim N As Long
Private Sub Label1_MouseMove(...)
Set MyControl = UserForm1.Label1
End Sub
Private Sub CommandButton234_Click()
Set MyControl = UserForm1.CommandButton234
End Sub
'и т.п.
ВОПРОС: Возможно ли составить уникальные фразы, чтобы:
1.любой Элемент в процедурах UserForm'ы автоматически определял сам себя
2.автоматически получить его (порядковый) №.
Наподобие:
Private Sub Элемент№_Click()
Set MyControl = UserForm1.Me
N = №
End Sub
имеем:
Private MyControl As MSForms.control
Dim N As Long
Private Sub Label1_MouseMove(...)
Set MyControl = UserForm1.Label1
End Sub
Private Sub CommandButton234_Click()
Set MyControl = UserForm1.CommandButton234
End Sub
'и т.п.
ВОПРОС: Возможно ли составить уникальные фразы, чтобы:
1.любой Элемент в процедурах UserForm'ы автоматически определял сам себя
2.автоматически получить его (порядковый) №.
Наподобие:
Private Sub Элемент№_Click()
Set MyControl = UserForm1.Me
N = №
End Sub