Страница 2 из 2
Добавлено: Пт июл 28, 2006 10:45
Batya
argo писал(а):проблема оказывается создать кнопку фильтрации. Как на кнопку назначить команду cm_SrcUserSpec с параметрами фильтрации:
*.doc:*.txt или другие типы файлов????
А вот это уже совсем другой вопрос
Это можно только скриптами.
Скрипт *.vbs:
Код: Выделить всё
Dim TCS
Set TCS = CreateObject("TCSCRIPT.Helper")
TCS.SendCommand "cm_SrcUserDef"
TCS.SendKeystroke "*.doc;*.txt"
TCS.SendKeystroke "{ENTER}"
Set TCS = Nothing
Скрипт использует
Script Helper.
Добавлено: Пт июл 28, 2006 10:59
argo
это уже дебри
сын будет заниматься. Ежели что вопросы принимаешь, Батя??
Добавлено: Пт июл 28, 2006 11:13
Batya
argo писал(а): это уже дебри
сын будет заниматься. Ежели что вопросы принимаешь, Батя??
Почему же дебри?
1. Скачай утилиту по ссылке.
2. Запусти ее - регистрация объекта в системе.
3. Сохрани указанный в прошлом посте код в файл с расширением vbs, предварительно указав вместо "*.doc;*.txt" свой фильтр.
4. Повесь это файл на кнопку, как обычный exe-шник.
5. Нажимай кнопку и радуйся жизни
Конечно я вопросы принимаю.
Добавлено: Пт июл 28, 2006 11:49
argo
Пошло!
Не так страшен черт! когда знаешь........
Добавлено: Пт июл 28, 2006 12:27
argo
Дальше поехали...
У скриптов есть параметры типа "выполнение в скрытом режиме"
Без показа окна выполнения?
Добавлено: Пт июл 28, 2006 12:35
StrangeRRor
argo
А чем тебя не устраивает cm_SrcUserDef?
Добавлено: Пт июл 28, 2006 12:46
Maximus
А чем тебя не устраивает cm_SrcUserDef?
Я так думаю, что таким способом можно наделать кучу кнопок для различных фильтров и не париться каждый раз с его выбором, как в случае с cm_SrcUserDef.
Добавлено: Пт июл 28, 2006 12:46
argo
StrangeRRor писал(а):argo
А чем тебя не устраивает cm_SrcUserDef?
Это команда выбора фильтра причем однго, потом опять выбирай другой фильтр.
А я говорил про применение этого фильтра (причем оперативного применения)
Добавлено: Пт июл 28, 2006 13:04
Batya
argo писал(а):Дальше поехали...
У скриптов есть параметры типа "выполнение в скрытом режиме"
Без показа окна выполнения?
К сожалению, этого пока нет
Volniy, автор Script Helper, обещал попробовать что-нибудь придумать, чтобы не показывать дочерние окна, но пока, видимо, не пошло
Как вариант, можно попробовать поиграться со временем задержки между действиями:
Код: Выделить всё
Dim TCS
Set TCS = CreateObject("TCSCRIPT.Helper")
TCS.Pause = 0
TCS.SendCommand "cm_SrcUserDef"
TCS.SendKeystroke "*.doc;*.txt"
TCS.SendKeystroke "{ENTER}"
Set TCS = Nothing
Добавлено: Пт июл 28, 2006 13:12
argo
Спасибо мужики!"
В принципе, мне и этого с головой хватает!
Добавлено: Чт апр 14, 2011 12:16
Artee
По прошествии 5 лет возможность включить одновременно 2 и более панели инструментов так и не появилась?
Так неудобно переключать их...
Добавлено: Чт апр 14, 2011 12:24
Avada
Artee
Даже с появлением у кнопок функциональности выпадающих меню и поддержки многострочных панелей с переносом в произвольном месте?
Что конкретно в существующем функционале не так и что конкретно необходимо?
Добавлено: Чт апр 14, 2011 14:25
Artee
Avada писал(а):Даже с появлением у кнопок функциональности выпадающих меню и поддержки многострочных панелей с переносом в произвольном месте?
Даже не имел представления о таких возможностях, прийдётся обновлять свой древний Тотал. Всё описаное нашёл поиском, спасибо за наводящий вопрос.
Avada писал(а):Что конкретно в существующем функционале не так и что конкретно необходимо?
Теперь всё отлично!
Добавлено: Чт апр 14, 2011 14:42
MVV
Avada
Читаю название темы, думаю, в тотале испокон веков 2 панели... Открываю - про панели инструментов. Странно, что тему за столько лет не переименовали в "Две панели инструментов"...
Добавлено: Чт апр 14, 2011 15:05
Avada
MVV
Так тема всплыла только в результате поднятия, про неё с 2006 года уже забыть успели... Исправил, конечно.