'===========================================================
' Демонстрация использования метода GetInfo вспомогательного
' для ТС компонента "Script Helper ActiveX for TC by Volniy"
'===========================================================
Set TCHelper = CreateObject("TCScript.Helper")
TCHelper.Pause = 0 : T = vbTab : C = vbCr
For Each N in Split("LP LC LI LN RP RC RI RN SP SC SI SN TP TC TI TN")
Select Case(Mid(N, 2))
Case "P" T1 = "Путь"
Case "C" T1 = "Число объектов"
Case "I" T1 = "№ объекта под курсором"
Case "N" T1 = "Имя объекта под курсором"
End Select
Select Case(Left(N,1))
Case "S" T2 = "активной" : Case "R" T2 = "правой"
Case "T" T2 = "пассивной" : Case "L" T2 = "левой"
End Select : Execute N & "= T1 & "" "" & T2 & """ &_
" панели:"" & T & TCHelper.GetInfo(CStr(N)) & vbCr"
Next: If TCHelper.GetInfo("A") = "L" Then A = "левая" Else A = "правая"
MsgBox T & T & "Активная панель:" & T & T & A & C & C & T & SC & T &_
TC & T & LC & T & RC &T & C & SI & TI & LI & RI & C & SN & TN & LN &_
RN & C & SP & TP & LP & RP,, Space(18) & "Данные WM_CopyData для TC" |