Переключение на Главную Страницу Страницы: 1 ОтправитьПечать
Обычная тема Немогу подключить WScript.Shell (как АктивХ)... (число прочтений - 5775 )
chicago
Senior Member
****
Отсутствует


1C++, I have nothing to
say more!

Сообщений: 316
Местоположение: Тернополь-Киев
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Немогу подключить WScript.Shell (как АктивХ)...
29. Ноября 2006 :: 12:56
Печать  
Ну никак.
Код
Выбрать все
Процедура ПослеОткрытия()
	ОбєАкХ = СоздатьОбъект("АктивИкс");
	ОбєАкХ.УстановитьАтрибут(Форма, "АктивХ");
	ОбєАкХ.СоздатьЭУ("WScript.Shell");
КонецПроцедуры 


Ругается:
ОбєАкХ.СоздатьЭУ("WScript.Shell");
{E:\1C\ERTFILE.ERT(239)}: Создание элемента управления WScript.Shell не удалось


Как его подключить?
  
Наверх
ICQ  
IP записан
 
JohnyDeath
1c++ power user
1c++ donor
Отсутствует



Сообщений: 3050
Местоположение: Волгоград
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Немогу подключить WScript.Shell (как АктивХ)..
Ответ #1 - 29. Ноября 2006 :: 13:28
Печать  
chicago писал(а) 29. Ноября 2006 :: 12:56:
Ну никак.
Код
Выбрать все
Процедура ПослеОткрытия()
	ОбєАкХ = СоздатьОбъект("АктивИкс");
	ОбєАкХ.УстановитьАтрибут(Форма, "АктивХ");
	ОбєАкХ.СоздатьЭУ("WScript.Shell");
КонецПроцедуры 


Ругается:
ОбєАкХ.СоздатьЭУ("WScript.Shell");
{E:\1C\ERTFILE.ERT(239)}: Создание элемента управления WScript.Shell не удалось


Как его подключить?

Дык, разве есть такой АктивИкс?
  
Наверх
 
IP записан
 
chicago
Senior Member
****
Отсутствует


1C++, I have nothing to
say more!

Сообщений: 316
Местоположение: Тернополь-Киев
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Немогу подключить WScript.Shell (как АктивХ)..
Ответ #2 - 29. Ноября 2006 :: 13:50
Печать  
MSScriptControl.ScriptControl
Вот такой есть точно, но как с ним работать... Не знаю.
  
Наверх
ICQ  
IP записан
 
JohnyDeath
1c++ power user
1c++ donor
Отсутствует



Сообщений: 3050
Местоположение: Волгоград
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Немогу подключить WScript.Shell (как АктивХ)..
Ответ #3 - 29. Ноября 2006 :: 14:37
Печать  
chicago писал(а) 29. Ноября 2006 :: 13:50:
MSScriptControl.ScriptControl
Вот такой есть точно, но как с ним работать... Не знаю.

А чего ты вообще хочешь?
  
Наверх
 
IP записан
 
chicago
Senior Member
****
Отсутствует


1C++, I have nothing to
say more!

Сообщений: 316
Местоположение: Тернополь-Киев
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Немогу подключить WScript.Shell (как АктивХ)..
Ответ #4 - 29. Ноября 2006 :: 15:04
Печать  
JohnyDeath писал(а) 29. Ноября 2006 :: 14:37:
chicago писал(а) 29. Ноября 2006 :: 13:50:
MSScriptControl.ScriptControl
Вот такой есть точно, но как с ним работать... Не знаю.

А чего ты вообще хочешь?


Хочу в документе нажать кнопочку и должна открытся в модальном окне форма обработки в которой в прямоугольной области должно открыться приложение "Microsoft Office Excel Viewer 2003" в котором должен открытся файли *.xls.
В атаче нарисовано то что я хочу.

PS.
В глобалном масштабе, мне нужен просмотр в 1С файлов *.xls, но без установленого офиса.
  

1.JPG ( 101 KB | Загрузки )
1.JPG
Наверх
ICQ  
IP записан
 
JohnyDeath
1c++ power user
1c++ donor
Отсутствует



Сообщений: 3050
Местоположение: Волгоград
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Немогу подключить WScript.Shell (как АктивХ)..
Ответ #5 - 30. Ноября 2006 :: 07:56
Печать  
chicago писал(а) 29. Ноября 2006 :: 13:50:
MSScriptControl.ScriptControl
Вот такой есть точно, но как с ним работать... Не знаю.

Вот посмотри как сделано в классе "ПримерДерево" (steban):
Код
Выбрать все
Процедура Инициализация() Экспорт
	Дерево.СоздатьЭУ("MSComctlLib.TreeCtrl");
	Дерево.Объект.LineStyle=1;//Const tvwRootLines = 1
	Дерево.Объект.Style=7;//Const tvwTreelinesPlusMinusPictureText = 7
	Дерево.Объект.Indentation=0;
	Scr=СоздатьОбъект("MSScriptControl.ScriptControl");
	scr.Language="vbscript";
	scr.AddObject("tv1",Дерево.Объект);
	Картинки=СоздатьОбъект("MSComctlLib.ImageListCtrl");
	//Картинки.UseMaskColor=-1;
	//Картинки.MaskColor=128*256+128;
	П=СоздатьОбъект("Scripting.FileSystemObject");
	Путь=П.GetFile(Сам(Контекст).ПолучитьПуть()).ParentFolder.Path;
	Картинки.ListImages.Add(1,"",scr.Eval("LoadPicture("""+Путь+"\fld.ico"")"));
	Картинки.ListImages.Add(2,"",scr.Eval("LoadPicture("""+Путь+"\doc.ico"")"));
	Картинки.ListImages.Add(3,"",scr.Eval("LoadPicture("""+Путь+"\attr.ico"")"));
	Дерево.Объект.ImageList=Картинки;
	Корень=Scr.Eval("tv1.Nodes.Add(,4,,""Документы"",1)");
	Для Д=1 По Метаданные.Документ() Цикл
		Док=Метаданные.Документ(Д);
		нтификатор,2);
		Для Р=1 По Док.РеквизитШапки() Цикл
			Рекв=Док.РеквизитШапки(Р);
			катор,3);
		КонецЦикла;
	КонецЦикла;
	Дерево.УстановитьФокус();
КонецПроцедуры	// Инициализация 


Вот и делай по аналогии.
  
Наверх
 
IP записан
 
chicago
Senior Member
****
Отсутствует


1C++, I have nothing to
say more!

Сообщений: 316
Местоположение: Тернополь-Киев
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Немогу подключить WScript.Shell (как АктивХ)..
Ответ #6 - 04. Декабря 2006 :: 07:13
Печать  
И все таки не могу понять как это применить к моей задаче... Печаль
  
Наверх
ICQ  
IP записан
 
Переключение на Главную Страницу Страницы: 1
ОтправитьПечать