• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 386
  • Last Modified:

Getting the calling function NAME at run time

Hi,

I have a situation like this: I have some function, and when it starts I want to know which function called it.

For example, I have these functions F1() and F2() that call F3(). When I start F3 from F1 I want to get a message box
that says "Function F1() called me".

How can I do that? And I don't mean solutions like keeping a global string and fill the name of the current function whenever it starts. I want it to happen automatically!

Is it possible?
0
yronnen
Asked:
yronnen
  • 2
  • 2
  • 2
  • +4
1 Solution
 
clifABBCommented:
No.
0
 
sirigereCommented:
I think this might solve the problem
In the Global module declare
Global FunctionCalled as string
sub f1()
msgbox functioncalled
functioncalled="function F1"
f2
end sub
sub f2()
msgbox functioncalled
functioncalled="function F2"
f3
end sub
sub f3()
msgbox functioncalled
functioncalled="function f3"
f2
end sub
sub main
functioncalled=""
f1
end sub
0
 
bin_huwairibCommented:
I don't think this is possible in VB,  yronnen.
Beside you are loosing nothing when you use a global variable.

8) Bin Huwairib

0
Introducing Cloud Class® training courses

Tech changes fast. You can learn faster. That’s why we’re bringing professional training courses to Experts Exchange. With a subscription, you can access all the Cloud Class® courses to expand your education, prep for certifications, and get top-notch instructions.

 
yronnenAuthor Commented:
What I mean is that I want it to be done automatically!
I don't want to go to each function and add a line with its name.
0
 
sirigereCommented:
To yronnen
Can i see the part of code where you are facing this problem?
0
 
raygibbinsCommented:
The global variable woudn't work, because depending on where you are in the program, other functions could also be setting this variable at the same time.
You would have to pass the FunctionName as a string to ensure that the called function knows who called it.

Paste this into a form, and Click it

Function CalledFunction(ByVal CallerFunctionName As String)
    MsgBox CallerFunctionName & " Called Me"
End Function
Private Sub Form_Click()
    CalledFunction "Form_Click"
End Sub

0
 
yronnenAuthor Commented:
You don't understand what I mean. I DO NOT want to go to every function that calls F3() and call it using their names. I want to get their names automatically.
0
 
deightonprogCommented:
yronnen

I understand what you mean, but I don't know of any way to do it - but why do you want to do this?  What is the actual predicament you are facing ?

raygibbins,

Is that right?  That would mean VB was running more than one bit of code at once - I didn't think it could suddenly fly off to another routine unless there was a DoEvents - I never thought of this I'm scared.


0
 
rmichelsCommented:
FailSafe from NuMega can help you manage this problem, but...it does automatically add lines to each function to track the calling sequence.  Not what you want, but it does automate the process.

Also, under VB5 you can compile with symbols. Not sure it you can easily get to these symbols at run time (I think PSAPI.DLL under WIN32 has support to get this debug information)...but normally you would not ship a program with symbolic debug on.
0
 
clifABBCommented:
Based on comments subsequent to my short comment.  You can rest assured that it cannot be done.  Even the best profilers will place code in each module so that it can keep track of which modules are called from where.

Therefore, I feel confident that I can submit this as an answer.

"It is not possible."
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

  • 2
  • 2
  • 2
  • +4
Tackle projects and never again get stuck behind a technical roadblock.
Join Now