从另一个类访问公共类中的私有函数和变量

Question

正如标题所说，我遇到了一个问题，我必须在类中调用某些私有函数。

Public Class Class1
private Type
Private Name
private Function()

我已尝试执行以下操作：

Public Class Class1
  Dim copyClass As Class1
  Public Shared Instance As Class1

  Public Sub New()
    MyBase.New()
    copyClass = Me
  End Function
  Public Function createInstance() As Class1
    Instance = copyClass
    Return Instance
  End Function

然后在我的另一个班级 Class2 中，我添加了：

  Public Property callingObject As wdCopyPatch
    Get
      Return copyObject
    End Get
    Set(value As wdCopyPatch)
      copyObject = value
    End Set
  End Property

现在，我可以在 Class1 的函数中执行以下操作

Dim Ob as Class2
Ob.callingObject = createInstance() 

这允许我使用 Class2 中的 copyObject，但只允许我访问 Class1 的公共函数和变量。我该怎么做才能访问 Class1 的私有函数和变量而不公开所有内容？

感谢任何建议或 cmets :)

Answer 1

根据我的 cmets，这里有一些代码：

Sandbox 是我的类，它有一个私有函数，以及一个从该私有函数获取信息的公共属性。

otherclass，调用沙盒的这个属性。

Public Class sandbox

    Public ReadOnly Property myHiddenValue() As String
        Get
            Return get_that_sucker()
        End Get

    End Property

    Private Function get_that_sucker()
        Return "boo!"
    End Function

End Class

Public Class otherClass

    Public Sub mySub()
        Dim mysandbox As New sandbox
        MsgBox(mysandbox.myHiddenValue)
    End Sub

End Class