|
Функции типа Create... работают только в режиме разработки, соответственно скрип сработь по кнопке в режиме рантайма не может по задумке! Но... У thisdisplay. есть событие PreRuntimeStart. В это событие вам и следует прописывать скрипты, содержащие данные функции, поскольку это событие выполняется до того как наступит режим рантайма, то есть в режиме разработки. вот пример с созданием эклипса: Private Sub GwxDisplay_PreRuntimeStart() Dim objRect As GwxEllipse Call ThisDisplay.DeleteObject("TheEllipse") Set objRect = 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 objRect Is Nothing Then MsgBox "Operation failed." Exit Sub Else MsgBox "A new object has been created." End If objRect.UserDescription = "TheEllipse" End Sub Добавьте этот код в объект thisdisplay в проекте vba и запустите в рантайм.
|