как динамически добавить Control внутрь Frame?
Подскажите, как с помощью кода (динамически) добавить элемент управляния, например OptionButton, >>>внутрь<<< рамки
Возможные варианты:
1)
Private Sub UserForm_Initialize()
Dim MyFrame As Object
Dim MyCmd As Object
Set MyFrame = frmFounders.Controls.Add("Forms.Frame.1")
With MyFrame
.Name = "MyFrame"
.Left = 20
.Top = 20
.Width = 40
.Height = 50
.Caption = ""
.Visible = True
End With
Set MyCmd = frmFounders.MyFrame.Controls.Add("Forms.OptionButton.1")
With MyCmd
.Width = 15
.Height = 10
.Top = frmFounders.MyFrame.Height - .Height - 5
.Left = frmFounders.MyFrame.Width - .Width - 5
End With
End Sub
=> Compile error:
Set MyCmd = frmFounders.MyFrame.Controls.Add("Forms.OptionButton.1")
Method or data member not found (Error 461)
2) Еще один способ: set NewControl.container = MyFrame - тоже не работает, наверно, по той же причине: элемент добавляется динамически. Можно конечно установить Control в форму вручную (так оба способа работают), но мне он нужет как элемент массива, a в VBA у этого объекта нет свойства Index.
Как исправить код?
Вопрос решен - помощь не нужна