Is there a way to refer to the Function/Sub name?

[Dean Slindee]

Is there a way to refer to the name of the function the code is currently
within? I would like to identifiy on a MessageBox the function or sub
containing the message box without hardcoding it in a string, something like
this:

MessageBox.Show("The message to the user." & ControlChars.NewLine & _

"From:" & Me.Name & Function.Name, "Message Title", buttons)

 

[Mythran]

Is there a way to refer to the name of the function the code is currently
within? I would like to identifiy on a MessageBox the function or sub
containing the message box without hardcoding it in a string, something
like
this:

MessageBox.Show("The message to the user." & ControlChars.NewLine & _

"From:" & Me.Name & Function.Name, "Message Title", buttons)

Dean,

Dim funcName As String = _
System.Reflection.MethodInfo.GetCurrentMethod().Name

MsgBox( _
"The message to the user." & vbNewLine & _
"From: " & Me.Name & "." & funcName, _
"Message Titel", _
buttons _
)

HTH

Mythran

 

[Zoury]

Hi Dean !

You may use the System.Diagnostics.StackTrace class for this :
'***
Option Explicit On

Module Module1

Sub Main(ByVal args As String())

Func1()
Console.WriteLine(New StackTrace().GetFrame(0).GetMethod().Name)

Console.WriteLine()
Console.WriteLine("Press Enter to quit...")
Console.ReadLine()

End Sub

Sub Func1()
Func2()
Console.WriteLine(New StackTrace().GetFrame(0).GetMethod().Name)
End Sub

Sub Func2()
Console.WriteLine(New StackTrace().GetFrame(0).GetMethod().Name)
End Sub

End Module
'***

 

[Zoury]

System.Reflection.MethodInfo.GetCurrentMethod().Name

Well... I did learn something today ! <vbg>

 

[Mythran]

Well... I did learn something today ! <vbg>

I use Reflection a lot for internal utility routines I have for my
testing applications (Console programs I use to help others in the
newsgroups...) I also had the need to print out the current method name and
didn't like having to type up the name of the method I was currently in for
every method...

Mythran