Posts o[vb6] isDebug
Post
Cancel

o[vb6] isDebug

reference - http://stackoverflow.com/questions/9052024/debug-mode-in-vb-6

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//source - http://newmanservices.com/vbsource/isvbide.htm
//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

origin - http://www.pipiscrew.com/?p=3359 vb6-isdebug

This post is licensed under CC BY 4.0 by the author.
Contents

Trending Tags