Установка свойства класса - PullRequest
0 голосов
/ 13 октября 2019

У меня есть два класса

класс 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

Когда я запускаю код, я получаю сообщение об ошибке: ERROR

И когда я возвращаюсь в редактор VBA,

Property Set KlicovaTeplota(pozice As Integer, Jmeno As String, Hodnota As Double) 

помечается,Я понятия не имею, где мои настройки свойств противоречивы.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...