Форум программистов, компьютерный форум, киберфорум
coderxx
Войти
Регистрация
Восстановить пароль
Рейтинг: 5.00. Голосов: 3.

VB Style Code - надстройка для VB и VBA:

Запись от coderxx размещена 18.03.2012 в 15:21
Обновил(-а) coderxx 19.03.2012 в 16:18

Мой add-in для VB и VBA:
VB Style Code

Возможности:
  • Авто-форматирование строк кода в зависимости от операторов;
  • Авто-вставка недостающих конечных конструкторов.
  • Скроллинг с помощью мышиного колеса.
  • Авто-вставка Then для конструкции If-ElseIf в случаи его отсутствия;
  • Авто-вставка знака комментария;
  • Авто-вставка шаблона текста при добавлении функции/процедуры;
  • Авто-текст;
  • Авто-замена инкрементные (++) и декрементные (--) операции;
  • Авто-замена составное присваивание (+=, -=, *=, /=, \=, &=);
  • Авто-замена инициализации переменных с объявлением;
  • Нумерация строк кода;
  • Объявление функций, типов и констант (через #include);
  • Настройка обработчиков ошибок;
  • Подсветка синтаксиса;
  • Выбор стиля интерфейса;
  • Выбор языка интерфейса;
  • MDI-вкладки;
  • Быстрый переход к функциям и процедурам;
  • Архивация проекта;
Горячие клавиши:
  • Ctrl + Alt + Tab - Форматировать выделенный фрагмент кода;
  • Ctrl + S - Сохранение модулей в режиме отладки;
  • Ctrl + B - Возврат отменённых изменений по коду;
  • Ctrl + ' - Добавить знак комментария;
  • Ctrl + Shift + ' - Удалить знак комментария;
  • F6 - Установка / удаление закладки;
  • Shift + F6 - Переход между закладками;
  • F11 - Вызов окна перехода к функциям и процедурам;

Файл: VBStyleCode.rar

Файл: Languages.rar
Для установки языков интерфейса нужно распаковать архив в путь, который находится сам установочный файл.

Файл: Include.rar
Примерные варианты include файлов.

Применение #include
Объявление функций, типов и констант с помощью #include тоже было уже, но этот вариант в различии с другими поддерживает автоматическую объявлению тоже.

Директиву #include можно использовать по разному:

Visual Basic
1
2
3
4
5
6
7
' _
#Include <registry.bas> _
#Include In <win32api.txt>
 
'#Include Full <mapi32.txt>
'#Include File <showdirs.bas>
'#Include Related "readme.txt"
По первому варианту добавляется модуль под названием registry и объявлении будет добавлятся к нему;
По второму варианту объявлении добавляется к текущему модулю;
По третьему варианту mapi32 полностью копируются к новому модулю;
По четвертому варианту файл showdirs.bas подключается на проект;
По пятому варианту файл подключается как рекомендуемый.

Последние две варианты не работает на VBA.

Теперь если директиву #Include или #Region - #End Region будете ввести без знака комментария аддин сам добавляет их автоматом.

Для проверки подключайте registry.bas через #Include <registry.bas> и попробуйте ввести getstring и пробел, у вас сразу появляется подсказка о функции и возможные варианты первого аргумента.

И ещё, при запуске VB память очищалось, аддин эту проблему тоже решает.

И ещё если путь указывается с кавычками значить аддин ищет его с двух мест:
1. В каталоге самого проекта.
2. В каталоге Мои проекты (его можно настроить).

Подпапки тоже можно включить с помощью слэш (\). Например:

Visual Basic
1
2
'#Include <files\showdirs.bas>
'#Include "VBStyleCode\modRegistry.bas"
Вложения
Тип файла: rar VBStyleCode.rar (311.2 Кб, 1287 просмотров)
Тип файла: rar Languages.rar (471.7 Кб, 928 просмотров)
Тип файла: rar Include.rar (129.6 Кб, 861 просмотров)
Размещено в Без категории
Показов 35011 Комментарии 54
Всего комментариев 54
Комментарии
  1. Старый комментарий
    Lavad, Добрый вечер!

    Цитата:
    Кото-орый год, время от времени, пишу программки в портативном Visual Basic 6. Ваш аддон можно прикрутить к нему?
    Если вы про надстройку Macro Tools VBA - то она только для VBA под Excel
    Но кое что можно взять с небольшими переделками
    Запись от art1289 размещена 19.09.2019 в 17:24 art1289 вне форума
  2. Старый комментарий
    Аватар для coderxx

    Macro Tools VBA

    Цитата:
    Сообщение от art1289 Просмотреть комментарий
    Добрый День!

    Мой вариант надстройки, подходит только для VBA Excel

    ____________________________________________________________ ______
    Надстройка: Macro Tools VBA – инструменты разработки макросов VBATools
    Хороший аддин, только у меня не работает Кнопки Риббона. Говорит: Не удается выполнить макрос "VBAbtn". Возможно, этот макрос отсутствует в текущей книге либо все макросы отключены. В настройках макросы включены. Внутри IDE кнопки работает.
    Запись от coderxx размещена 19.09.2019 в 22:38 coderxx вне форума
  3. Старый комментарий
    Аватар для Lavad
    Цитата:
    Сообщение от art1289 Просмотреть комментарий
    Если вы про надстройку Macro Tools VBA - то она только для VBA под Excel...
    Вообще-то, я спрашивал о VB6... При чем тут VBA, от которого я шарахаюсь, как от огня?
    Запись от Lavad размещена 19.09.2019 в 23:21 Lavad вне форума
  4. Старый комментарий
    Добрый день!, coderxx

    Цитата:
    Не удается выполнить макрос "VBAbtn". Возможно, этот макрос отсутствует в текущей книге либо все макросы отключены
    Очень странно оно должно тогда все не работать

    попробуйте поставить вот такие настройки

    Файл -> Параметры -> Центр управления безопасностью -> Параметры центра управления безопасностью -> Параметры макросов

    И включите два пункта Включить все макросы и Доверять доступ к объектной модели проектов VBA


    Еще при открытии файла бывает сверху желтая полоса включить содержимое -> нужно нажать включить

    P.S.

    Пароль к модулю VBA надстройки -> 1

    Отпишитесь получилось ? у меня этот же файл все работает
    Запись от art1289 размещена 20.09.2019 в 06:35 art1289 вне форума
  5. Старый комментарий
    Так же спасибо за код "Tabbed-MDI" )
    В планах приделать потом его к этой надстройке
    Запись от art1289 размещена 20.09.2019 в 06:40 art1289 вне форума
  6. Старый комментарий
    Аватар для coderxx
    Цитата:
    Сообщение от art1289 Просмотреть комментарий
    Добрый день!, coderxx
    Отпишитесь получилось ? у меня этот же файл все работает
    На другом компьютере заработала.
    Только при нажатии кнопки "Очистить окно [Immediate]" появляется ошибка. Это из за того что клавиатура выбран другой, чем английский и других.

    Здесь можно исправить CLng на Val, тогда при встрече букв и других символов в KeybLayoutName ошибок не выскочить.
    Visual Basic
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    
    Public Sub ClearImmediateWindow()
    196:    Dim KeybLayoutName As String
    197:    KeybLayoutName = String(8, "0")
    198:    GetKeyboardLayoutName KeybLayoutName
    199:    KeybLayoutName = val(KeybLayoutName) 'CLng поменял на Val
    200:
    201:    Select Case val(KeybLayoutName) 'CLng поменял на Val
            Case LANG_ENGLISH
    203:            Call ClearImmediateWindowFunction
    204:        Case LANG_RUSSIAN
    205:            ' Переключение на английскую раскладку
    206:            Call LoadKeyboardLayout("00000409", &H1)
    207:            Call ClearImmediateWindowFunction
    208:            Call LoadKeyboardLayout("00000419", &H1)
    209:        Case Else
    210:            Call MsgBox("Переключите раскладку клавиатуры на Английскую!", vbInformation, "Переключение раскладки клавиатуры")
    211:    End Select
    212: End Sub
    Запись от coderxx размещена 21.09.2019 в 12:01 coderxx вне форума
  7. Старый комментарий
    coderxx, спасибо!, за исправление ошибки, поправлю!

    Я как то не думал что надстройка будет использоваться в других странах))

    надстройку поправлю

    у Вас какой язык вернее код языка добавлю его что бы работало ?
    Запись от art1289 размещена 21.09.2019 в 14:49 art1289 вне форума
  8. Старый комментарий
    Аватар для coderxx
    Цитата:
    Сообщение от art1289 Просмотреть комментарий
    coderxx, спасибо!, за исправление ошибки, поправлю!

    Я как то не думал что надстройка будет использоваться в других странах))

    надстройку поправлю

    у Вас какой язык вернее код языка добавлю его что бы работало ?
    У меня узбекский язык.
    Запись от coderxx размещена 21.09.2019 в 15:04 coderxx вне форума
  9. Старый комментарий
    Аватар для coderxx
    Проблема регистрации, оказывается в связках:
    VBA6.dll
    msvbvm60.dll
    VB6.OLB
    stdole2.tlb
    MSADDNDR.TLB
    VB6EXT.OLB

    Когда установил Visual Basic 6 на компьютер регистрация прошла успешна.
    Запись от coderxx размещена 05.04.2020 в 07:30 coderxx вне форума
  10. Старый комментарий
    Не работает толком:
    Windows 8.1 х64, Office 2019 x32, Microsoft Visual Basic for Applications 7.1
    Как устанавливал:
    1)как советовал barinrec на 2 стр - "Ок, посоны, кому хочется завести надстройку на win10 и в office 2016: прежде накатите office 2010 (достаточно из общих средств офис - visual basic для приложений), например. Библы и dll-ки от vb6 осядут в системе. Затем VBStyleCodeForVBA.dll и VBStyleCodeForVBA.dll в рукопашку регаются через regsvr32."
    те установил компонент visual basic для приложений от Office 10, инсталлировал InstallVBStyleCode.exe,в каталог программы скопировал Languages и Languages.ini, зарегил VBStyleCodeForVBA.dll и VBStyleCodeForVBA.dll через CMD админ.
    2)Открываю Разработчик - Visual Basic - сразу вываливается ошибка "Path/File Acces error в строке 470"
    В Add-Ins появляются настройки VBStyleCode - но при запуске настроек появляется ошибка Path/File Acces error - нажимаю ОК - в настройки захожу - при изменении настроек сыпятся ошибки Path/File Acces error
    3)Панель видна но толком не работает: нумерация, поправление кода и пр не работает

    Как это поправить?
    Запись от svin8888 размещена 27.08.2021 в 15:21 svin8888 вне форума
  11. Старый комментарий
    Добрый день!
    аналог такой же надстройки
    https://vbatools.ru/macro-tools-vba-addin-excel/
    Запись от art1289 размещена 29.08.2021 в 16:47 art1289 вне форума
  12. Старый комментарий
    Добрый день!
    аналог такой же надстройки
    https://vbatools.ru/macro-tools-vba-addin-excel/
    Запись от art1289 размещена 29.08.2021 в 16:47 art1289 вне форума
  13. Старый комментарий
    Аватар для coderxx
    Цитата:
    Сообщение от svin8888 Просмотреть комментарий
    Не работает толком:
    Windows 8.1 х64, Office 2019 x32, Microsoft Visual Basic for Applications 7.1
    Как устанавливал:
    1)как советовал barinrec на 2 стр - "Ок, посоны, кому хочется завести надстройку на win10 и в office 2016: прежде накатите office 2010 (достаточно из общих средств офис - visual basic для приложений), например. Библы и dll-ки от vb6 осядут в системе. Затем VBStyleCodeForVBA.dll и VBStyleCodeForVBA.dll в рукопашку регаются через regsvr32."
    те установил компонент visual basic для приложений от Office 10, инсталлировал InstallVBStyleCode.exe,в каталог программы скопировал Languages и Languages.ini, зарегил VBStyleCodeForVBA.dll и VBStyleCodeForVBA.dll через CMD админ.
    2)Открываю Разработчик - Visual Basic - сразу вываливается ошибка "Path/File Acces error в строке 470"
    В Add-Ins появляются настройки VBStyleCode - но при запуске настроек появляется ошибка Path/File Acces error - нажимаю ОК - в настройки захожу - при изменении настроек сыпятся ошибки Path/File Acces error
    3)Панель видна но толком не работает: нумерация, поправление кода и пр не работает

    Как это поправить?
    В первый раз VBA нужно запускать с администраторскими правами.
    Запись от coderxx размещена 14.10.2021 в 17:00 coderxx вне форума
  14. Старый комментарий
    Аватар для I can
    coderxx, хорошая надстройка, живучая.
    Запись от I can размещена 14.10.2021 в 23:12 I can вне форума
    Обновил(-а) coderxx 15.10.2021 в 04:34
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.