How to address a variable

[ErikJan]

I have a variable defined like this:

Type MyVar
V1 as Integer
V2 as String
V3 as ..
...
Vx as ...
End Type

I want to call a subroutine with the name of the sub variables and get the value back...

So this call: MySub("V7"), should return the value in MyVar.V7

Is this possible? I Suspect I need some 'indirect' approach...

[HansV]

MyVar is a type, not a variable. So MyVar.V7 doesn't have a value.
If you have a variable W of type MyVar, W.V7 has a value.
But as far as I know, you can't refer to members of W indirectly.
Perhaps an array would be more suitable for your purpose.

[ErikJan]

Yes, sorry, that's how I do it. Pity it can't be done... now I have to be 'creative' somehow (of use an array, but that would require complete code rewrite..)

[HansV]

You could use a Select Case, but that seems rather cumbersome to me:

Code: Select all

Function GetVal(MemberName As String) As Integer
    Select Case MemberName
        Case "V1"
            GetVal = W.V1
        Case "V2"
            GetVal = W.V2
        Case "V3"
            GetVal = W.V3
        ' etc etc
    End Select
End Sub

An array is *much* simpler. Or perhaps a collection or dictionary object? You can refer to a member of a collection/dictionary through its key (a string).

[rory]

Or use a class instead of a type, then use Callbyname

[Jan Karel Pieterse]

I was about to try callbyname. Doesn't it work for a variable?

[rory]

The first argument has to be an object unfortunately.

[Jan Karel Pieterse]

Makes sense.