Условная компиляция в VB

[jangle]

Подскажите, как реализуется условная компиляция в VB.

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

#IF #DUBUG=True then
END
#ELSE
ExitProcess(0)
#ENDIF


Как реализовать это на VB6?

[tyomitch]

Вот именно так и реализуется
Только вместо #DUBUG=True -- лучше просто Debug.

[jangle]

Cпасибо!

[jangle]

Не работает

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

Option Explicit

Private Sub Command1_Click()

#If Debug = True Then
  MsgBox "Отладка"
#End If

End Sub

[tyomitch]

Работает, если убрать, наконец, из всех своих прог сравнение булевых переменных с True и задать Debug=1 в Project -> Properties -> Make -> Conditional Compilation Arguments.

[Konst_One]

или объявить аргумент так:
Debug=-1

[jangle]

Работает, если убрать, наконец, из всех своих прог сравнение булевых переменных с True и задать Debug=1 в Project -> Properties -> Make -> Conditional Compilation Arguments.

Сделал все как расписано, в результате получил:

Compie error:
An # ElseIf, #Else, or #EndIf must be preceded an # if clause

[tyomitch]

Значит, где-то опечатался. У меня всё работает.

[jangle]

Да нет вроде, очепятаться там негде...

Вот этот код работает, можно определить, где работаешь в IDE или в EXE:

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

Private Function InIDE(Optional ByRef blArg As Boolean) As Boolean
    Static blRet As Boolean
    blRet = blArg
    If Not blRet Then
        Debug.Assert InIDE(True)
    End If
    InIDE = blRet
End Function

Но это все же не условная компиляция..

[Amed]

А как ты задаешь переменную в Conditional Compilation Arguments?

[jangle]

Debug=1

[Amed]

Попробуй не Debug, а Dbg обозвать переменную.

[Mikle]

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

Option Explicit
#Const Deb = True

Private Sub Command1_Click()
  #If Deb Then
    MsgBox "Отладка"
  #End If
End Sub


[Nicky]

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

Function InIDE() As Boolean
  On Error Resume Next
  Debug.Print 1 / 0
  InIDE = Err.Number <> 0
End Function


[Хакер]

Гмда.... логика не понятна:

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


Function InIDE() As Boolean
  On Error Resume Next
  Debug.Print 1 / 0
  InIDE = Err.Number = 11
End Function


[Nicky]

2Хакер Гмда..., это был ответ на этот странный код

[Andrey Fedorov]

Но это все же не условная компиляция..

Вот именно.

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

    #If CLIENT Then
        ...
    #Else

    #End If


В свойствах проекта в Conditional Compilation Arguments пишем

CLIENT = 0

или

CLIENT = 1

И в зависимости от этого в скомпилированный проект будет включена та или иная часть кода в #IF. Ну и она-же будет выпольняться при отладке из IDE.

[IIIypuk]

Nicky, я тебе оплодирую. Начал читать тему, хотел предложить то же самое, но решил все таки дочитать. Оказалось опоздал.

[Rojohn]

А можно обойтись без объявления в свойствах проекта Deb=1, а просто #Const Deb = 1? Как в таком случае объявить её Public? Пробовал писать #Const Deb = 1 в модуле - не реагирует...

[Me!]

делаю так и всё работает:
начало модуля/формы/класса:

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


#Const DBG = 1


а затем, где нужно:

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


#If DBG Then
'бла-бла-бла
#Else
'бла-бла-бла
#End If


[Rojohn]

Так-то понятно, а чтоб на весь проект константу написать сразу и без редактирования свойств проекта?

[Хакер]

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

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

[Rojohn]

Нет, я имел ввиду одну константу в модуле, что-то типа #Public Const Deb=1. Но так писать нельзя. Но, наверное, можно как-то по-другому наподобе этого, без редактирования свойств проекта? Т.е. одна константа в модуле на весь проект. Ведь, когда мы объявляем константу в свойствах проекта она действительна для всего проекта. Вполне возможно, чтобы компилятор искал в декларэйшинах модулей константы, а потом компилил проект. Или это только из области фантазий?

[Хакер]

До тебя не дошло? Ты понимаешь что придётся просматривать при компилции все модули дважы? Сначала выискивать из них все константы, потом уже компилировтаь.

А если в условных блоках тоже определяются константы? Тогда проходится по модулям придётся ещё большее число раз.

[Rojohn]

Да, наверное это фантазии. Если модули выполняются последовательно и условная компиляция будет стоять внутри модуля, то кусками он его обрабатывать не сможет, конечно. Нужно место вне кода для объявления этой константы, т.е. свойства проекта.
ОК! Всё ясно! Спасибки!