Как использовать подклассы VBScript или установить свойства типа подкласса через подпрограмму или конструктор? - PullRequest
Новая
       6

Как использовать подклассы VBScript или установить свойства типа подкласса через подпрограмму или конструктор?

0 голосов
/ 16 марта 2019

Поскольку VBScript не поддерживает наследование, можно получить / установить значения для подклассифицированных параметров: 

    <%


        Set ChartDict = CreateObject("Scripting.Dictionary")
        Dim ChartData: Set ChartData = new ChartDataClass
        With ChartData
            .Essential = 10
            .Lifestyle = 40
            .Spending  = 30
            ' .Average is calcualted
            .ColorScheme("Default")             ' sets chart colors
        End With
        ChartDict.Add "Chart1", ChartData       ' add chartData object to dictionary


'''''''''''''''''''''''''''''''''''''
'from using ChartData.ColorScheme("Default"), I want to use ChartData.ChartColors.{OuterLeft, OuterFill, OuterRight, etc...}

    '***************************************************************************** 
    '
    ' Description:
    ' An ASP class to
    '   - create a charts class that contains all required parameters
    '   - for use with essential, lifestyle and spending gauge data sets
    '
    '***************************************************************************** 

    Class ChartDataClass
        Public Essential
        Public Lifestyle
        Public Spending
        Dim ChartColors

        ' automatically calculates the average of the three main values
        Public Property Get Average
            Average = Round((Essential + Lifestyle + Spending) / 3, 2)
        End Property

        ' setting colors
        Public Sub ColorScheme(ByVal SchemeName)
            Set ChartColors = New ChartColorsClass

            Select Case SchemeName
                Case LCase("default")
                    With ChartColors
                        .OuterLeft = ""
                        .OuterFill = ""
                        .OuterRight = ""
                        .OuterRight = ""
                        .InnerLeft = "#3180B8"
                        .InnerFill = "#DADADA"
                    End With
        End Select

        Response.Write("<br>SchemeName: " + SchemeName)
        Response.Write("<br>ChartColors.InnerLeft: " + ChartColors.InnerLeft)
    End Sub

End Class

'***************************************************************************** 
'
' Description:
' An ASP class to
'   - contain color parameters
'   - for use with essential, lifestyle and spending gauge data sets
'
'***************************************************************************** 

Class ChartColorsClass
    Public OuterLeft
    Public OuterFill
    Public OuterRight 
    Public InnerLeft
    Public InnerFill
End Class

%>

Я хотел бы установить цветовую схему с помощью ChartData.ColorScheme("Default"), я хочу использовать наборзначения ChartData.ChartColors.{OuterLeft, OuterFill, OuterRight, etc...}

Я мог бы просто установить более длинные свойства имени:

Public ColorOuterLeft, ColorOuterFill, ColorOuterRight, ColorInnerLeft, ColorInnerFill.

Другие опции?

1 Ответ

0 голосов
/ 16 марта 2019

Я только что использовал общедоступные свойства, чтобы обойти это.

Другие предложения, хотя, было бы здорово. 

Class ChartDataClass
    Public Essential
    Public Lifestyle
    Public Spending
    Public ChartTitle

    Public ColorOuterLeft, ColorOuterFill, ColorOuterRight, ColorInnerLeft, ColorInnerFill

    ' automatically calculates the average of the three main values
    Public Property Get Average
        Average = Round((Essential + Lifestyle + Spending) / 3, 2)
    End Property

        'Constructor
    Public Default Function Init()
        SetColorScheme("default")
        Set Init = Me
    End Function

    Public Sub SetChartTitle(ByVal ThisChartTitle)
        ChartTitle = ThisChartTitle
    End Sub

    ' setting colors
    Public Sub SetColorScheme(ByVal SchemeName)
        Select Case LCase(SchemeName)
            Case "default"
                ColorOuterLeft =  "#BFDFA3"
                ColorOuterFill =  "#d1e8f9"
                ColorOuterRight = "#3b9ac8"
                ColorInnerLeft =  "#3180B8"
                ColorInnerFill =  "#DADADA"
                FontColor      =  "#235E7C"
                FontType       =  "OpenSans"
...