Справочное руководство по TDMS 7.0 API
VB Script
Смотри также Отправить замечание

Glossary Item Box

Исходный текст

Option Explicit
Call ShowReferencedObjInfo(ThisObject)

'==============================================================================
' Вывести описание всех объектов, атрибуты которых ссылаются на данный
'==============================================================================
Sub ShowReferencedObjInfo(Obj)
        Dim RefObjects, strInfo, RefObj
            
        'Получить ссылку на коллецию контейнеров объекта
        Set RefObjects = ThisObject.ReferencedBy
        
        'Если коллекция пустая, закончить работу
        If RefObjects.Count=0 Then
                MsgBox "Ни один объект системы не ссылается на данный."
                Exit Sub
        End If
        
        'Перечислить все объекты, имеющие атрибуты-ссылки на данный объект
        For Each RefObj In RefObjects
                strInfo = strInfo & "=>" & RefObj.Description & Chr(13)
        Next
        
        'Вывести информацию в окно сообщений
        ThisApplication.AddNotify "Объекты, имеющие атрибуты-ссылки на """ &_
                         Obj.Description & """" & Chr(13) & "(всего : " & RefObjects.Count & ")"
        ThisApplication.AddNotify strInfo
End Sub
'==============================================================================      
© 2023 CSoft Development. Все права защищены.