У меня такая задача... Нужно сделать некий класс свойством другого класса.
Я пробовал как показано ниже, но что-то ничего не получается...
- Код: Выделить всё
Public Class ClassCalc
Private Class MyRangeNumber
Public CurValue As Double
Public ComValue As Double
Public MinValue As Double
Public MaxValue As Double
End Class
Dim ConstMtm As New MyRangeNumber
Public Property ConstMiontm() As Object
Get
Return ConstMtm
End Get
Set(ByVal value As Object)
ConstMtm = value
End Set
End Property
End Class
Прочитать отсюда я свойство могу в виде:
- Код: Выделить всё
Dim i As integer
i = NewCalc.ConstMiontm.CurValue
А вот так записать в "свойство-объект" не получается, возникает ошибка:
- Код: Выделить всё
NewCalc.ConstMiontm.CurValue = 256
Для решения моей задачаи, возможно ли что-то типа этого:
- Код: Выделить всё
Public Class ClassCalc
Private Class MyRangeNumber
Public CurValue As Double
Public ComValue As Double
Public MinValue As Double
Public MaxValue As Double
End Class
Dim ConstMtm As New MyRangeNumber
Public Property ConstMiontm() As MyRangeNumber
Get
Return ConstMtm
End Get
Set(ByVal value As MyRangeNumber)
ConstMtm = value
End Set
End Property
End Class
Но повторяю... Этот код воще не компилируется.
Спасибо!
