Я привык к OO и пытался заставить не-oo делать OO, у меня болит голова ...
При инициализации объекта в VBScript с помощью:
Dim ChartData: Set ChartData = (New ChartDataClass)("progress", "default")
With ChartData
.ColorScheme = "default"
.Essential = 10 ' outer range1
.Lifestyle = 10
Я могу видеть значения .Essential
и т. Д. С помощью:
Dim ChartDetails: Set ChartDetails = ChartDict.Item("Chart1")
Dim ThisChart
For Each strKey In ChartDict
Set ThisChart = ChartDict(strKey)
Response.Write("<br><br><hr>" + CStr(ThisChart.Essential) + " | " + CStr(ThisChart.Lifestyle) + " | " + CStr(ThisChart.Discretionary) + " | " + CStr(ThisChart.Heading1Text))
Response.Write ("<br />")
Next
Моя проблема заключается в том, что я не вижу значения .Essential
внутри класса, когда объект инициализируется:
В моем классе я объявил Public Essential
.Однако, кажется, есть некоторая хитрая вещь Get / Set, которую я, кажется, либо пропускаю (и пытаюсь избежать).
Как я могу получить доступ к параметрам экземпляра, не создавая большой список параметров конструктора в VBScript?