Вовзращает текущий путь в Дереве обьектов TDMS в виде массива обьектов.
| Visual Basic |
|---|
Public Function GetActiveTreePath() As Variant |
| VB Script (Visual Basic) | Скопировать код |
|---|---|
'Возвращает полный путь к выделенному элементу дерева, в виде массива. 'В том числе, сквозь выборку. Поддерживаются всё системные типы. '---------------------------------------------------- varArray = ThisApplication.Shell.GetActiveTreePath iCount = Ubound(varArray) For i = 0 To iCount Set Object = varArray(i) If Not Object Is Nothing Then MsgBox Object.Description End If next | |