Форум на Исходниках.RU

VBStyleCode

9rey — Thu, 24 Jul 2025 18:44:57 +0000

9rey: coder, автор, доброго здоровья вам. Вы еще поддерживаете свою надстройку?

Периодически ее использую уже больше 10 лет, очень выручает, когда надо что-то автоматизировать на VBA в офисных приложениях. Автор, от души спасибо!
Но вот все-таки решил написать о досадном глюке.

Периодически (не каждый раз, но часто) зависает или вылетает приложение (эксель, ворд) при закрытии MDI-вкладки через контекстное меню по правой клавише мыши.
Особенно часто после "закрыть все кроме текущей".

Еще странное поведение надстройки заметил через ProcessMonitor.
Надстройка ломится в реестр по адресу HKCU\SOFTWARE\Microsoft\VBA\7.0\Common\TabWidth
несколько раз в секунду (причем такого ключа - TabWidth даже и не существует). При отключении надстройки, эти запросы прекращаются.

Я понимаю, что прошло уже много времени и автор наверное не ответит. Но все-таки VBStyleCode стал поистине народным!
Еще раз спасибо автору.

А если ответит, то может даже выложит исходники по прошествии стольких лет? ;)

VBStyleCode

coder — Thu, 04 Jun 2020 16:56:32 +0000

coder:

Цитата mojjevelov @ 02.05.20, 18:42

Огромнейшая благодарность ВОЛШЕБНИКУ, создавшему это чудо! Особенно радуют вкладки! Очень удобно стало работать в редакторе!

Можете попробовать и эту аддин:
https://github.com/VykosX/ModernVB

Ещё удобнее будет работать.

Цитата mojjevelov @ 02.05.20, 18:42

Автозаполнение конструкций чаще приносит удобство (хотя, наверное, неплохо было бы ставить абзац БЕЗ автозаполнения по Ctrl+Enter).

Аддин сам поставить абзац в двух случаях:
1) При нажатии Enter
2) Автоматом (если включен автомат)

Цитата mojjevelov @ 02.05.20, 18:42

Единственное - когда этот аддин активен, во время отладки при наведении на переменные их значения выплывают ну очень долго. Но можно на время отладки просто выключать аддин.

Я не могу отследить такое. У меня сразу появляется значения переменных, при наведении курсора.

VBStyleCode

mojjevelov — Sat, 02 May 2020 18:42:20 +0000

mojjevelov: Огромнейшая благодарность ВОЛШЕБНИКУ, создавшему это чудо! Особенно радуют вкладки! Очень удобно стало работать в редакторе!
Автозаполнение конструкций чаще приносит удобство (хотя, наверное, неплохо было бы ставить абзац БЕЗ автозаполнения по Ctrl+Enter).
Единственное - когда этот аддин активен, во время отладки при наведении на переменные их значения выплывают ну очень долго. Но можно на время отладки просто выключать аддин.

VBStyleCode

coder — Tue, 05 Feb 2013 18:07:25 +0000

coder:

Цитата Bubaylo @ 05.02.13, 05:07

Насчет форматировать весь текст, его очень много и не одним файлом... Может можно как-то сделать, чтоб весь проект сам форматнулся?

На данной версии есть только весь модуль, но весь проект ещё не реализовалось.

VBStyleCode

Bubaylo — Tue, 05 Feb 2013 05:07:25 +0000

Bubaylo: coder
Да, спасибо, уже отключил=)
Насчет форматировать весь текст, его очень много и не одним файлом... Может можно как-то сделать, чтоб весь проект сам форматнулся?

VBStyleCode

coder — Mon, 04 Feb 2013 18:14:58 +0000

coder:

Цитата mamonoff @ 03.02.13, 17:07

А нельзя ли реализовать механизм самостоятельной настройки где будут какие отступы, по крайней мере для основных конструкцийтак же по поводу блока open... close

Можно.

Цитата Bubaylo @ 04.02.13, 05:48

Нашел глюк. Когда начинаешь мышкой выделять код, происходит авто-отступы

Или отключить автоматику, или с начала нужно форматировать вес текст.

Цитата Bubaylo @ 04.02.13, 05:48

и появляется вот такая шляпа... см. файл.Прикреплённый файл: Gluk.JPG (50,37 Кбайт, скачиваний: 6)

Попробовать отключить Подсветка синтаксиса, можеть память не хватает.

Цитата mamonoff @ 04.02.13, 10:02

При описании своего типаPublic Typeвесь нижеследующий код сдвигается на один шаг в право, все процедуры, функции, всё

У меня после Enterʼa автоматом добавился End Type и в низу ничего не сдвигалось. Вообще-то, могу жестко ограничивать отступы для самых процедур.

Цитата Bubaylo @ 04.02.13, 10:09

Я за сегодня уже раза 3-4 перезагружал среду... Что-то там такое происходит, что-то с Handle-ми... Создается такое впечатление, что иногда срабатывает SetParent и какие-то хенделы не правильные передаются.... такой расколбас на экране происходит...

В моем программе функция SetParent нигде не используется. Попробуйте отключить подсветку ...

VBStyleCode

Bubaylo — Mon, 04 Feb 2013 10:09:28 +0000

Bubaylo: Я за сегодня уже раза 3-4 перезагружал среду... Что-то там такое происходит, что-то с Handle-ми... Создается такое впечатление, что иногда срабатывает SetParent и какие-то хенделы не правильные передаются.... такой расколбас на экране происходит...

VBStyleCode

mamonoff — Mon, 04 Feb 2013 10:02:36 +0000

mamonoff: При описании своего типа
Public Type
весь нижеследующий код сдвигается на один шаг в право, все процедуры, функции, всё

VBStyleCode

Bubaylo — Mon, 04 Feb 2013 05:48:49 +0000

Bubaylo: Нашел глюк. Когда начинаешь мышкой выделять код, происходит авто-отступы, и появляется вот такая шляпа... см. файл. Gluk.JPG (, : 1040)

VBStyleCode

mamonoff — Sun, 03 Feb 2013 17:07:52 +0000

mamonoff: А нельзя ли реализовать механизм самостоятельной настройки где будут какие отступы, по крайней мере для основных конструкций
так же по поводу блока open... close

VBStyleCode

coder — Sun, 03 Feb 2013 14:51:08 +0000

coder:

Цитата Memfivosfey @ 31.01.13, 22:33

З.Ы. Незнаю, будет ли Вам интересно, будет ли возможность и желание, доработать ваш проект, но мне всё время не хватало в среде Vb6 ещё одной возможности, которая присутствует к примеру в среде VB.Net. Возможность, сворачивать и разворачивать процедуры [+]/[-]. Во время навигации по коду. На мой взгляд очень удобная функция.

Да, это осуществима.

Цитата mamonoff @ 02.02.13, 07:13

Вещь хорошая но есть один глюк При открытии проекта, текущая форма или модуль, т.е. активное дочернее окно в проектеневозможно переместить за заголовок или развернуть на всю рабочую областьЕсли кликнуть по другом окну, то эта проблема исчезает.

Да, это проблема есть, исправляем.

Цитата mamonoff @ 02.02.13, 07:13

И если Вам интересно мое мнение то думаю что строки:- On Error...- Dim...лучше смотрятся без отступа, по крайней мере когда находятся в начале процедуры

Мое мнение: они должны быть с отступом, тогда смотриться красивее.

VBStyleCode

mamonoff — Sat, 02 Feb 2013 07:13:37 +0000

mamonoff: Вещь хорошая но есть один глюк :no:

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

Если кликнуть по другом окну, то эта проблема исчезает.

И если Вам интересно мое мнение то думаю что строки:
- On Error...
- Dim...
лучше смотрятся без отступа, по крайней мере когда находятся в начале процедуры

VBStyleCode

Bubaylo — Fri, 01 Feb 2013 07:27:33 +0000

Bubaylo: Это просто нечто!!!!! Супер! Спасибо!!!! Всегда мучил вопрос,от чего разработчики среды тоже самое не сделали? С другой стороны, они дали возможность делать что угодно самому... Супер просто!

VBStyleCode

Memfivosfey — Thu, 31 Jan 2013 22:33:31 +0000

Memfivosfey: Великолепный АДДИН! Очень много функций, которых действительно так не хватало в среде VB6. Спасибо.

З.Ы. Незнаю, будет ли Вам интересно, будет ли возможность и желание, доработать ваш проект, но мне всё время не хватало в среде Vb6 ещё одной возможности, которая присутствует к примеру в среде VB.Net. Возможность, сворачивать и разворачивать процедуры [+]/[-]. Во время навигации по коду. На мой взгляд очень удобная функция.

Ещё раз благодарю Вас, за хороший Аддин.)))

VBStyleCode

coder — Tue, 06 Mar 2012 17:07:53 +0000

coder:

Цитата Сергей85 @ 05.03.12, 17:26

Coder, прошу вас удалять предыдущие варианты ссылок на ваш адд-ин.

Их могут удалить только модераторы

VBStyleCode

Сергей85 — Mon, 05 Mar 2012 17:26:07 +0000

Сергей85: Coder, прошу вас удалять предыдущие варианты ссылок на ваш адд-ин.

Пример. Я на эту тему не заходил давно. У меня в текстовом док-те лежит ссылка (и она работает):
http://forum.sources.ru/index.php?act=Atta...attach_id=14927

Однако, это не последняя версия плагина; и я ошибочно качаю не то, что нужно. В теме-то на текущий момент указана такая ссылка:
http://forum.sources.ru/index.php?act=Atta...attach_id=16231

VBStyleCode

coder — Sat, 18 Feb 2012 16:33:41 +0000

coder: Версия: 2.0.502
- Тепер в среде VBA тоже можно выбрать стиль интерфейса.

VBStyleCode

coder — Mon, 13 Feb 2012 21:21:48 +0000

coder:

Цитата Old Bat @ 13.02.12, 10:30

Tipe mismatch

Да, при подключении Надстройку VBStyleCodeForVBA.Connect программа не мог конвертировать Application (Microsoft Excel) на VBInstance (VBE), поэтому вылазили эти ошибки (Object variable or With block variable not set - при этом моя переменная VBInstance остался не инициализированным).

Исправил, спасибо за пост.

VBStyleCode

Old Bat — Mon, 13 Feb 2012 10:30:00 +0000

Old Bat: версия 2.0.57
excel2010, пустая книга

при попытке сортировки/фильтрации данных, либо при попытке вставить формулу получаем однократные сообщения: Tipe mismatch с последующим
Object variable or With block variable not set в строке 490

VBStyleCode

coder — Sun, 12 Feb 2012 14:09:06 +0000

coder:

Цитата Diamock @ 12.02.12, 04:10

А если бы его можно было сделать ещё и Docing (как опцию) - вообще шикарно!

Я думаю что, для Docking'a его нужно сделать ещё деревовидным, как на CodeSmart'е. Так эти две формы можно разделять на две функции.

Обновил архив.

VBStyleCode

coder — Sun, 12 Feb 2012 04:43:10 +0000

coder:

Цитата Diamock @ 12.02.12, 04:10

Когда ставиш закрывающуюся скобку и нажимаешь Enter, выскакивает MsgBox. Так и должно быть? Не очень удобно.

Я при проверке поставлю msgbox'ы, почему то там остался, сейчас уберу.

VBStyleCode

Diamock — Sun, 12 Feb 2012 04:10:04 +0000

Diamock:
Когда ставиш закрывающуюся скобку и нажимаешь Enter, выскакивает MsgBox. Так и должно быть? Не очень удобно.
Очень большое спасибо за навигацию по процедурам. Есть одно пожелание: у меня есть "дурацкая" привычка описывать функцию в Tools=>Procedure Attributes... Хочется при выделении функции в ListBox видеть её атрибуты и список сделать пошире. Примерно так:

И что бы окно было не модальным и было всегда поверх всех окон проекта. А если бы его можно было сделать ещё и Docing (как опцию) - вообще шикарно!

VBStyleCode

coder — Sun, 12 Feb 2012 03:24:44 +0000

coder:

Цитата Diamock @ 12.02.12, 02:37

Вариант кода назначения своей иконки. Код не мой, где-то, когда-то нарыл в сети...

Я именно так и делаю, для всех своих кнопок, это не проблема.

Проблема в том, что этих кнопок я сам не буду добавить, оно добавляется сторонним аддином. Вовремя коннекта он ещё не будет добавлен (Commandbar тоже не будет добавляется).

Я могу проследить его добавление, но этот Add-in откуда берет иконки, я этого незнаю. Например для API Viewer он сам вставит иконку, я сейчас ищу пути, который заставить VB 6 Add-in Toolbar добавить мою иконку своей функционалом.

VBStyleCode

Diamock — Sun, 12 Feb 2012 02:37:15 +0000

Diamock: Привет coder!

Цитата coder @ 11.02.12, 19:24

Цитата Diamock @ 09.02.12, 16:11

Вместо стандартной иконки - хочется свою.

Ещё не мог найти решение.

Остальные были учтены на новом версии (2.0.467).

Вариант кода назначения своей иконки. Код не мой, где-то, когда-то нарыл в сети...

Создайте вспомогательную форму, расположите на ней нужное число элементов управления Image. В каждый элемент поместите иконку в виде растрового изображения 16х16. Кстати, сами иконки можно создавать с помощью того же встроенного редактора окна Customize например пакета Word, копируя их через буфер обмена.

Далее, требуется написать следующий код в метод AddToAddInCommandBar класса Connect:

Dim cbMenuCommandBar As Office.CommandBarButton

Dim cbMenu As Object

Set cbMenu = VBInstance.CommandBars("Add-Ins")

If Not cbMenu Is Nothing Then ' меню существует

' добавляем его к панели инструментов

Set cbMenuCommandBar = cbMenu.Controls.Add(1)

cbMenuCommandBar.Caption = "Наш Add-In"

' копируем изображение через буфер обмена

Clipboard.Clear

Clipboard.SetData = frmAddIns.ImgMenuPic.Picture

bMenuCommandBar.PasteFace

Set AddToAddInCommandBar = cbMenuCommandBar

End If

К сожалению :( , этот метод для VBA не работает, поскольку объект Clipboard имеется только в VB.

С уважением...

VBStyleCode

coder — Sat, 11 Feb 2012 19:24:13 +0000

coder:

Цитата Diamock @ 09.02.12, 16:11

Вместо стандартной иконки - хочется свою.

Ещё не мог найти решение.

Остальные были учтены на новом версии (2.0.467).

VBStyleCode

Diamock — Thu, 09 Feb 2012 16:11:16 +0000

Diamock: Привет coder!
Вот изображение панели Add-In Toolbar

Вместо стандартной иконки - хочется свою.

При написании собственной процедуры получаются следующие глюки:
пишем процедуру, ставим знак переноса процедуры на следующую строку, нажимаем Enter... Опа
текст процедуры подсвечен красным, но ошибки нет. Курсор в начале строки, а должен быть на два отступа. Делаем два отступа
подсветка снова в порядке. Закрываем скобку, нажимаем Enter...
происходит дублирование.

О справочном файле

Пропиши свойства WhatsThisHelpID для элементов управления. Справка по ссылке обновилась.

С уважением...

VBStyleCode

coder — Tue, 07 Feb 2012 04:05:37 +0000

coder:

Цитата Бяка @ 06.02.12, 20:42

при х=5 у=0 подсветка нормально работает

Например у меня на Spy++ по координатам Client rect, левый отступ является 4:
Spy__.PNG (, : 780)

VBStyleCode

coder — Tue, 07 Feb 2012 03:19:42 +0000

coder: Все строки с default значением True:

20 AutoIndent = CBool(GetString(HKEY_CURRENT_USER, RegPath, "AutoIndent", True))

Где можеть появится ошибка?
Больше экспериментов не хочу, можеть быть с объявлениями Variant, можеть быть и на другом.

Скрытый текст

Public Const REG_SZ = 1 ' Unicode nul terminated string

Public Const REG_BINARY = 3 ' Free form binary

Public Const REG_DWORD = 4 ' Free form binary

Public Enum hiveKey

HKEY_CLASSES_ROOT = &H80000000 '(Windows 95,98,ME,NT,2000,XP)

HKEY_CURRENT_USER = &H80000001 '(Windows 95,98,ME,NT,2000,XP)

HKEY_LOCAL_MACHINE = &H80000002 '(Windows 95,98,ME,NT,2000,XP)

HKEY_USERS = &H80000003 '(Windows 95,98,ME,NT,2000,XP)

HKEY_PERFORMANCE_DATA = &H80000004 '(Windows 95,98,ME,NT,2000)

HKEY_CURRENT_CONFIG = &H80000005 '(Windows 95,98,ME,NT,2000,XP)

HKEY_DYN_DATA = &H80000006 '(Windows 95,98,ME,NT,2000)

End Enum

Const REG_OPTION_BACKUP_RESTORE = 4 ' open for backup or restore

Const REG_OPTION_VOLATILE = 1 ' Key is not preserved when system is rebooted

Const REG_OPTION_NON_VOLATILE = 0 ' Key is preserved when system is rebooted

Const STANDARD_RIGHTS_ALL = &H1F0000

Const SYNCHRONIZE = &H100000

Const READ_CONTROL = &H20000

Const STANDARD_RIGHTS_READ = (READ_CONTROL)

Const STANDARD_RIGHTS_WRITE = (READ_CONTROL)

Const KEY_CREATE_LINK = &H20

Const KEY_CREATE_SUB_KEY = &H4

Const KEY_ENUMERATE_SUB_KEYS = &H8

Const KEY_NOTIFY = &H10

Const KEY_QUERY_VALUE = &H1

Const KEY_SET_VALUE = &H2

Const KEY_READ = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))

Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))

Const KEY_EXECUTE = (KEY_READ)

Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))

Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long

Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long

Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

Public Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As Any, phkResult As Long, lpdwDisposition As Long) As Long

Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal samDesired As Long, phkResult As Long) As Long

Public Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As String, Optional Default) As String

Dim lResult As Long, lValueType As Long, strBuf As String, lDataBufSize As Long

'retrieve information about the key

lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0, lDataBufSize)

If lResult = 0 Then

If lValueType = REG_SZ Then

'Create a buffer

strBuf = String(lDataBufSize, Chr$(0))

'retrieve the key's content

lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal strBuf, lDataBufSize)

If lResult = 0 Then

'Remove the unnecessary chr$(0)'s

If lDataBufSize = 0 Then

RegQueryStringValue = ""

Else

RegQueryStringValue = Left$(strBuf, InStr(1, strBuf, Chr$(0)) - 1)

End If

ElseIf lValueType = REG_DWORD Then

Dim lngData As Long

'retrieve the key's value

lResult = RegQueryValueEx(hKey, strValueName, 0, 0, lngData, lDataBufSize)

If lResult = 0 Then

RegQueryStringValue = lngData

End If

ElseIf lValueType = REG_BINARY Then

Dim strData As Integer

'retrieve the key's value

lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData, lDataBufSize)

If lResult = 0 Then

RegQueryStringValue = strData

End If

ElseIf Not IsMissing(Default) Then

RegQueryStringValue = Default

End If

End Function

Public Function GetString(hKey As Long, strPath As String, strValue As String, Optional Default)

Dim Ret

'Open the key

RegOpenKey hKey, strPath, Ret

'Get the key's content

GetString = RegQueryStringValue(Ret, strValue)

If GetString = "" Then GetString = Default

'Close the key

RegCloseKey Ret

End Function

Public Sub SaveString(hKey As Long, strPath As String, strValue As String, strData As String)

Dim Ret

'Create a new key

RegCreateKey hKey, strPath, Ret

'Save a string to the key

RegSetValueEx Ret, strValue, 0, REG_SZ, ByVal strData, Len(strData)

'close the key

RegCloseKey Ret

End Sub

Public Sub SaveStringLong(hKey As Long, strPath As String, strValue As String, strData As String)

Dim Ret

'Create a new key

RegCreateKey hKey, strPath, Ret

'Set the key's value

RegSetValueEx Ret, strValue, 0, REG_BINARY, CByte(strData), 4

'close the key

RegCloseKey Ret

End Sub

Public Sub DelSetting(hKey As Long, strPath As String, strValue As String)

Dim Ret

'Create a new key

RegCreateKey hKey, strPath, Ret

'Delete the key's value

RegDeleteValue Ret, strValue

'close the key

RegCloseKey Ret

End Sub

Public Sub DelKey(hKey As Long, strPath As String, strSubKey As String)

Dim Ret As Long

'Create a new key

'RegOpenKeyEx hKey, strPath & "\" & strSubKey, 0, KEY_ALL_ACCESS, Ret

RegOpenKey hKey, strPath, Ret

'Delete the key

RegDeleteKey Ret, strSubKey

'close the key

RegCloseKey Ret

End Sub

VBStyleCode

Бяка — Mon, 06 Feb 2012 20:42:01 +0000

Бяка:

Цитата coder @ 06.02.12, 20:03

Обновил архив, теперь попробуйте (я нашел процедуру но ещё не мог найти номер строки

ошибка на 20 строке, потом на 30, 40, 80,90, 100, 110, 120, 140, 150, 160, 170, опять 170, 180, 190, 200-280, 300, 310, 320, 320, 330, 340, 400 ,440, 580, 610-700

Цитата coder @ 06.02.12, 20:03

И ещё, к настройкам подсветки тоже временно поставил сдвиг X и Y

при х=5 у=0 подсветка нормально работает

VBStyleCode

coder — Mon, 06 Feb 2012 20:03:28 +0000

coder: Версия: 2.0.450
Добавлен:
- Авто-замена инициализации переменных с объявлением.

Теперь можно написать код по такому:

Dim a = 1, c As String = "Иницилизация ..."

Добавлено 06.02.12, 20:11

Цитата Бяка @ 05.02.12, 13:42

та же ошибка

Обновил архив, теперь попробуйте (я нашел процедуру но ещё не мог найти номер строки, поставил нумерацию, если что - подскажите).
И ещё, к настройкам подсветки тоже временно поставил сдвиг X и Y.

Цитата Diamock @ 05.02.12, 16:01

если на эту кнопку вывести окно настроек.
По поводу архивации: хотелос бы, чтобы в имени архива указывалось кроме даты и времени ещё и текущая версия проекта

Сделал.

Цитата Diamock @ 05.02.12, 16:01

По поводу окна Функции и процедуры: хочеться, что бы в списке выводились все функции и процедуры проекта для быстрой навигации.

Ещё в стадии разработки.

VBStyleCode

Diamock — Sun, 05 Feb 2012 16:01:23 +0000

Diamock:

Цитата Бяка @ 05.02.12, 13:42

удаляю эту ветку - все работает, изменяю любые настройки- > применить - перезапускаю бэйсик - та же ошибка

Укажи, какая ОС, судя по скриншотам не XP, а Vista или семёрка.

coder, если вывести иконку VB Style Code на панель VB6 Add-In Toolbar и нажать её, Visual Basic падает не выдавая ни одного сообщения. Было бы замечательно, если на эту кнопку вывести окно настроек.
По поводу архивации: хотелос бы, чтобы в имени архива указывалось кроме даты и времени ещё и текущая версия проекта.
По поводу окна Функции и процедуры: хочеться, что бы в списке выводились все функции и процедуры проекта для быстрой навигации.

Справочный файл

В личных сообщениях оставил ссылку, где можно скачать и посмотреть постоянно обновляющийся файл справки.

С уважением...

VBStyleCode

Бяка — Sun, 05 Feb 2012 13:42:14 +0000

Бяка:

Цитата coder @ 05.02.12, 03:09

Извините что я точно не сказал, мне нужны были именно: HKEY_CURRENT_USER\Software\Soft Industrial\VBStyleCode\VB

[HKEY_CURRENT_USER\Software\Soft Industrial\VBStyleCode\VB]

"CommandBar.Position"="1"

"CommandBar.RowIndex"="2"

"CommandBar.Left"="0"

"CommandBar.Top"="25"

"AutoIndent"="True"

"AutoIndent.Automatic"="True"

"CustomIndentWidth"="False"

"AutoInsert"="True"

"AutoInsert.EndConstructions"="True"

"AutoInsert.Then"="True"

"AutoInsert.Comment"="True"

"AutoInsert.CustomCode"="True"

"CustomCode"="On Error Goto ErrorHandler(CrLf)(CrLf)Exit (MemberType)(CrLf)ErrorHandler:(CrLf)MsgBox Error, vbExclamation + vbOkOnly"

"AutoText"="True"

"AutoReplace"="True"

"IncrementAndDecrement"="True"

"ComponentAssignment"="True"

"ErrorHandlers"="True"

"Include"="True"

"AutoInclude"="True"

"ProjectsPath"="C:\Users\admin\Мои документы\Projects"

"SyntaxColoring"="False"

"SyntaxColoring.Operators"="True"

"SyntaxColoring.AdditOperators"="True"

"SyntaxColoring.Texts"="True"

"TextColor"="1381814"

"SyntaxColoring.CustomTexts"="True"

"Scrolling"="True"

"CustomScrollHeight"="False"

"StyleIDE"="True"

"ShowPalette"="True"

"LanguageIDE"="True"

"HotKeys"="True"

"HotKeys.Format"="Ctrl + Alt + Tab"

"HotKeys.Save"="Ctrl + S"

"HotKeys.Redo"="Ctrl + B"

"HotKeys.Comment"="Ctrl + '"

"HotKeys.Uncomment"="Ctrl + Shift + '"

"HotKeys.Bookmark"="F6"

"HotKeys.NextBookmark"="Shift + F6"

"HotKeys.PrevBookmark"="Нет"

"HotKeys.ProcAndFunc"="F11"

"Numeration"="True"

"NumerationStart"="10"

"NumerationStep"="10"

"SkipLinesInOffensive"="False"

"AutoNumeration"="False"

удаляю эту ветку - все работает, изменяю любые настройки- > применить - перезапускаю бэйсик - та же ошибка

VBStyleCode

Diamock — Sun, 05 Feb 2012 05:27:41 +0000

Diamock:

Цитата coder @ 05.02.12, 05:10

Вставка End if не относиться к "Вставка Then для конструкций If-ElseIf", а на "Вставка конечных конструкторов", и ещё при нажатии клавиши Enter.

Ну конечно, по поводу рисунок, оформлении и примеров получилось очень даже красиво.

Добавлено 05.02.12, 05:13
Ещё в добавку: на "Исходный код без использования функции Авто-вставки" можно сделать красный текст ошибки.

Понял, исправлю :( .

VBStyleCode

coder — Sun, 05 Feb 2012 05:10:24 +0000

coder:

Цитата

Вставка Then для конструкций If-ElseIf ― при переходе на следующую строку, происходит добавление Then и End if.

VBStyleCode

Diamock — Sun, 05 Feb 2012 04:31:09 +0000

Diamock: Привет coder!
В настоящий момент работаю над справкой.
Она, конечно в процессе разработки - это так, посмотреть.
VBStyleCode.zip (, : 393)

VBStyleCode

coder — Sun, 05 Feb 2012 03:09:32 +0000

coder:

Цитата Бяка @ 04.02.12, 23:54

Прикреплённый файл: Export.zip (1.15 Кбайт, скачиваний: 0)

Все из-за настроек по-моему. Я хотел узнать на каких комбинациях настройки может проявлять такой глюк.
Извините что я точно не сказал, мне нужны были именно: HKEY_CURRENT_USER\Software\Soft Industrial\VBStyleCode\VB
Почему то, туда не попал эта ветка.
Если из-за настроек, можно даже удалить эту ветку или саму программу с помощью мастера установок, а потом заново установить.

Цитата UFOpera @ 05.02.12, 01:05

я сталкивался с этим когда подсвечивал RichEdit выводил через TextOut
самое проблемное подобрать шрифт CreateFont
помогло StdFont.Charset для установки расстояния символ шрифта

У меня с Charset'ом проблемы не имеется, я левую и верхнюю координату определяю с помощью API GetWindowInfo - ClientRect.

VBStyleCode

UFOpera — Sun, 05 Feb 2012 01:05:44 +0000

UFOpera:

Цитата coder @ 04.02.12, 02:35

А вот такое сложно сделать?
Когда работал с плагином CodeSmart мне не нравилось эти вещи (мне были видны только рисунки, а не коды).

У меня нормально всё, потому и подсел на это.

Цитата coder @ 04.02.12, 02:31

с подсветкой уже лучше но все таки глючит

я сталкивался с этим когда подсвечивал RichEdit выводил через TextOut
самое проблемное подобрать шрифт CreateFont
помогло StdFont.Charset для установки расстояния символ шрифта

Function CreateMyFont(StdFont As StdFont) As Long

Dim I_BOLD As Long

If StdFont.Bold Then I_BOLD = FW_BOLD Else I_BOLD = FW_NORMAL

CreateMyFont = CreateFont(-MulDiv(StdFont.Size, GetDeviceCaps(lHdc, LOGPIXELSY), 72), 0, 0, 0, I_BOLD, _

False, False, False, StdFont.Charset, 0, 0, 0, 0, StdFont.Name)

End Function

VBStyleCode

Бяка — Sat, 04 Feb 2012 23:54:33 +0000

Бяка:

Цитата coder @ 04.02.12, 02:35

Какую настройку меняли?

первым делом - отключал подсветку кода

[HKEY_CURRENT_USER\Software\Microsoft\Visual Basic\6.0\Addins\VBStyleCodeForVB.Connect]
"FriendlyName"="VB Style Code"
"Description"="Add-In, который делает ваш код красивым и читабельным"
"LoadBehavior"=dword:00000003
"CommandLineSafe"=dword:00000000

Export.zip (, : 420)

VBStyleCode

coder — Sat, 04 Feb 2012 02:35:33 +0000

coder:

Цитата UFOpera @ 03.02.12, 21:33

А вот такое сложно сделать?

Когда работал с плагином CodeSmart мне не нравилось эти вещи (мне были видны только рисунки, а не коды).

Цитата UFOpera @ 03.02.12, 21:33

можно и поиск прикрутить до кучи
Extended Find Ver 2.2.1

Об этом подумаем ещё.

Добавлено 04.02.12, 02:44

Цитата Бяка @ 04.02.12, 02:31

с подсветкой уже лучше но все таки глючит иногда непонятно где какой символ:

Значить я нашел вверхную точку, по-моему не нашел ещё левую, можете отключить Indicator Bar? С такими настройками тоже так?

Цитата Бяка @ 04.02.12, 02:31

запустил ВБ6 - бах

Можете выгрузить и прикрепить ветку реестра с VBStyleCode.

Добавлено 04.02.12, 02:45
Какую настройку меняли?

VBStyleCode

Бяка — Sat, 04 Feb 2012 02:31:56 +0000

Бяка: так, проверил новую версию, с подсветкой уже лучше но все таки глючит :'( иногда непонятно где какой символ:

теперь, установил VBStyleCodе > запустил ВБ6 > вроде все пучком, > закрыл ВБ6, > запустил ВБ6 > вроде все пучком , > полез в настройки VBStyleCodе , изменяю любые настройки- > применить> вроде все пучком > закрыл ВБ6, запустил ВБ6 - бах

слетают все настройки VBStyleCodе и после этого не работают все фичи , типа подсветки авто-формат авто-замена и тд
переустановил VBStyleCodе , тоже самое

VBStyleCode

UFOpera — Fri, 03 Feb 2012 21:33:05 +0000

UFOpera: А вот такое сложно сделать?

можно и поиск прикрутить до кучи
Extended Find Ver 2.2.1
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=46543&lngWId=1

VBStyleCode

Diamock — Fri, 03 Feb 2012 16:26:28 +0000

Diamock:

Цитата

Могу придумать разные номера, но скачать все аттачи по историю изменений и посмотреть их очень не хочеться,

У меня есть, последнии 20 версий, с этим разберусь сам.

Цитата

ещё на новых обновлениях могу прописать версию в название архива.

- очень хорошо.
По поводу грамотной компоновки окна настроек сам голову ломаю уже не один день. В эти выходные есть побольше времени, придумаю что-нибудь :) .

VBStyleCode

coder — Fri, 03 Feb 2012 16:06:11 +0000

coder:

Цитата Diamock @ 03.02.12, 15:18

Вот некоторая критика интерфейса .
Заметки по интерфейсу

Бордюры, полосы и выравнивание Frame'ов уже были замечены по предыдущему посту.
По множественному повторению что предлагаете?
Выравнивании элементов можно исправить.
Вставку убираю.
Произвольного текста разворачиваю, а элемента TextBox буду расположить внизу, его тоже буду разворачивать.
Разное расстояние - потому что они опции по разному категорию, их трое присоединить невозможно.
Я вторые "Доступность"и видел на настройках CodeSmart'а, но там первые не были, про обработчиках ошибок тоже так думаете.
Я думаю, что InputBox стандартное форма для изменение простых и однострочных текстов.
Я согласен с вами - кнопка "Обзор" будет выглядеть прекраснее чем трех точек.

Цитата Diamock @ 03.02.12, 15:18

Желательно кроме указания числа и версии 2.0 - указывать 2.0.156 (например).

Могу придумать разные номера, но скачать все аттачи по историю изменений и посмотреть их очень не хочеться, ещё на новых обновлениях могу прописать версию в название архива.

Добавлено 03.02.12, 16:21
или прописать прямо на сообщении ...

VBStyleCode

Diamock — Fri, 03 Feb 2012 15:18:12 +0000

Diamock: Привет coder!
Вот некоторая критика интерфейса :( .

Заметки по интерфейсу

По поводу Истории версии.
Желательно кроме указания числа и версии 2.0 - указывать 2.0.156 (например).

Свой вариант компоновки окна настроек продумаю на выходных :)
С уважением...

VBStyleCode

coder — Thu, 02 Feb 2012 04:08:54 +0000

coder: Слово Настройки убрали?

Добавлено 02.02.12, 04:10
Чуть-чуть уточнял историю.

Добавлено 02.02.12, 04:18

Цитата Diamock @ 02.02.12, 04:00

Поправь отступы, примерно так

Посмотрим.

VBStyleCode

Diamock — Thu, 02 Feb 2012 04:00:19 +0000

Diamock: Привет coder!
Поправь отступы, примерно так

VBStyleCode

coder — Wed, 01 Feb 2012 16:58:54 +0000

coder: Обновил архив, был исправлен баг авто-отступа (при авто-табуляции в некоторых случаях окно показался как зависшим).

Цитата Diamock @ 01.02.12, 13:24

могу вписать стандартное As Is

Подойдет.

Цитата Diamock @ 01.02.12, 13:24

Напиши пожалуйста историю изменений (версий), нужно для справки

В смысле на каком версии, что было исправлена, что было добавлена, вы это имеете ввиду:

Скрытый текст

История:
=========================================
01.02.12 02:17
Версия: 2.0
- Добавлен возможность архивация проекта.
- Объявление функций, типов и констант (через #include).
- И ещё, при запуске VB память очищалось, аддин эту проблему тоже решает.
=========================================
24.01.12 01:49
Версия: 2.0
- Добавлен возможность MDI-вкладки.
=========================================
21.01.12 14:16
Версия: 2.0
- Добавлен возможность выбора языка интерфейса в среде VBA.
=========================================
19.01.12 02:43
Версия: 2.0
- Добавлен возможность назначение горячих клавиш.
=========================================
18.01.12 00:38
Версия: 2.0
- Авто-замена инкрементные (++) и декрементные (--) операции.
- Авто-замена составное присваивание (+=, -=, *=, /=, \=, &=).
=========================================
16.01.12 10:45
Версия: 2.0
- Добавлен возможность быстрый переход к функциям и процедурам.
=========================================
15.01.12 19:42
Версия: 2.0
- Добавлен возможность обработчики ошибок.
=========================================
12.01.12 14:13
Версия: 2.0
- Добавлен возможность выбора языка интерфейса.
=========================================
10.01.12 15:28
Версия: 2.0
- установочная программа заменен на мастеру установки.
=========================================
08.01.12 23:32
Версия: 2.0
- Добавлен установочная программа.
=========================================
03.01.12 14:00
Версия: 2.0
- Авто-вставка шаблона текста при добавлении функции/процедуры
- Нумерация строк кода
=========================================
01.01.12 19:25
Версия: 2.0
- Добавлен возможность подсветки синтаксиса.
- Добавлен возможность выбора стиля интерфейса.
- Проблемы со стилем Windows XP было полностью решено.
- Автовставка знака комментария.
- Установка горячих клавиш.
- В том числе, Ctrl + S - Сохранение модулей в режиме отладки.
- Поддержка новых директивов: '#Region "My region" - '#End Region
=========================================
23.12.11 00:46
Версия: 2.0
- При автоотступе смягчена влиянии на историю изменений.
=========================================
21.12.11 02:44
Версия: 2.0
- Скроллинг с помощью мышиного колеса тепер работает и в других окнах тоже.
=========================================
19.12.11 02:46
Версия: 2.0
- добавлен возможность автовставки текстовых шаблонов (автотекст).
=========================================
17.12.11 21:49
Версия: 2.0
- Исправлен скроллинг в режиме SDI.
=========================================
17.12.11 08:28
Версия: 2.0
- Установка Add-in'a в среду VBA.
- Поддержка режима SDI.
- Автовставка Then для If - ElseIf.
=========================================
07.08.07 17:47
Версия: 1.0
- Добавлен возможность автоматическое расставление отступов.
- Добавлен возможность выбора опций.
=========================================
30.07.07 11:03
Версия: 1.0
- Добавлен скроллинг с помощью мышиного колеса в окне кода.
- Add-in в режиме паузы тоже работает.
=========================================
17.05.07 11:26
Версия: 1.0
- Добавлен поддержка Enum и Type.
=========================================
11.05.2007 17:44
Версия: 1.0
- Аддин считывает количество пробелов, указанное в настройках среды.
- Если оператор уже закрыт, то повторно уже не вставляется конечные конструкторы.
=========================================
08.05.2007 13:02
Версия: 1.0
- При нажатии Return добавилось или убралось отступы.
- И вставлялись конечные конструкторы.
- При нажатии на кнопку Табулировать расставлялось отступы выделенных строк.
=========================================

VBStyleCode

Diamock — Wed, 01 Feb 2012 13:24:54 +0000

Diamock: Ресайз формы нужно убрать.

Это основное, остальное не влияющее на работу, чуть позднее.
P.s. Напиши пожалуйста историю изменений (версий), нужно для справки и, лицензиооное соглашение (могу вписать стандартное As Is).

VBStyleCode

coder — Wed, 01 Feb 2012 13:05:12 +0000

coder: Я присоединяюсь к вашим советам, в практике работал уже с zip архивами, но на этот раз не обратил внимание на лицензий.

Если у вас есть ещё другие замечания, то буду обновлять архив после них.

VBStyleCode

Diamock — Wed, 01 Feb 2012 09:26:18 +0000

Diamock: Привет coder!

Цитата Лицензия архиватора RAR

Ключевые файлы RAR и WinRAR не должны распространяться за пределы области, контролируемой лицом или лицами, купившими оригинальную лицензию, без письменного разрешения обладателя авторских прав.

Поэтому во избежание претензий со стороны держателя авторских прав, предлагаю воспользоваться, другой библиотекой сжатия, распространяемой бесплатно или моим (относительно конечно) кодом.

Option Explicit

'#######################################################################################

Private Function FileExist(FileName As String) As Boolean

'#######################################################################################

'# Функция проверки существования файла

'#######################################################################################

'# Параметры функции:

'########################################################################################

'# FileName - [Обязательный]

'# - Тип String

'# - Имя проверяемого файла. Если путь к файлу не указан, проверяется

'# - файл в текущем каталоге текущего диска

'########################################################################################

'# Возвращаемое значение

'# - Тип Boolean

'# - Если файл существует, возвращает True

'# - Если файл не существует, возвращает False

'# - В случае ошибки, возвращает False

'########################################################################################

On Error GoTo ErrFileExist '# Включаем обработчик ошибок

If Dir$(FileName) = vbNullString Then '# Проверяем файл

FileExist = False '# Файл не существует, FileExist = False

Else

FileExist = True '# Файл существует, FileExist = True

End If

Exit Function '# Выход из процедуры

ErrFileExist: '# Обработка ошибок

FileExist = False '# Файл не существует, FileExist = False

End Function

'########################################################################################

Public Sub CreateZIP(ZIPFileName As String, Optional Overwrite As Boolean = True)

'########################################################################################

'# Процедура создания ZIP архива

'########################################################################################

'# Параметры процедуры:

'########################################################################################

'# ZIPFileName - [Обязательный]

'# - Тип String

'# - Полный путь к архиву

'########################################################################################

'# Overwrite - [Необязательный]

'# - Тип Boolean

'# - Указание на возможность записи на место существующего файла.

'# - В случае, когда значение равно True, такая запись разрешается;

'# - в противном случае значение равно False.

'# - Если параметр опущен, запись поверх существующего файла разрешена

'########################################################################################

'# Объявление переменных процедуры

Dim ff As Long '# Переменная на доступ к свободному каналу

Dim ShellApp As Object '# Переменная для инициализации [Shell.Application]

Dim FE As Boolean '# Переменная для хранения валидности файла

'# Инициализация переменных

ff = FreeFile '# Получаем свободный канал

Set ShellApp = CreateObject("Shell.Application") '# Инициализация [Shell.Application]

FE = FileExist(ZIPFileName) '# Проверка валидности [ZIPFileName]

'# Обработка параметра [Overwrite]

Select Case Overwrite '# Провека параметра [Overwrite]

Case True '# Перезапись разрешена

If FE = True Then '# ZIP архив существует

Kill ZIPFileName '# Удаляем ZIP архив

End If

Case False '# Перезапись запрещена

If FE = True Then '# ZIP архив существует

MsgBox "ZIP архив " & _

vbCrLf & ZIPFileName & _

vbCrLf & "существует.", _

vbInformation, App.Title '# Выводим информационное сообщение

Exit Sub '# Выходим из процедуры

End If

End Select '# Окончание проверки [Overwrite]

'# Создание ZIP файла

Open ZIPFileName For Output As #ff '# Открываем файл для записи

Print #ff, Chr(80) & Chr(75) & _

Chr(5) & Chr(6) & String(18, vbNullChar); '# Создаём ZIP файл

'####################################################################

'# ВНИАНИЕ!!! #

'# Точка с запятой в конце строки обязательна, чтобы оператор Print #

'# не добавлял в файл символ переноса vbCrLf #

'####################################################################

Close #ff '# Закрываем канал

End Sub

'########################################################################################

Public Sub AddFFFromZIP(ByVal ZIPFileName As String, ByVal AddFFName As String)

'########################################################################################

'# Примечание к процедуре!

'########################################################################################

'# Изначально, планировалось создать две процедуры. Добавление файла в ZIP архив и добав-

'# ление папки в ZIP архив. Но структура кода в теле обеих процедур была одинакова, поэ-

'# тому я решил использовать одну процедуру для добавления фалов и папок.

'########################################################################################

'# Параметры процедуры:

'########################################################################################

'# ZIPFileName - [Обязательный]

'# - Тип String

'# - Полный путь к архиву

'########################################################################################

'# AddFFName - [Обязательный]

'# - Тип String

'# - Полный путь к добавляемому файлу или папке

'########################################################################################

Dim ShellApp As Object '# Переменная для инициализации [Shell.Application]

Set ShellApp = CreateObject("Shell.Application") '# Инициализация [Shell.Application]

ShellApp.NameSpace((ZIPFileName)).CopyHere (AddFFName)

'# Добавляем файл (папку) в ZIP архив

End Sub

Некоторые замечания по интерфейсу, выложу позже.

С уважением...

VBStyleCode

coder — Wed, 01 Feb 2012 03:48:19 +0000

coder: Была исправлена недостатки Include In.

VBStyleCode

coder — Tue, 31 Jan 2012 21:17:06 +0000

coder:

Цитата Бяка @ 30.01.12, 00:47

вот только глюки при подсветке кода

Исправил, попробуйте.

Цитата Бяка @ 30.01.12, 00:47

и несколько замечаний по интерфейсу

Исправил.

На этом обновлении:

Добавлены новые возможности:Архивация проекта уже есть на других аддинах тоже, добавил для объединение в одну.

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

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

' _

#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 и попробуйте ввести getstring и пробел, у вас сразу появляется подсказка о функции и возможные варианты первого аргумента.

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

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

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

'#Include <files\showdirs.bas>

'#Include "VBStyleCode\modRegistry.bas"

VBStyleCode

Бяка — Mon, 30 Jan 2012 00:47:42 +0000

Бяка: привет, посмотрел, понравилось

вот только глюки при подсветке кода
01.jpg (, : 810)

и несколько замечаний по интерфейсу
02.jpg (, : 780)
03.jpg (, : 807)

VBStyleCode

coder — Sun, 29 Jan 2012 04:05:22 +0000

coder: Здравствуйте Diamock, прочитав спойлера, был очень рад, за это вам очень большое спасибо.

Я сейчас работаю над Include, там тоже будет несколько настроек (пути модулей и ещё др.).
На программу было внесено некоторые добавления и исправления (на настройки могут добавится только пункт Include), но ещё не обновлял, буду обновлять после завершения Include.

Цитата Diamock @ 29.01.12, 03:42

Для VBA напишу позже.

Они одинаковые же.

VBStyleCode

Diamock — Sun, 29 Jan 2012 03:42:18 +0000

Diamock: Привет coder!
Создание справочного файла близко к завершению, поэтому ниже я укажу изменения, которые необходимо внести в исходный код VB Style Code для успешной интеграции справки. :)

Технические требования для интеграции справочного файла.

Изменения для формы.
Свойство формы BorderStyle, должно быть Fixed Single или Fixed Dialog. WhatsThisButton и WatsThisHelp - True.
Код для формы.

Private Sub SetHelpFile()

App.HelpFile = AppDir & "VBStyleCode.chm::popups.txt"

End Sub

Private Function AppDir() As String

If Right$(App.Path, 1) <> "\" Then

AppDir = App.Path & "\"

Else

AppDir = App.Path

End If

End Function

Private Sub Form_Load()

SetHelpFile

End Sub

Private Sub Form_Unload(Cancel As Integer)

Unload Me

End Sub

Изменения для элементов управления на форме.
Свойству элементов управления WatsThisHelpID надо присвоить значения указанные на рисунках

Изменения для Автоотступ

Изменения для Автовставка

Изменения для Автотекст

Изменения для Автозамена

Изменения для Нумерация

Изменения для Обработчики ошибок

Изменения для Подсветка синтаксиса

Изменения для Скроллинг

Изменения для Стиль

Изменения для Язык

Изменения для MDI вкладки

Изменения для Горячие клавиши

Изменения для Формы

Это первый этап внесения изменений, относящийся к VB IDE. Для VBA напишу позже.
С уважением...

VBStyleCode

coder — Tue, 24 Jan 2012 02:49:45 +0000

coder: Когда появляется вторая белая строка?

Добавлено 24.01.12, 03:31
Убрал периодическую отрисовку MDI-вкладок, прежде отрисовку оставил, потому что у меня не было видно.
Теперь попробуйте.

VBStyleCode

Diamock — Tue, 24 Jan 2012 01:54:56 +0000

Diamock: Привет coder!
Что-то непонятное переодически происходит, при отрисовке MDI-вкладок:

Скриншот из VB6. То же самое и в VBA 6 и 7.

VBStyleCode

coder — Mon, 23 Jan 2012 20:49:08 +0000

coder:

Цитата Diamock @ 23.01.12, 02:08

Сейчас пишу контекстную справку для этой кнопочки

Большое спасибо за ваши усилия.

Цитата Diamock @ 23.01.12, 02:08

Когда-то у меня стоял Office 2000, там был русифицированный VBA.

Версия должен быть 6.0, был бы сейчас посмотрели.

Добавлена новая возможность:

VBStyleCode

Diamock — Mon, 23 Jan 2012 02:08:31 +0000

Diamock: Привет coder!

Цитата coder @ 21.01.12, 09:16

...а как идет корректировка справки?

Работа над справкой звершена процентов на 70%. Сейчас пишу контекстную справку для этой кнопочки:

Цитата coder @ 21.01.12, 09:16

Теперь на среде VBA тоже можно менять язык интерфейса, но переводы не полный, всего лишь переводил только строку меню. Искал, но не нашел в инете русификацию для VBA.
Если кто-нибудь русифицировал уже, или имеет такой файл можеть быть делиться с нами.

Когда-то у меня стоял Office 2000, там был русифицированный VBA.

VBStyleCode

coder — Sat, 21 Jan 2012 09:16:59 +0000

coder:

Цитата Diamock @ 19.01.12, 13:27

Непонятное название формы и, активный TextBox, при выключенном

Исправил, а название из-за Ctrl+S

Цитата Diamock @ 19.01.12, 13:27

Ошибка при нажатии клавиши применить. Ошибка выскакивает только в VB

Исправил.

Цитата Diamock @ 19.01.12, 13:27

В Front Page 2003, множественные пустые меню при установке новой версии VBStyleCode.

Установил FrontPage 2003, но такое у меня не произошел. Восстановите Menu Bar и ещё попробуйте.

Цитата Diamock @ 20.01.12, 10:33

Перезалил файл в этом посте

Мне очень понравилось, такую прекрасную справку ни в каком программе ещё не видел, а как идет корректировка справки?

Цитата Diamock @ 20.01.12, 10:33

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

Стиль и язык всего один или две раза меняется же. А у вас каждый раз нужно выбрать?

Языки интерфейса отделил от установочного файла, чтобы каждый раз не пришлось скачать их.
Теперь на среде VBA тоже можно менять язык интерфейса, но переводы не полный, всего лишь переводил только строку меню. Искал, но не нашел в инете русификацию для VBA.
Если кто-нибудь русифицировал уже, или имеет такой файл можеть быть делиться с нами.

VBStyleCode

Diamock — Fri, 20 Jan 2012 10:33:48 +0000

Diamock: Привет coder! Перезалил файл в этом посте. Проверил, скачивается.

И ещё несколько мыслей, по поводу Add-In'а...
VBStyleCode постепенно превращается не в один плагин VB6, а в целый программный комплекс, призваный улучшить и облегчить разработку приложений. Поэтому, я считаю, некоторые функции стоит отделить от основного ядра.

Что отделяем
Отделить нужно настройки интерфейса VB IDE:
Почему отделяем
Не очень удобно изменять стиль и язык среды разработки и перезапускать VB.

Как отделяем
К примеру, назавём эту программу VB6 Launcher. Вот её примерный интерфейс.

Думаю принцип понятен :) , выбираем язык и стиль и, по нажатию кнопки [OK] - запускается VB с нужными нам стилем и языком.

Вот пока и все...

VBStyleCode

coder — Fri, 20 Jan 2012 02:44:18 +0000

coder:

Цитата Old Bat @ 19.01.12, 08:18

комментарий отрабатывает только на стандартном сочетании, при назначении Ctrl+буква вообще удаляется вся строка

Кроме Add-in'а горячих клавиш обрабатывает ещё сама среда тоже. Например, Ctrl+Y удаляет текущую строку, если удаляется вся строка, значить вы использовали Ctrl+X или нажали букву без Ctrl.

Цитата Old Bat @ 19.01.12, 08:18

в списке офисных надстроек (Сервис->Надстройки в Excel) пункт не появляется, т.е. отключить/включить надстройку при необходимости (именно ОТКЛЮЧИТЬ, а не отменить регистрацию) пользователю не удастся

Я попробовал установить через реестр и ещё попробовал делать сервер автоматизации, но при отключении надстройку Add-in работает же как прежде.
Я ещё прочитал о надстройках, там говорят что надстройки имеют расширения xla. Надстройки Excel
Я думаю что, Add-in'а отключить нужно после входа в VBE, на Add-in's -> Add-in Manager.

Добавлено 20.01.12, 03:15

Цитата Diamock @ 19.01.12, 17:05

Примерный вариант дизайна справочного файла.

Не скачивается.

VBStyleCode

Diamock — Thu, 19 Jan 2012 17:05:40 +0000

Diamock: Примерный вариант дизайна справочного файла.

VBStyleCode.zip (, : 397)

VBStyleCode

Diamock — Thu, 19 Jan 2012 13:27:33 +0000

Diamock: Привет coder!
Несколько замечаний о последней версии: VB (2.0.125), VBA (2.0.15).

Непонятное название формы и, активный TextBox, при выключенном CheckBox'е.

Ошибка при нажатии клавиши применить. Ошибка выскакивает только в VB и WORD 2010. В других приложениях из состава Office 2010, такой ошибки нет.

В Front Page 2003, множественные пустые меню при установке новой версии VBStyleCode.

С уважением...

VBStyleCode

Old Bat — Thu, 19 Jan 2012 08:18:34 +0000

Old Bat: совсем другое дело, благодарствую )) но есть еще над чем поработать: все не смотрел, но комментарий отрабатывает только на стандартном сочетании, при назначении Ctrl+буква вообще удаляется вся строка

Цитата

Оно не показывается в списке офисных надстроек (в смысле на "Надстройки" и на "Надстройки COM"), должно показываться на списке Add-ins -> Add-in Manager в среде VBE.

об этом и речь, в VBE все в порядке, а вот в списке офисных надстроек (Сервис->Надстройки в Excel) пункт не появляется, т.е. отключить/включить надстройку при необходимости (именно ОТКЛЮЧИТЬ, а не отменить регистрацию) пользователю не удастся. Можно, конечно, сделать это ручками, выбрав надстройку в качестве сервера автоматизации (что я и сделал ранее), но тогда пункт остается в списке даже при деинсталляции ПО, поскольку не очищается реестр, что только вводит пользователя в заблуждение.
Предлагаю при установке ПО добавлять в реестр информацию о надстройке:

[HKEY_USERS\<SID_пользователя>\Software\Microsoft\Office\<версия_офиса>\Excel\Options]

"OPEN"="/A \"VBStyleCodeForVBA.Connect\""

и очищать данный параметр при отмене регистрации.

VBStyleCode

coder — Wed, 18 Jan 2012 21:43:15 +0000

coder: Теперь горячие клавиши можно менять.

VBStyleCode

coder — Wed, 18 Jan 2012 17:14:03 +0000

coder:

Цитата Old Bat @ 18.01.12, 08:32

правда есть небольшая ложка дегтя: после установки VBStyleCode не отображается в списке доступных офисных надстроек (Office2010), хотя функционал и доступен

Цитата Old Bat @ 18.01.12, 08:32

а после деинсталляции соотв. запись не удаляется из HKEY_CLASSES_ROOT реестра - как следствие VBStyleCode отображается в списке доступных надстроек даже при удалении библиотеки с диска

При удалении с диска реестр не очищается, но деинсталлятор должно было разрегистрировать библиотеку. Во время деинсталляции все действие произойдет успешно?

Цитата Old Bat @ 18.01.12, 08:32

coder, не планируешь ли добавить возможность переназначения горячих клавиш; не критично, но привычка - вторая натура ))

Могу сделать такой возможность тоже.

VBStyleCode

Old Bat — Wed, 18 Jan 2012 08:32:43 +0000

Old Bat: опробовал в VBA, полезная штука

правда есть небольшая ложка дегтя: после установки VBStyleCode не отображается в списке доступных офисных надстроек (Office2010), хотя функционал и доступен, а после деинсталляции соотв. запись не удаляется из HKEY_CLASSES_ROOT реестра - как следствие VBStyleCode отображается в списке доступных надстроек даже при удалении библиотеки с диска

coder, не планируешь ли добавить возможность переназначения горячих клавиш; не критично, но привычка - вторая натура ))

VBStyleCode

coder — Wed, 18 Jan 2012 03:26:27 +0000

coder: Вы любитель комментарий в виде "'#"? Добавил поддержку такого вида комментария тоже.

VBStyleCode

coder — Wed, 18 Jan 2012 01:18:10 +0000

coder:

Цитата coder @ 17.01.12, 19:38

Цитата (Diamock @ 16.01.12, 22:23)
При появлении окна, рисункки на кнопках исчезают и кнопки становятся недоступными, при перерисовке окна появляются рисунки и изменяется вид кнопок.
Это ещё не посмотрел.

Может быть это глюк самой среды, при перерисовке окна кнопки комментария, отступа и другие тоже переходят на доступное состояние.

VBStyleCode

coder — Tue, 17 Jan 2012 19:38:57 +0000

coder:

Цитата Diamock @ 16.01.12, 17:23

Опечатка, мягкий знак не нужен.

Цитата Diamock @ 16.01.12, 17:23

При отключенном CheckBox "Доступность", CheckBox "Пропускать строки не вызывающих ошибок" -

Цитата Diamock @ 16.01.12, 17:23

Двоеточия не надо, вместо строка => строк.

Замечании были исправлены.

Цитата Diamock @ 16.01.12, 17:23

Неправильная обработка CheckBox в Toolbar'e.

Я думаю что, правильно: Он показывает следующее действие кнопки нумерации, если нет номер - работает меню "Нумерация", если есть номер - работает "Убрать нумерацию". Кроме того меню можеть работать без этих номеров тоже, при выборе элемента меню "Нумерация" заново нумерует, а при выборе "Убрать нумерацию" убирает все номера в теле процедуры (В смысле, действие не связан с текущим состоянием нумерации).

Цитата Diamock @ 16.01.12, 17:23

Нет промежутка между кнопками.

Почему не используешь стиль XP, на том стиле промежутки чуть-чуть виднее будет? Для вида поставил промежутки.

Цитата Diamock @ 16.01.12, 17:23

При появлении окна, рисункки на кнопках исчезают и кнопки становятся недоступными, при перерисовке окна появляются рисунки и изменяется вид кнопок.

Это ещё не посмотрел.

Добавлены новые возможности:
Вообщем авто-замена и авто-текст были разделены. Теперь в VB тоже можно использовать операции языка С, С++ и VB.NET (C Style Code - противоречить к названию программы, но для удобства и быстроты ввода добавил его).

VBStyleCode

Diamock — Mon, 16 Jan 2012 17:23:21 +0000

Diamock: Привет coder, несколько замечаний о последней версии (2.00.65) VBStyleCode.
Опечатка, мягкий знак не нужен.

При отключенном CheckBox "Доступность", CheckBox "Пропускать строки не вызывающих ошибок" - остаётся работающим.

Двоеточия не надо, вместо ~~строка~~ => строк.

Неправильная обработка CheckBox в Toolbar'e.

Нет промежутка между кнопками.

При появлении окна, рисункки на кнопках исчезают и кнопки становятся недоступными, при перерисовке окна появляются рисунки и изменяется вид кнопок.

С уважением...

VBStyleCode

coder — Mon, 16 Jan 2012 05:45:40 +0000

coder: Добавлен новая возможность:

VBStyleCode

coder — Sun, 15 Jan 2012 14:42:06 +0000

coder: Добавлена новая возможность:

VBStyleCode

coder — Thu, 12 Jan 2012 16:46:32 +0000

coder:

Цитата Diamock @ 12.01.12, 16:27

coder, а как ты смотришь, на то, что бы для Add-In'a сделать отдельный Toolbar?

На первом версии был отдельный Toolbar, потом пришел в голову усовершенствовать имеющиеся Toolbar'ы.
Можно возвращаться на предыдущий.

Цитата Diamock @ 12.01.12, 16:27

И расширить ещё функциональность?

Со временем расширяю, по возможности. Это ещё не последний.

Цитата Diamock @ 12.01.12, 16:27

У меня есть несколько идей, как сформируються, сразу отпишусь.

Пожалуйста, но сразу нескольких сложно будет реализовать. У меня самому тоже есть идеи.

Цитата Diamock @ 12.01.12, 16:27

И ещё один вопрос: Если не секрет, можно подробнее о перерисовке палитры? Уж очень сильно меня этот вопрос интересует.

Эта палитра самой средой рисовалось на окну закладку, и я тоже повторял это действие.

Цитата Diamock @ 12.01.12, 16:27

Интересный момент, у меня Office 2010 (VBA 7) - Add-In выпадал при попытке запуска VBA, но после установки последней версии, всё заработало!

У меня тоже Office 2010 (VBA 7), но всегда работал правильно.

И у меня тоже вопрос: язык обратно поменялся?

Добавлено 12.01.12, 16:53

Цитата coder @ 12.01.12, 16:46

И ещё один вопрос: Если не секрет, можно подробнее о перерисовке палитры?

Если обратил внимание, палитра без установки аддина тоже рисовалось, но сразу скрылась из-за обновление закладки. Разница в том, что сама среда рисует до обновление, а я после.