Я пытаюсь найти лучший подход для установки и получения свойств во вложенном классе, который я создаю.
У меня есть класс Car, у которого есть вложенный класс ControlPanel, и я хочу сделать свойства панели управления доступными только для класса Car и Control Panel.
(то есть: не в сборке или пространстве имен и не внутри приложение, которое будет использоваться библиотека классов) ... Я изменил свойства доступа к классу на friend, protected friend, private, public, но любая комбинация не соответствует моим ожидаемым результатам.
Я хочу изменить свойства в подпрограмме 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