I need to activate some code while I am debugging, but not have it
acccessable when I run the EXE. I am currently using code that I
appropriated from Q118819. I found out recently that this technique ONLY
works in WIN16.  But now I need to port the program to WIN32 under win95
and NT. To further complicate things I am currently using VB4 (with hope
to switch to VB5 but not for a while). How do I do it?  The knowledge
base came up empty for me.  Any suggestions, article or book references,
anything would be helpful. Thanks.

There is a system variable that you could use for a conditional compile that
will tell your program whether it is running as a standalone EXE or from
within the IDE.  Damed if I can remember which one it is now.  Anyone else
remember?  I only used it once, and it was a while ago.

--

Tony Selke

(please remove the _No-Junk-Mail_ prior to responding)

/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

I've been using this:

Public Function VBDesignMode() As Boolean
   '
   ' If VB5.EXE is running in the current process space, return TRUE
   '
   ' If VB5.EXE is running as another process, GetModuleHandle returns 0
   Dim hModule As Long
   hModule = GetModuleHandle("VB5.EXE")
   VBDesignMode = (hModule > 0)
End Function

Jonas
TRION Technologies

On Mon, 20 Apr 1998 18:09:07 -0700, "Steven S. Silver"

Function RunningInIDE() As Boolean
    On Error Resume Next
    Debug.Print 9 / 0
    If Err Then
        RunningInIDE = True
    Else
        RunningInIDE = False
    End If
    On Error GoTo 0
End Function

You don't need to know a system variable, just use this simple Function:

Function DesignTime() As Boolean
    On Error Resume Next
    Debug.Print 0 / 0
    If Err = 0 Then
        DesignTime = False
    Else
        DesignTime = True
    End If
End Function

The debug-object doesn't cause an div by zero error when running as
standalone-EXE!
Tricky, eh?

If you use _this_ method, you can even tell from your ActiveX DLL is it is
being called from the IDE:

Public Function VBDesignMode() As Boolean
   '
   ' If VB5.EXE is running in the current process space, return TRUE
   '
   ' If VB5.EXE is running as another process, GetModuleHandle returns 0
   Dim hModule As Long
   hModule = GetModuleHandle("VB5.EXE")
   VBDesignMode = (hModule > 0)
End Function

I wrote this when I realized that the "Debug.print 0 / 0" method will fail
if a compiled component needs to know if it's is being used in the IDE.

Jonas
TRION Technologies

Art

All well and good unless your project name and exe name are identicle.

:)

--

Tony Selke

(please remove the _No-Junk-Mail_ prior to responding)

/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\