Я пытаюсь найти лучший подход для установки и получения свойств во вложенном классе, который я создаю.
У меня есть класс Car, у которого есть вложенный класс ControlPanel, и я хочу сделать свойства панели управления доступными только для класса Car и панели управления.
(то есть: не в сборке или пространстве имен и не в приложении, в котором будет использоваться библиотека классов) ... Я изменил свойства доступа к классу на Friend, Protected Friend, Private, Public, но на любую комбинацию. не соответствует моим ожидаемым результатам.
Я хочу изменить свойства в Sub Drive () класса, как показано ниже.
Есть мысли?
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 = 76323
co.Speedometer = 86
End Sub
End Class