Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

как динамически добавить Control внутрь Frame?

741
02 марта 2002 года
plusminus
3 / / 20.02.2000
Доброе время суток.
Подскажите, как с помощью кода (динамически) добавить элемент управляния, например OptionButton, >>>внутрь<<< рамки
Возможные варианты:
1)
Private Sub UserForm_Initialize()
Dim MyFrame As Object
Dim MyCmd As Object
Set MyFrame = frmFounders.Controls.Add(&quot;Forms.Frame.1&quot;)
With MyFrame
.Name = &quot;MyFrame&quot;
.Left = 20
.Top = 20
.Width = 40
.Height = 50
.Caption = &quot;&quot;
.Visible = True
End With
Set MyCmd = frmFounders.MyFrame.Controls.Add(&quot;Forms.OptionButton.1&quot;)
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(&quot;Forms.OptionButton.1&quot;)
Method or data member not found (Error 461)

2) Еще один способ: set NewControl.container = MyFrame - тоже не работает, наверно, по той же причине: элемент добавляется динамически. Можно конечно установить Control в форму вручную (так оба способа работают), но мне он нужет как элемент массива, a в VBA у этого объекта нет свойства Index.

Как исправить код?
741
03 марта 2002 года
plusminus
3 / / 20.02.2000
Вопрос решен - помощь не нужна
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог