#define есть ли подобное в Vb

[oleg]

есть ли аналог?

[Dagobert]

Есть что-то подобное

Код: Выделить всё

Private Sub Form_Load()
#Const debugmode = 1

#If debugmode = 1 Then
MsgBox "Debug mode"
#End If
End Sub

Ещё можно добавить константу через свойства проекта.
Вкладка Make поле Conditional compilation Arguments.

Если набрать, #define то VB выдаст полезное сообщение об ошибке.

[oleg]

немного это не константа так описывается,а макрос.
То есть

Код: Выделить всё

#define MACRO do{ x=1; y=2; }while(0)


в коде вставляю только MACRO, запись сокрашается и т.д.
ps
Функции при этом сами по себе существуют

[ANDLL]

Насколько я знаю нет ничего подобного.
В VB вообще нет препроцессора.

[hCORe]

В Vb6 есть препроцессор, только он обрезанный!

См. раздел Compilation Arguments и иже с ним.

Насколько помню, макросы там не поддерживаются, там только есть

#Const
#If
#Else
#End If