ディバックモードかコンパイル済みかを知る方法 (ID:85538)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 私の場合は、 If IsDesign() Then MsgBox "デバッグ環境です。" Else MsgBox "コンパイルされています。 End If にて処理できるよう、標準モジュールに以下のような関数を用意しています。 '*********1*********2*********3*********4*********5*********6*********7********* ' 名 称 : IsDesign ' 説 明 : 開発環境で実行されているのか、コンパイル後の実行なのかを判断する。 ' 引 数 : なし ' 戻り値: 開発環境(IDE)であれば True、コンパイル後(EXE等)ならば False '*********1*********2*********3*********4*********5*********6*********7********* Public Property Get IsDesign() As Boolean IsDesign = IsDesign__(True) End Property Private Function IsDesign__(ByRef bolIsDesign As Boolean) As Boolean '引数値を反転する bolIsDesign = Not bolIsDesign If bolIsDesign = False Then '開発環境(IDE)の場合、下記のAssertメソッドが実行されるので、 '引数が再度反転し、True(コンパイル済み環境である事を示す)を '返すようにようになる。 Debug.Assert IsDesign__(bolIsDesign) End If IsDesign__ = bolIsDesign End Function