newman     VBWeb     VBSource     Portfolio    

IsVBIDE

IsLButtonDown

TOP TEN

REPLACE
Returns True if the VB project is run from within the VB development environment. And False if it's run as an executable.
Syntax
If IsVBIDE() Then ...


Source
	Function IsVBIDE() As Boolean
	    Static stBeenHere As Boolean
	    Static stResult As Boolean
	    
	    If stBeenHere Then
	        IsVBIDE = stResult
	    Else
	        stBeenHere = True
	        On Error GoTo Trap
	        Debug.Print 1 / 0
	    End If
	    Exit Function
	Trap:
	    stResult = True
	    IsVBIDE = True
	    Exit Function
	End Function
	


Feedback Comments
Return Address (if you want a reply)


Copyright 1997 NEWMAN Services Corp. All rights reserved.
973-228-5753 pres@newmanservices.com
DECONSTRUCT THIS PAGE