ServiceApp/TestWcronService/declares.bas

Attribute VB_Name = "declares"
Option Explicit

Declare Sub DebugBreak Lib "kernel32" ()

Enum svcApplicationMode
    appMode_Standalone
    appMode_NTService
End Enum

Function IsIDE() As Boolean
    On Error GoTo ErrHandler
    'because debug statements are ignored when
    'the app is compiled, the next statment will
    'never be executed in the EXE.
    Debug.Print 1 / 0
    IsIDE = False
Exit Function
ErrHandler:
    'If we get an error then we are
    'running in IDE / Debug mode
    IsIDE = True
End Function

' --------------------------------------------------------------------
' just a little helper-function to do some simple reporting to our main-form
Sub setCurrentStatus(txtStatus As String)
    With FormMain.Text_Status
        .Text = .Text & txtStatus & vbCrLf
    End With
End Sub

1	Attribute VB_Name = "declares"
2	Option Explicit
3
4	Declare Sub DebugBreak Lib "kernel32" ()
5
6	Enum svcApplicationMode
7	appMode_Standalone
8	appMode_NTService
9	End Enum
10
11	Function IsIDE() As Boolean
12	On Error GoTo ErrHandler
13	'because debug statements are ignored when
14	'the app is compiled, the next statment will
15	'never be executed in the EXE.
16	Debug.Print 1 / 0
17	IsIDE = False
18	Exit Function
19	ErrHandler:
20	'If we get an error then we are
21	'running in IDE / Debug mode
22	IsIDE = True
23	End Function
24
25	' --------------------------------------------------------------------
26	' just a little helper-function to do some simple reporting to our main-form
27	Sub setCurrentStatus(txtStatus As String)
28	With FormMain.Text_Status
29	.Text = .Text & txtStatus & vbCrLf
30	End With
31	End Sub
32
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26