Flasher
|
Posted: Mon Apr 06, 2020 15:04 Post subject: |
|
|
Viktor
Из всех рассмотренных мной вариантов самый симпатичный следующий:
Code: | '======================== VBS ========================
' Установить курсор на объекте в пассивной панели
' с именем объекта под курсором в активной панели
'
' Условия: 1) необходим компонент TCScript.dll
' 2) необходима команда em_selectfilesb, где
' selectfilesb в первом поле, а %A во втором
'=====================================================
With CreateObject("TCScript.Helper")
.Pause = 0 : .Wait = True : .LockTC 1
IsSelected = .GetInfo(1007 - .GetInfo(1000))
Name = .GetInfo("SN") : .SendCommand 4006, 1
If Name = ".." Then
If .GetInfo(1009) + .GetInfo(1010) = 2 Then .SendKeyStroke "{HOME}"
Else If IsSelected Then C = .GetTextFromClip : .SendCommand 2017, 1
.SendCommand 524, 1 : .UserCmd "em_selectfilesb """ & Name & """"
.SendCommand 2049, 1 : .SendCommand 2053, 1 : .SendCommand 524, 1
If IsSelected Then .SendCommand 2033, 1 : .SetTextToClip C
End If
.SendCommand 4006, 1 : .LockTC 0
End With | Помимо запрошеных пунктов здесь сохраняется выделение и не видно лишних мельтешений в панелях. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Thu Apr 09, 2020 13:09; edited 5 times in total |
|