Скрипт написан на языке AutoHotKey. Прилагаю и его компиляцию в EXE-программу, работающую самостоятельно. (А для изменения и подстроек скрипта нужно установить AutoHotKey.)
Темп работы! Его всегда можно сделать ещё стремительнее, убрав все лишние движения.
Например, не печатать целиком:
- Код: Выделить всё
Select Case InputBox("Запрос")
...
End Select
Здесь кодовые слова заняли 30 нажатий на клавиши.
А можно за 7:
- Код: Выделить всё
sc ib("Запрос")
es
Это аббревиатуры: "sc" - это Select Case, и т.д. А скрипт на ходу отлавливает эти сокращения и заменяет на нормальные слова, как в первом примере.
Тот же эффект возникает, если набрать так:
- Код: Выделить всё
ыс шт("Запрос")
уы
Это те же клавиши в русской раскладке. Для себя я это сделал потому, что максимально использую кириллицу в коде для более близкого интуитивного понимания; при этом пишу программы, почти не переключая раскладки, всегда на русской.
Такая система сокращенного набора актуальна именно для Visual Basic, т.к. он многословен. Многословность удобна для визуального восприятия, но несколько накладна для набора, особенно когда приходится много раз в запаре поиска истины всё стирать и набирать новый код.
Скрипт позволяет сократить время набора в несколько раз: только подумал - уже напечаталось.
Кроме того, в моём скрипте добавлены следующие удобства сугубо для среды VB6:
1) Когда мышь на правом краю экрана, появляется столбик выбора модуля. (Он должен быть прикреплён справа.) Когда мышь уходит из этой зоны - окошко выбора модуля исчезает (если нет ещё окошка свойств, конечно), и виден весь текст программы.
2) Клик средней кнопкой мыши (колесом) по слову - открывается его определение (переход в эту процедуру и т.д.); клик по модулю в окошке проекта - открывается модуль в режиме "Код" и скрывается окошко проекта.
3) Ctrl+Enter вставляет такой текст: " VbCrLf & ", удобно вставлять несколько абзацев в MsgBox и т.п. Если же курсор в окне поиска/замены, туда насильно вставляется именно символ абзаца.
4) Ctrl + верхние цифры на клавиатуре вставляют значки, соответствующие этим цифрам в английской раскладке, чтобы не переключать лишний раз язык.
5) Ctrl+G не только показывает окно Immediate, но и скрывает его;
F4 не только открывает окно свойств, но открывает вместе с ним инструменты для формы и переходит в режим правки формы, а при повторном нажатии, напротив, скрывает все окошки (включая окно проекта).
6) Alt+F3 - поиск незакомментированного текста (и Alt+Shift+F3 - обратно). Удобно, когда много совпадений и часть из них не в работе.
7) Ctrl + вращение колеса мыши меняет масштаб кода. (Реализовано через изменение размера шрифта в настройках среды. Работает только при применении REG-файла настроек VB6 из архива в приложении.)
Shift + вращение колеса мыши - горизонтальная прокрутка (на случай длинных строк в коде).
8 ) клавишные мелочи: F1 - определение переменной; F2 возвращает курсор в место предыдущей правки, а Shift+F2 - обратно...
Можно добавлять свои горячие клавиши, там всё просто.
Кроме того (безотносительно к скрипту), за годы сложились настройки среды VB6, удобные для глаз и для работы (панель инструментов в строке меню, чёткий шрифт и т.д., см. картинку). Для желающих прилагаю файл REG с настройками VB6. Если запустить этот REG-файл и перезапустить среду VB6, настройки должны примениться: