Properties(Index As Variant) As IProp

Properties(Index As Variant) As IProp ( PropertyGet )

Получить свойство по индексу или по имени

Синтаксис:

objectvariable.Properties( Index )

objectvariable - IPModule

Index - индекс или наименование свойства

Возвращает: указатель на Prop

Пример на VB:

Dim TCS As CSDN.TCS
Dim App As CSDN.Tcs_Application
Sub Test()
    Call Login
    
    Dim Spr As CSDN.Parameters
    Set Spr = App.Parameters
    
    rw = 1
    For I = 1 To Spr.PropertiesCount
        Cells(rw, I).Value = Spr.Properties(I - 1).Caption
    Next
    
    rw = rw + 2
    Spr.First
    Do While Not Spr.EOF
        For I = 1 To Spr.PropertiesCount
            Cells(rw, I).Value = Spr.Properties(I - 1).DisplayText
        Next
        Spr.Next
        rw = rw + 1
    Loop
    
    Set Spr = Nothing
    
End Sub
Sub Login()
    
    If TCS Is Nothing Then Set TCS = CreateObject("CSDN.TCS")
    
    If App Is Nothing Then Set App = TCS.Login 
    
End Sub