vb6 - VB 6 中的 Debug模式？

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 (或其他)常量，因为我很确定默认情况下没有定义。有两种标准的方法:

使用 #Const关键字来定义每个源文件顶部的常量。您以这种方式建立的定义在整个源模块中都是有效的。它看起来像:

 #Const DEBUG = 1

在项目的属性中设置常量。这将定义一个在整个项目中都有效的常量(并且可能是您想要的“调试”模式指示器)。

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

 DEBUG = 1

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

 DEBUG = 1 : VERSION2 = 1

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