|
0
oleg-vdgbu
22.02.11
✎
10:09
|
ОЧЕНЬ хотят эту хрень. Я только взялся изучать 1С. Попробовал по книге Михайлов 1С: предприятие 7.7/8.0 системное программирование.
Повесил на ПриОткрытии() документа этот код:
&НаКлиенте
Процедура ПриОткрытии(Отказ)
Попытка
Agent = Новый COMОбъект("Agent.Control.2");
Исключение
Сообщить("MS Agent не установлен!");
Возврат;
КонецПопытки ;
Agent.Connected = Истина; // Подключаемся к объекту
// Вывод панели настройки свойств для выбора персонажа по умолчанию
Agent.ShowDefaultCharacterProperties(4, 4);
Agent.Characters.Load(,); // Загружаем персонаж по умолчанию
Agent.Characters("").Show(); // Выводим на экран персонаж по умолчанию
// Вставить содержимое обработчика.
Попытка
Agent = Новый COMОбъект("Agent.Control.2");
Исключение
Сообщить("MS Agent не установлен!");
Возврат;
КонецПопытки ;
Agent.Connected = Истина; // Подключаемся к объекту
Agent.Characters.Load("Merlin", "Merlin.acs"); // Загружаем персонаж
//Agent.Characters("Merlin").Show(); // Выводим на экран
Characters = Agent.Characters("Merlin");
Characters.Show(); // Выводим на экран
Characters.MoveTo(100, 100); // Перемещаем в координаты (X, Y)
Characters.MoveTo(200, 0, 500); // 500 — скорость анимации
Characters.MoveTo(300, 100, 0); //0 - без анимации
// Проигрываем заданную анимацию
Для Ном = 1 По 5 Цикл
// Волшебник постучится в монитор
Characters.Play("GetAttentionContinued");
КонецЦикла;
Characters.Play("Search"); // Волшебник покажет волшебный шар
Characters.Think("Добрый день, приятной работы!"); // Вывести текст
// Воспроизвести одну фразу из заданных
Characters.Speak("Хорошая погодка!]Не пора ли на обед?");
// Получение всех возможных анимаций. Перебор элементов коллекции.
Для каждого Имя Из Characters.AnimationNames() Цикл
Сообщить(Имя);
КонецЦикла;
КонецПроцедуры
-----------------------------------
Персонаж появляется, но затем стремительно исчезает. Что надо изменить, чтобы он висел на экране?
Помогите, пожалуйста!
|
|
