我在程序中，如何知道位于调试状态（debug起作用的状态）

Question

我在程序中，如何知道位于调试状态（debug起作用的状态）,还是非调试状态?

Answer 1

Option ExplicitPrivate Sub Form_Load()
    MsgBox InDesign
End SubPrivate Function InDesign() As Boolean
    Static nCallCount As Integer
    Static bRet As Boolean
    nCallCount = nCallCount + 1
    Select Case nCallCount
        Case 1: Debug.Assert InDesign()
        Case 2: bRet = True
    End Select
    InDesign = bRet
    nCallCount = 0
End Function

Answer 2

If App.LogMode Then MsgBox "非调试状态"