VB 6.0: Aufrufende Funktion bestimmen

Computer: Software & Programmierung Visual Basic
#1

Hallo Leute,

gibt es in VB eigentlich eine Möglichkeit festzustellen, von welcher Prozedur eine andere Prozedur / Funktion aufgerufen wurde ?

Bsp:

sub Aufruf()
call Test
end sub

sub Test
msgbox WelcheFunktion()
end sub

Vielen Dank für eure Hilfe

Tom

#2

Weiß nicht, aber manuell vielleicht:

gibt es in VB eigentlich eine Möglichkeit festzustellen, von
welcher Prozedur eine andere Prozedur / Funktion aufgerufen
wurde ?

Irgendwo hatte ich mal „Aufrufe nachverfolgen“ oderso gesehen. Weiß aber nicht mehr, ob es in VB oder Delphi oder sogar BC4 war.

Ich würde folgendes machen:

Entweder ganz einfach bei den in Frage kommenden aufrufenden Subs/Funcs als erste Zeile „Debug.Print Name“ hinzufügen oder so:

sub Aufruf()
 call Test("Aufruf")
end sub
 
sub Test(WerWarDas as String)
 msgbox WerWarDas
end sub

Kristian

#3

Wie ist das, wenn ich eine Form aufrufe. Kann ich dieser Form einen Parameter mit übergeben, also bspw. welcher cmd-Button die Form aufgerufen hat.

Gruß Tom

#4

Nein

Wie ist das, wenn ich eine Form aufrufe. Kann ich dieser Form
einen Parameter mit übergeben, also bspw. welcher cmd-Button
die Form aufgerufen hat.

Nein, also meines Wissens ist unter „Form aufrufen“ schlicht Form_.Show_ zu verstehen. Da ist nichts mit Parametern (wenn man vom Modalwert absieht).
Hier würde ich um das Form_.Show_ herum mit Debug.Print oder was vergleichbarem arbeiten. Oder Du definierst in der Form noch eine globale Variable, die Du vor dem Form_.Show_ setzt. In der Form steht oben:

Public WerWarDas As String
...

Und der Aufruf wäre dann so:

Form.WerWarDas = "AufrufenderButton"
Form.Show
...

Was Du dann mit der Variable machst, ist Dir ja überlassen.

Kristian

#5

Vielen Dank, das wars !!’
Merci …

#6

Wie ist das, wenn ich eine Form aufrufe. Kann ich dieser Form
einen Parameter mit übergeben, also bspw. welcher cmd-Button
die Form aufgerufen hat.

über Umwege. mache eine Public-Variable „Aufrufer“ in der Form.

'andere Form 
frmIrgendwas.Aufrufer="dieseForm"
frmIrgendwas.Show
...





'Form "frmIrgendwas"
Public Aufrufer as String
Sub Form\_Load
 If Aufrufer="Form1" then 
 tueEtwas
 else
 tueEtwasAnderes
 end if
end sub
...

cu, holli