如何限制一个函数只能在debug模式下使用

 以下来自http://topic.youkuaiyun.com/u/20090331/10/03f3d808-660e-4f1f-b827-c89729927976.html?seed=1021143466的讨论。

我写了一些测试用的函数，我想最终版本不要包括这些函数。但是怕自己没小心在其他不是测试的地方用它。有什么办法来限制我的这些测试函数只能在测试的地方用，不许在其他的地方用呢？

最好的办法是用条件编译，这样测试代码不会输出到最后的可执行文件中。vbman2003告诉我这么做，在工程属性中选择生成选项：编译时，在条件编译参数中输入：DEBUG_VERSION = 1；生成EXE时将其改为：DEBUG_VERSION = 0。这样就可以用伪指令：
Private Sub Form_Load() #If DEBUG_VERSION Then MsgBox "IDE" #Else MsgBox "EXE" #End If End Sub

最妙的办法是利用debug只能在编译模式下使用的特性。下面是AisaC和sonic_andy的方法：

Private Sub Command1_Click() If Run_InIDE Then MsgBox "在IDE运行" Else MsgBox "没有在IDE运行" End If End Sub Private Function Run_InIDE() As Boolean Debug.Assert zSetTrue(Run_InIDE) End Function Private Function zSetTrue(ByRef bValue As Boolean) As Boolean zSetTrue = True bValue = True End Function

myjian和zzyong00还提出这样的方法：

public function IsIDE() as boolean '判断是否处于IDE中. on error goto ErrHanele IsIde = true debug.print 1/0 '触发错误,编译后这一行不会执行. IsIde = False Exit function ErrHanele: end function

函数开头调用一下IsIDE就可以了: if iside then exit function/sub

另外还有一个办法是利用API函数判断当前的运行环境。这是happy_sea提供的代码。

Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long '测试是否在VB_IDE环境下 Public Function GetIDEmode() As Boolean Dim strFileName As String Dim lngCount As Long strFileName = String(255, 0) lngCount = GetModuleFileName(App.hInstance, strFileName, 255) strFileName = Left(strFileName, lngCount) If UCase(Right(strFileName, 7)) <> "VB6.EXE" Then GetIDEmode = False Else GetIDEmode = True End If End Function

Tiger_Zhao总结说，用条件编译比较合适。既不输出到编译文件中，也容易发现无意的调用。InIDE() 通常是用在自动调整调试信息的输出方式上。 AisaC说，像debug.assert这样的语句在正式运行的时候虽然不会执行，但是还是会被编译到最后的可执行文件里。

最后给出我学习大家的发言后的实际应用。我想一个过程，在测试的时候是public的，在真正交付运行的时候是private的。用了下面的办法。

'bas1 Public Sub test() #If DEBUG_VERSION Then MsgBox "IDE" Call dd #Else MsgBox "EXE" #End If 'Call dd '在这里call编译就不会通过 End Sub 'bas2 #If DEBUG_VERSION Then Public Sub dd() #Else Private Sub dd() #End If MsgBox "dd" End Sub