Function variable to be seperate for each call....

[Silhorn]

Hi,

Lets say i have:

Private Function TestFunction (byval VariableA as SomeClass)
Static VariableB as integer

VariableB = variableA.position
Return Nothing
End Function

I then do:

For i = 1 to 100
TestFunction(InputA)
Next

So i used static so variableB still has value from previous loop.

This is no problems, but if i want to do

For i = 1 to 100
TestFunction(InputA)
TestFunction(InputB)
TestFunction(InputC)
Next

It uses the same VariableB to get .position from InputA, InputB and InputC so at the end of the loop, it is VariableB = InputC.

How can i make it use a seperate VariableB for each function call?

So at end of loop,

Function call 1 has VariableB = inputA.position
Function call 2 has VariableB = inputB.position
Function call 2 has VariableB = inputC.position

So how can i make each TestFunctionB line seperate from the others?

Um.. I am not sure if i make any sense but I am in a hurry right now. If it needs to be explained clearer please reply and I try make more sense.

[jmcilhinney]

You can't have your cake and eat it too. If you have one function then you have one Static variable. A single variable can't have three different values. If you want multiple values then you need multiple variables, so you need multiple functions.

[Silhorn]

Ok then,
I guess I have to change my code.

Thanks for the reply

[Pradeep1210]

Public Function TestFunctionA (byval VariableA as SomeClass)
    Static VariableB as integer
    Return TestFunction(VariableA,  VariableB)
End Function

Public Function TestFunctionB (byval VariableA as SomeClass)
    Static VariableB as integer
    Return TestFunction(VariableA,  VariableB)
End Function

Public Function TestFunctionC (byval VariableA as SomeClass)
    Static VariableB as integer
    Return TestFunction(VariableA,  VariableB)
End Function

Private Function TestFunction (byval VariableA as SomeClass, ByRef VariableB as integer)
    'function body goes here
    VariableB = variableA.position
    Return Nothing
End Function

For i = 1 to 100
TestFunctionA(InputA)
TestFunctionB(InputB)
TestFunctionC(InputC)
Next