Справочное руководство по TDMS 5.0 API
VB Script
Смотри также Послать замечания

Glossary Item Box

Исходный код

Option Explicit
Dim obj
Set obj = CreateDocObject()

'=============================================================================
' Создать объект с SysId = "DOCUMENT" в составе корневого объекта "Root"
' Создание объекта с использованием CreateObjectDlg
'==============================================================================
Function CreateDocObject()
      Set CreateDocObject = Nothing
      Dim CreateObjDlg, Object
      
    ' Инициализация свойств диалога создания объекта
      Set CreateObjDlg  = ThisApplication.Dialogs.CreateObjectDlg
    
    ' Указание типа создаваемого объекта
      CreateObjDlg.ObjectDef = "DOCUMENT"
    
    ' Указание родителя, в составе которого будет создан объект
      CreateObjDlg.ParentObject = ThisApplication.Root
    
    ' Указание дескриптора окна TDMS. При вызове диалога из внутреннего скрипта является необязательным параметром.
      CreateObjDlg.ParentWindow = ThisApplication.hWnd
      
  ' Установить активной первую форму ввода (из присвоенных данному типу объектов)
    CreateObjDlg.ActiveForm = ThisApplication.ObjectDefs("DOCUMENT").Inputforms(0)

  ' Вызов диалога создания. (Открытие карточки объекта) 
  ' Если в карточке объекта была нажата кнопка "Отмена", то выйти из процедуры
    If CreateObjDlg.Show = False Then Exit Function
    
  ' Если в карточке объекта была нажата кнопка "Ок", то присвоить переменной Object ссылку на созданный объект
    Set CreateDocObject = CreateObjDlg.Object
End Function
'=============================================================================

'*** Необходимо отметить, что при использовании CreateObjectDlg в системе
'*** отработают все события, связанные с созданием объекта

© 2016 CSoft Development. Все права защищены.