VB 6 中的调试模式？

Question

如何在 VB 6 中执行类似于以下 C 代码的操作？

#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. 在项目的属性中设置常量。这将定义一个在整个项目中有效的常量（并且可能是您想要的“调试”模式指示器）。

   为此，请在“Project Properties”对话框的“Make”选项卡上的“Conditional Compilation Constants”文本框中输入如下内容：

   <前><代码>调试 = 1

   

   您可以在此对话框中定义多个常量，方法是用冒号分隔每个常量 (:)：

   <前><代码>调试 = 1 : 版本 2 = 1

请记住，假定任何未定义的常量为 0。

Answer 2

Cody 已经告诉您有关条件编译的信息。我想补充一点，如果您希望在 IDE 上调试时有不同的行为（例如，关闭您自己的错误处理以便 IDE 捕获错误），则您不需要条件编译。您可以像这样在运行时检测 IDE。

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

这是可行的，因为在编译的 EXE 中省略了 Debug.Print。

• 编辑请记住关闭“错误时继续下一步”！
• 编辑您可以将检查包装在像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