Режим отладки В VB 6?

Question

Как я могу сделать что-то похожее на следующий код C в VB 6?

#ifdef _DEBUG_ 
    // do things 
#else 
    // do other things 
#end if 

Answer 1

Это почти то же, что и на других языках, к которым вы привыкли. Синтаксис выглядит следующим образом:

#If DEBUG = 1 Then 
    ' Do something 
#Else 
    ' Do something else 
#End If 

Это легко запомнить, если вы помните, что синтаксис точно так же, как и другие заявления потока управления в VB 6, за исключением того, что во время компиляции условных начать с фунтом знак (#).

Трюк фактически определяет константу DEBUG (или что-то еще), потому что я уверен, что по умолчанию не определено. Есть два стандартных способа сделать это:

1. Используйте кнопки #Const ключевое слово, чтобы определить константу в верхней части каждого исходного файла. Определение, которое вы устанавливаете таким образом, действует во всем исходном модуле. Это будет выглядеть примерно так:

   #Const DEBUG = 1 
   

2. Задайте константу в свойствах проекта. Это определит константу, которая действительна на протяжении всего проекта (и, вероятно, это то, что вы хотите для индикатора режима «Отладка»).

   Для этого нужно ввести что-то вроде следующего в «условной компиляции Константы» текстовое поле на вкладке «Make» диалогового окна «Свойства проекта»:

   DEBUG = 1 
   

   

   Вы можете определить несколько констант в этом диалоге, разделяя каждый из них с толстой кишки (:):

   DEBUG = 1 : VERSION2 = 1 
   

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

Answer 2

Коди рассказал вам об условной компиляции. Я хотел бы добавить, что если вы хотите по-разному вести себя при отладке в среде IDE (например, отключите собственную обработку ошибок, чтобы ошибки IDE ловушки) вам не нужно условная компиляция. Вы можете обнаружить IDE во время выполнения, как это.

On Error Resume Next 
Debug.Print 1/0 
If Err=0 then 
    'Compiled Binary 
Else 
    'in the IDE 
End if 

Это работает, потому что Debug.Print опущен в скомпилированном EXE.

• EDIT Не забудьте выключить On Error Resume Next!
• EDIT Вы можете обернуть проверку в функции как this (спасибо CraigJ)

Answer 3

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

Public Function GetRunningInIDE() As Boolean 

    Dim x As Long 
    Debug.Assert Not TestIDE(x) 
    GetRunningInIDE = x = 1 

End Function 

Private Function TestIDE(x As Long) As Boolean 

    x = 1 

End Function 

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

Answer 4

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

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