Private Sub Button1_Click(。。。) ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' 何か処理 Console.WriteLine( " デバッグ情報 " ) End Sub
Private Sub Button1_Click(。。。) ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' 何か処理 MyDebugOut(" デバッグ情報 ") End Sub ''' <Summary>デバッグ情報出力</Summary> Private Sub MyDebugOut(ByVal outputInfo As String) Console.WriteLine( outputInfo ) Debug.WriteLine( outputInfo ) End Sub