小编lau*_*tes的帖子

我试图找出在我正在创建的嵌套类中设置和获取属性的最佳方法.

我有一个类,Car有一个嵌套类ControlPanel,并且想要使控制面板的属性只能访问Car和Control Panel类.

(即:不在程序集或命名空间内,不在应用程序中将使用类库)...我已将类访问属性更改为朋友,受保护的朋友,私有,公共,但任何组合都不匹配我的预期结果.

我想更改类的Drive()Sub中的属性,如下所示.

有什么想法吗？

 Public Class Car

    Dim cp As New ControlPanel

    Public Class ControlPanel
      Private _Speedometer As Integer = 0
      Private _Odometer As Integer = 0

      Public Property Speedometer() As Integer
        Get
            Return _Speedometer
        End Get
        Protected Set(ByVal value As Integer)
            _Speedometer = value
        End Set
      End Property

      Public Property Odometer() As Integer
        Get
            Return _Odometer
        End Get
        Protected Set(ByVal value As Integer)
            _Odometer = value
        End Set
     End Property

    End Class

   Public Sub Drive()

        cp.Odometer = …