Как загнать непечатные символы в КОНСТАНТУ String?

[0xy]

Константа описана на уровне модуля, и содержит "Энтер" (0D, 0A)

Собственно, проблема в этом:

Не допускается использование переменных, определяемых пользователем функций или внутренних функций языка Visual Basic (типа Chr) в выражениях, присваиваемых константам.

Есть ли окольные пути?

[Добавлено позднее]
На сей раз мне хватило этого:

Следующие константы определены в библиотеке типов Visual Basic для приложений и могут использоваться в любом месте программы вместо их значений:

Константа Эквивалент Описание
vbCrLf Chr(13) + Chr(10) Комбинация символов возврата каретки и перевода строки.
vbCr Chr(13) Символ возврата каретки.
vbLf Chr(10) Символ перевода строки.
vbNullChar Chr(0) Символ с кодом 0.
vbNullString Строка с кодом 0 Не совпадает с пустой строкой (""); используется для вызова внешних процедур.
vbTab Chr(9) Символ табуляции.
vbBack Chr(8 ) Символ Backspace.
vbFormFeed Chr(12) Не используется в Microsoft Windows.
vbVerticalTab Chr(11) Не используется в Microsoft Windows.

Но мне по прежднему интересно,
как вогнать в константу произвольный непечатный символ?

[Денис]

А что, если написать в другом языке библиотеку типов, в которой будут описаны в виде констант следующие непечатные значения, а затем подключить к проекту эту библиотеку; это приемлимое решение? И возможно ли это в других языках?

[zHackLeX]

CopyMemory в строку из байта, или это уже не тру?

[iGrok]

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

[arthur2]

Как загнать непечатный символ в константу?
Очень просто -- этот символ нужно... напечатать!

Вызываем дебагер, пишем в нём ?chr(1) и бъём энтер.

Полученный квадратик и объявляем в качестве константы. Всё.

С непечатными словами можно поступить точно так же.

[Денис]

arthur2
Браво! Гениальное и простое решение. Я уж было хотел посоветовать заполнить значения в HEX редакторе, но это более простое решение, и модуль уже написан Вами к тоу же.

[arthur2]

Кстати, очень хорошо, что появился такой вопрос. Мне это и самому нужно было, но я пользовался обходным путём -- объявлял переменную.

А тут -- под такое дело -- раскинул мозгами

[alibek]

Только таким способом не все значения можно использовать. Chr$(10) не сможешь.

[arthur2]

Для тех, кто в танке: chr(10)=vbLf

Ну или

Public Const chr0 = vbNullChar
Public Const chr9 = vbTab
Public Const chr10 = vbLf
Public Const chr13 = vbCr

Для всех остальных знаков работает замечательно.


Кстати, есть оказывается и ещё два непечатных знака (chr(127) -- контрл+бекспейс, на сколько я знаю, и chr(152) -- не знаю что это). И ещё куча малопечатных (• и прочие ђ), так что выкладываю улучшеный модуль.