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 :