vb6 – 调试模式在VB 6中？

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

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

它与您习惯的其他语言几乎相同。语法如下所示：

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

如果您只记得语法与VB 6中的其他流控制语句完全相同，那么很容易记住，除了编译时条件以井号(#)开头。

诀窍实际上是定义DEBUG(或其他)常量，因为我很确定默认情况下没有定义。有两种标准方法：

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

#Const DEBUG = 1

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

为此，请在“项目属性”对话框的“生成”选项卡上的“条件编译常量”文本框中输入以下内容：

DEBUG = 1

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

DEBUG = 1 : VERSION2 = 1

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