How can I access hidden class variables in VB6?

Question

I have this line in the declarations section:

Private filePath As String

And somthing like this below:

Public Sub Print(filePath As String)
...
End Sub

In the ... part, I want to assign the parameter filePath to the module-level filePath. But how can I get access to the latter one? Thanks a lot.

Answer 1

How about changing the code, to avoid confusion?

Private mFilePath As String

Change either the module level variable or the argument to the print function.

Answer 2

Phoenie I don't think there's anyway to look at the private class variable in VB6/VBA once you have something in local scope that hides it (I had a good old Google search, but nothing came up). If you want to retain the naming convention and not change the existing interface, the only workaround is to develop a private function to access the variable for you. e.g.

Public Sub Print(filePath As String)

    SetMyFilePath filePath

End Sub

Private Sub SetMyFilePath(ByVal passedFilePath as String)

    filePath = passedFilePath

End Sub

Answer 3

If you can't change the name of the parameter in your function you can always define another function:

Public Sub SetfilePath(m As String)
  filePath = m
End Sub

and call SetfilePath in your ... code.

If this were my problem to solve, I'd go figure out why you aren't allowed to change the name of the parameter in your subroutine, and get it changed. Clearly, you're allow to modify your subroutine; why is this particular change disallowed?

Answer 4

So you're allowed to modify the Sub in such a way that would (if possible) allow you to set the Private variable to the local variable...but you're not allowed to rename either parameter? If you can't do Ira Baxter's suggestion either...then your task is impossible in VB6. The restrictions imposed on you sound unreasonable.