VB icon

Am I running in the IDE?

Submitted on: 2/8/2015 11:12:00 PM
By: ULLI (from psc cd)  
Level: Intermediate
User Rating: By 6 Users
Compatibility: VB 6.0
Views: 920
     The proper way to find out whether your code is running in the IDE or was compiled
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
' Name: Am I running in the IDE?
' Description:The proper way to find out whether your code is running in the IDE or was compiled
' By: ULLI (from psc cd)

'this code goes into a class named cEnvironment
Option Explicit
Public Enum eEnvironment
EnvironIDE = 1
EnvironCompiled = 2
End Enum
Public Property Get QueryEnvironment() As eEnvironment
QueryEnvironment = EnvironCompiled
Debug.Assert Not SetToIDE(QueryEnvironment)
End Property
Private Function SetToIDE(Env As eEnvironment) As Boolean
Env = EnvironIDE
End Function
'make QueryEnvironment the default property of class cEnvironment
'and then use this anywhere in your code
Private Sub Something()
 Dim Environment As New cEnvironment
Print IIf(Environment = EnvironIDE, " I am running in the IDE", _
" Somebody had mercy and compiled me")
'you don't normally print the result, so you might type this... 
'If Environment = 
'..and you will see the two possibilities in VB's popup
End Sub

Other 88 submission(s) by this author


Report Bad Submission
Use this form to tell us if this entry should be deleted (i.e contains no code, is a virus, etc.).
This submission should be removed because:

Your Vote

What do you think of this code (in the Intermediate category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor (See voting log ...)

Other User Comments

 There are no comments on this submission.

Add Your Feedback
Your feedback will be posted below and an email sent to the author. Please remember that the author was kind enough to share this with you, so any criticisms must be stated politely, or they will be deleted. (For feedback not related to this particular code, please click here instead.)

To post feedback, first please login.