У меня есть два класса
класс Table, который содержит 2 информации (имя и значение)
Option Explicit
Private dName As String
Private dValue As Double
Property Get Name() As String
Name = dName
End Property
Property Let Name(Jmeno As String)
dName = Jmeno
End Property
Property Get Value() As Double
Value = dValue
End Property
Property Let Value(Hodnota As Double)
dValue = Hodnota
End Property
и основной класс, в котором я использую объекты (в массиве) класса Table.
Option Explicit
Private dklicovaTeplota() As cls_Table
Property Get KlicovaTeplota(pozice As Integer) As cls_Table
Set KlicovaTeplota = dklicovaTeplota(pozice)
End Property
Property Set KlicovaTeplota(pozice As Integer, Jmeno As String, Hodnota As Double)
Dim temp As New cls_Table
temp.Name = Jmeno
temp.Value = Hodnota
Set dklicovaTeplota(pozice) = temp
End Property
Когда я запускаю код, я получаю сообщение об ошибке:
И когда я возвращаюсь в редактор VBA,
Property Set KlicovaTeplota(pozice As Integer, Jmeno As String, Hodnota As Double)
помечается,Я понятия не имею, где мои настройки свойств противоречивы.