VBで関数名、サブ名を持ってるシステム変数

質問

Private Function pf1() as boolean
debug.WriteLine( =システム変数= )
End Function

Private Sub ps1()
debug.WriteLine( =システム変数= )
End Sub

これで、それぞれ、pf1、ps1という結果を求めたいです。

回答No.1

Yune-Kichi · ベストアンサー

StackFrameオブジェクトを引数Trueで構築し，
あとはGetFileNameメソッド，GetFileLineNumberメソッドで取得します。

MSDN: StackFrame クラス (System.Diagnostics)
http://msdn.microsoft.com/ja-jp/library/system.diagnostics.stackframe.aspx
MSDN: StackFrame コンストラクタ (Boolean) (System.Diagnostics)
http://msdn.microsoft.com/ja-jp/library/z3732axf.aspx
MSDN: StackFrame.GetFileName メソッド (System.Diagnostics)
http://msdn.microsoft.com/ja-jp/library/system.diagnostics.stackframe.getfilename.aspx
MSDN: StackFrame.GetFileLineNumber メソッド (System.Diagnostics)
http://msdn.microsoft.com/ja-jp/library/system.diagnostics.stackframe.getfilelinenumber.aspx

お礼

ありがとうございました。