Как узнать зарегистрирован ли данный ActiveX в Системе

@yuniki · Регистрация: 28.09.2007

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

При использовании ActiveX c Excel файлами при предложении использовать данный xls файл другому пользователю сети предприятия у того может не оказаться требующегося ActiveX контрола - надо следовательно программе - макросу,находящейся в xls файле его откуда- то из сети взять и установить на компьютер пользователя. Если как зарегистрировать программно я знаю ( shell regsvr32 -s <Path2DLL>), то как перед этим проверить - не имеется ли уже данный контрол в системе пользователя - мне непонятно .
Кто - что нибудь может предложить по этому поводу ?

@Ennor · 11.05.2008, 00:22

В принципе, можешь хоть 10 раз зарегистрировать - ничего страшного не будет. А вообще... Попробуй так: сделай отдельную функцию, в ней поставь On Error Resume Next и попытайся создать объект из DLL или чего у тебя там. Сразу после этого:

If Err.Number <> 0 Then
...

Ну, ты понял, я надеюсь. Функцию вызываешь при самом старте макроса.

@yuniki · 11.05.2008, 23:50 **[ТС]**

Да , насчет ловушки я знаю .
Но по зрелому размышлению, я понял, что в описанном мной случае ничто не поможет.
Дело в том, что нужно распространять визуальный ActiveX который спроектирован на форме ввода в Excel - скажем, DTPicker, события от него надо обработать программно. А следовательно, если попытаться добавлять его в UserForm.Controls даже после успешной его регистрации, то и объявлять WithEvent переменную придется ранним связыванием, т.е. как класс DTPicker - а после программной регистрации контрола , как я понял, я могу использовать только позднее связывание и, следовательно, не смогу написать обработчики событий для этого контрола в модуле формы .
Да и вообще, получается , слишком много кода для поддержки автоматического распространения контролов с Excel'скими файлами.

@Ennor · 15.05.2008, 02:53

Да создай в контроле тестовый класс с одним свойством, его и создавай.

18.05.2008, 08:53

Я иногда проверял такие вещи до вызова всех Форм, т.е. в SubMain(), а потом после регистрации нужных контролов запускал первую форму. И далее по алгоритму.

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@yuniki 1 / 1 / 0 Регистрация: 28.09.2007 Сообщений: 285

	Как узнать зарегистрирован ли данный ActiveX в Системе 11.05.2008, 00:12. Показов 2403. Ответов 4 Метки нет (Все метки) При использовании ActiveX c Excel файлами при предложении использовать данный xls файл другому пользователю сети предприятия у того может не оказаться требующегося ActiveX контрола - надо следовательно программе - макросу,находящейся в xls файле его откуда- то из сети взять и установить на компьютер пользователя. Если как зарегистрировать программно я знаю ( shell regsvr32 -s <Path2DLL>), то как перед этим проверить - не имеется ли уже данный контрол в системе пользователя - мне непонятно . Кто - что нибудь может предложить по этому поводу ? 0

@Ennor 0 / 0 / 0 Регистрация: 07.04.2008 Сообщений: 99
	11.05.2008, 00:22
	В принципе, можешь хоть 10 раз зарегистрировать - ничего страшного не будет. А вообще... Попробуй так: сделай отдельную функцию, в ней поставь On Error Resume Next и попытайся создать объект из DLL или чего у тебя там. Сразу после этого: If Err.Number <> 0 Then ... Ну, ты понял, я надеюсь. Функцию вызываешь при самом старте макроса. 0

@yuniki 1 / 1 / 0 Регистрация: 28.09.2007 Сообщений: 285
	11.05.2008, 23:50 [ТС]
	Да , насчет ловушки я знаю . Но по зрелому размышлению, я понял, что в описанном мной случае ничто не поможет. Дело в том, что нужно распространять визуальный ActiveX который спроектирован на форме ввода в Excel - скажем, DTPicker, события от него надо обработать программно. А следовательно, если попытаться добавлять его в UserForm.Controls даже после успешной его регистрации, то и объявлять WithEvent переменную придется ранним связыванием, т.е. как класс DTPicker - а после программной регистрации контрола , как я понял, я могу использовать только позднее связывание и, следовательно, не смогу написать обработчики событий для этого контрола в модуле формы . Да и вообще, получается , слишком много кода для поддержки автоматического распространения контролов с Excel'скими файлами. 0

@Ennor 0 / 0 / 0 Регистрация: 07.04.2008 Сообщений: 99
	15.05.2008, 02:53
	Да создай в контроле тестовый класс с одним свойством, его и создавай. 0

Vita
	18.05.2008, 08:53
	Я иногда проверял такие вещи до вызова всех Форм, т.е. в SubMain(), а потом после регистрации нужных контролов запускал первую форму. И далее по алгоритму.