Динамические контролы

@P@Ssword · Регистрация: 05.04.2008

Студворк — интернет-сервис помощи студентам

В ActiveX DLL кладу Юзер контрол, в него набиваю:

Code
1
2
3
Sub foo()
    MsgBox 'Yoy!'
End Sub

В основном проекте пишу:

Code
1
2
3
4
...
    Form1.Controls.Add 'Имя_DLL.Контрол', Control
    Control.foo
...

На последней строке пишет, что метод не поддерживается. Почему?

@WestAdmin · 12.02.2009, 10:03

Привет.

Все потому, что ДЛЛ не может содержать Юзер контролы являющиеся Public.

Для этого существуют проекты типа ActiveX Control.

@P@Ssword · 14.02.2009, 09:49 **[ТС]**

Но ведь контрол создается, только моих методов у него нет!

16.02.2009, 16:41

Code
1
2
3
  Dim x As Object
  Set x = Form1.Controls.Add('Имя_DLL.Контрол', 'как-то')
  x.foo

@WestAdmin · 16.02.2009, 19:00

Доброго времени суток.

Я конечно дико извеняюсь, но по моему, это невозможно. Может пришлете мне примерчик такой реализации?

17.02.2009, 10:09

Code
1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
  Dim x As Variant
'  Dim x As Object
'  Dim x As Control
'  Dim x As CommandButton
  Set x = Controls.Add('VB.CommandButton', 'xxx')
  x.Visible = True
  x.Move 100, 100
End Sub

Появится кнопка.

@WestAdmin · 17.02.2009, 11:19

Доброго времени суток.

Это конечно очень интересно, но это использование стандартного контрола.
А попробуй сделать так со своим контролом, самописным, лежащим во внешней ДЛЛ.

?

17.02.2009, 13:45

WestAdmin:
Ну право недоверчивый ты!

Code
1
2
3
4
5
Private Sub Form_Load()
  Dim x As Object
  Set x = Controls.Add('ViControl.UserControl1', 'xxx')
  x.Visible = True
End Sub

ViControl - это обычный UserControl контрол, без наворотов и одной Label на нем. Никаких ссылок на ViControl в проекте с Form_Load нет, используется только лишь имя 'ViControl.UserControl1'.

@WestAdmin · 17.02.2009, 14:20

Доброго времени суток.

Зри в корень!
т.е. прочитай первое сообшение!

Речь идет о DLL а не про OCX!
С ocx все понятно. Я ж тоже не полный профан!

17.02.2009, 14:45

Я ориентировался на ответ P@Ssword
'Но ведь контрол создается, только моих методов у него нет!'
Т.е. контрол создается. Тогда доступ к нему должен идти через Late Binding, через Object.

@P@Ssword · 21.02.2009, 08:26 **[ТС]**

2 Vita

Я в постах не видел вызова процедур. Они точно работают?

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

@WestAdmin 0 / 0 / 0 Регистрация: 19.02.2008 Сообщений: 25
	12.02.2009, 10:03
	Привет. Все потому, что ДЛЛ не может содержать Юзер контролы являющиеся Public. Для этого существуют проекты типа ActiveX Control. 0

@P@Ssword 0 / 0 / 0 Регистрация: 05.04.2008 Сообщений: 73
	14.02.2009, 09:49 [ТС]
	Но ведь контрол создается, только моих методов у него нет! 0

@WestAdmin 0 / 0 / 0 Регистрация: 19.02.2008 Сообщений: 25
	16.02.2009, 19:00
	Доброго времени суток. Я конечно дико извеняюсь, но по моему, это невозможно. Может пришлете мне примерчик такой реализации? 0

@WestAdmin 0 / 0 / 0 Регистрация: 19.02.2008 Сообщений: 25
	17.02.2009, 11:19
	Доброго времени суток. Это конечно очень интересно, но это использование стандартного контрола. А попробуй сделать так со своим контролом, самописным, лежащим во внешней ДЛЛ. ? 0

@WestAdmin 0 / 0 / 0 Регистрация: 19.02.2008 Сообщений: 25
	17.02.2009, 14:20
	Доброго времени суток. Зри в корень! т.е. прочитай первое сообшение! Речь идет о DLL а не про OCX! С ocx все понятно. Я ж тоже не полный профан! 0

Vita
	17.02.2009, 14:45
	Я ориентировался на ответ P@Ssword 'Но ведь контрол создается, только моих методов у него нет!' Т.е. контрол создается. Тогда доступ к нему должен идти через Late Binding, через Object.

@P@Ssword 0 / 0 / 0 Регистрация: 05.04.2008 Сообщений: 73
	21.02.2009, 08:26 [ТС]
	2 Vita Я в постах не видел вызова процедур. Они точно работают? 0

Опции темы