Хочу программно добавить на обычную форму эскиз PDF. Установил Adobe reader, теперь при действии "Форма" - "Вставить ActiveX" появился пункт "Adobe PDF Reader". Но я хочу создавать элемент формы программно, и потому элемент не вставляю изначально через форму, а пишу код для программной вставки:

СканПДФ = ЭлементыФормы.ДобавитьActiveX("Adobe PDF Reader", СканПДФ, Истина,);

Но выходит ошибка: Ошибка при вызове метода контекста (ДобавитьActiveX)

по причине:
Неправильный идентификатор ActiveX (Adobe PDF Reader)


Вопрос - как определить, какой должен быть идентификатор?

(0) AcroPDF.PDF.1 попробуй

Посмотреть в реегистре
https://forums.adobe.com/thread/1386600?start=0&tstart=0

(1) Спасибо, получилось!

Теперь возник другой вопрос - а как удалить ранее созданный элемент АктивеХ?

Если пишу так:

ЭлементПДФ = ЭлементыФормы.Найти("СканПДФ");    
    Если ЭлементПДФ <> Неопределено Тогда
        ЭлементыФормы.Удалить(ЭлементПДФ);
    КонецЕсли;

то возвращает Неопределено, хотя элемент на форме был создан, и более того, он визуально виден на форме.

(3) И при отладке в множестве "ЭлементыФормы" нет элемента ActiveX, хотя визуально он присутствует.

(4)
как вариант.
сделать СканПДФ переменной модуля и удалять непосредственно.

(5) Попробовал - но не получается:


Процедура ПоказатьЭскиз(ТекИмяФайла)
    СканПДФ = Неопределено;
        
    ЭлементПДФ = ЭлементыФормы.Найти("СканПДФ");    
    Если ЭлементПДФ <> Неопределено Тогда
        ЭлементыФормы.Удалить(ЭлементПДФ);
    КонецЕсли;

    Если Прав(ТекИмяФайла, 3) = "pdf" Тогда
        
        СканПДФ = ЭлементыФормы.ДобавитьActiveX("AcroPDF.PDF.1", СканПДФ, Истина,);
        СканПДФ.Видимость = Истина;
        СканПДФ.Верх = 78;
        СканПДФ.Лево = 457;
        СканПДФ.Высота = 447;
        СканПДФ.Ширина = 261;
        
        СканПДФ.LoadFile(ТекИмяФайла);

КонецПроцедуры



В эту процедуру передаю имя файла, и если это pdf - то надо отобразить эскиз файла на форме. Когда передаю иное имя файла (не пдф) - то на форме элемент ActiveX не исчезает, продолжает висеть...

(6)
ммм...

СканПДФ = Неопределено;
может закомментировать?
похоже эта строчка убивает.

(7)
вообще - хз.

(7) Я её как раз добавил в попытке удалить уже созданный ранее элемент ActiveX - но всё равно не удаляется.

Процедура ПоказатьЭскиз(ТекИмяФайла)

    Если СканПДФ <> Неопределено Тогда
        ЭлементыФормы.Удалить(СканПДФ);
    КонецЕсли;

    Если Прав(ТекИмяФайла, 3) = "pdf" Тогда
        
        СканПДФ = ЭлементыФормы.ДобавитьActiveX("AcroPDF.PDF.1", СканПДФ, Истина,);
        СканПДФ.Видимость = Истина;
        СканПДФ.Верх = 78;
        СканПДФ.Лево = 457;
        СканПДФ.Высота = 447;
        СканПДФ.Ширина = 261;
        
        СканПДФ.LoadFile(ТекИмяФайла);

КонецПроцедуры

(0)
вместо:
СканПДФ = ЭлементыФормы.ДобавитьActiveX("AcroPDF.PDF.1", СканПДФ, Истина,);

попробуй
СканПДФ = ЭлементыФормы.ДобавитьActiveX("AcroPDF.PDF.1", "СканПДФ", Истина,);

(11)+

точнее:
элементПДФ = ЭлементыФормы.ДобавитьActiveX("AcroPDF.PDF.1", "СканПДФ", Истина,);
далее по тексту

(11)+ попробуй такой вариант:

Процедура ПоказатьЭскиз(ТекИмяФайла)

    Если ЭлементыФормы["СканПДФ"] <> Неопределено Тогда
        ЭлементыФормы.Удалить(ЭлементыФормы["СканПДФ"]);
    КонецЕсли;

    Если Прав(ТекИмяФайла, 3) = "pdf" Тогда
        
ЭлементыФормы.ДобавитьActiveX("AcroPDF.PDF.1", "СканПДФ", Истина,);
        ЭлементыФормы["СканПДФ"].Видимость = Истина;
        ЭлементыФормы["СканПДФ"].Верх = 78;
        ЭлементыФормы["СканПДФ"].Лево = 457;
        ЭлементыФормы["СканПДФ"].Высота = 447;
        ЭлементыФормы["СканПДФ"].Ширина = 261;
        
        ЭлементыФормы["СканПДФ"].LoadFile(ТекИмяФайла);

КонецПроцедуры