VB-Homepage Tipp 391

Überprüfen, ob Programm kompiliert (EXE)
oder in der Entwicklungsumgebung (IDE) läuft

Manchmal verliert man schon mal die Übersicht, wenn man viel an seinem Programm basteln und testen muß.
Oder man will in der Entwicklungsumgebung Code zum Test ausführen, der im
fertigen Programm keine Rolle spielt und dort nicht abgearbeitet werden soll.

Dann sind Sie entweder ein sehr gewissenhafter Mensch, der alles
gaaaaannnnzzz lllllaaaaannnnnnggggggsssssaaaaaaammmmmmm   macht,
wie der Rudi halt, oder Sie schreiben so kleine Programme, daß Sie sich nicht
verzetteln, oder Sie nutzen, eigentlich ein Bug, den nachfolgenden Tipp, mit
dem Sie im Programm ständig prüfen können, wo das Programm läuft.

Der ganze Witz ist eine kleine Funktion, die Sie Ihrem Programm hinzufügen.

Function Entwicklungsumgebung() As Boolean

On Error Resume Next                              'ein Muß, damit es weiter geht
Err.Clear                                                      'Errorcode zurücksetzen

Debug.Print 1 / 0                                       ' Fehler, bei Ausführung als Exe

'tritt ein Fehler auf, wird Errorcode gesetzt - dann Ausführung als EXE
Entwicklungsumgebung = Err.Number <> 0

End Function


Wenn Sie nun etwas nur in der Entwicklungsumgebung ausführen lassen wollen,
benötigen Sie nur noch eine kleine Abfrage.

If Not Entwicklungsumgebung() Then
     MsgBox "Ich bin eine EXE :-)"
End if

Tipp-Download

Quelle :

Zurück zur Übersichtsseite