Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click #If DEBUG Then MsgBox("デバッグ実行中です") #Else MsgBox("通常実行中です。") #End If End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If IsInVisualStudio() Then MsgBox("Visual Studio上で実行されています。") Else MsgBox("直接実行されています。") End If End Sub Private Function IsInVisualStudio() As Boolean If AppDomain.CurrentDomain.FriendlyName.Contains(".vshost.") Then Return True Else Return False End If End Function