|
|
ICONICS GENESIS32 |
|
Кто знает по чему при написание в коде
ThisDisplay.CreateEllipse (параметры) и сделать запуск по кнопке на экране не появляется эллипс или другой объект
|
|
 |
|
|
подробней распишите свои действия.
Вы читали документацию GENESIS32_OLE_Automation_References.pdf (на диске с дистрибутивом папка GENESIS32/Manuals/files)? В этой документации на странице 42 есть пример.
|
|
|
|
|
прочитал я документацию на 42 странице, не нашел если честно примера, если есть такая возможность не могли бы вы скинуть этот документ \\ (у меня только англ. версия документа была )
|
|
|
|
|
теперь только вечером получится
|
|
|
|
|
хорошо, спасибо буду ждать
|
|
|
|
|
http://narod.ru/disk/24254405001/GENESIS32_OLE_Automation_References.pdf.html - здесь описание функции и пример.
Создайте на экране кнопку, в свойствах кнопки присвойте действие "run script", далее нажмите создать скрипт и вставьте код из примера.
|
|
|
|
|
Спасибо, но все равно не идет, хотя и использовал вот этот скрипт по кнопке
Sub qwe() MsgBox "123" Dim objEll As GwxEllipse ThisDisplay.DeleteObject ("TheEllipse") o.Selected = False Set objEll = ThisDisplay.CreateEllipse(442, 230, 80, 30, True, RGB(123, 200, 123), RGB(133, 200, 123), 1, LineNone, False, RGB(123, 200, 123), EdgeEtched, False, "TheEllipse") If objEll Is Nothing Then MsgBox "Operation failed." Exit Sub Else MsgBox "A new object has been created." End If objEll.UserDescription = "The Ellipse" End Sub |
|
|
|
|
а MsgBox работает в этом скрипте?
|
|
|
|
|
MsgBox "123" вот этот срабатывает, просто мы пробовали подобный скрипт до этого у нас тоже не че не отобразилось, а тут он встает вот этой строке
Set objEll = ThisDisplay.CreateEllipse(442, 230, 80, 30, True, RGB(123, 200, 123), RGB(133, 200, 123), 1, LineNone, False, RGB(123, 200, 123), EdgeEtched, False, "TheEllipse") т.е. не может выполнить параметры походу, хотя ошибка не выходит
|
|
|
|
|
А вы в каком режиме исполняете скрипт: в режиме разработки или режиме исполнения?
Данная функция работает только в режиме разработки.
|
|
|
|
Ответить 
|
Страница 12> |
| Переход на форум | Права доступа на форуме  Вы не можете публиковать новые темы в этом форуме Вы не можете отвечать на сообщения в этом форуме Вы не можете удалять Ваши сообщения на этом форуме Вы не можете редактировать Ваши сообщения на этом форуме Вы не можете создавать голосования на этом форуме Вы не можете выражать своё мнение в голосованиях на этом форуме |
