WebRoot/FusionChartsFree/Code/VBNET/ArrayExample/Combination.aspx.vb

（开头部分） 3KB

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

Imports InfoSoftGlobal
Partial Class Combination
    Inherits System.Web.UI.Page
    Public Function CreateChart() As String
        'In this example, we plot a Combination chart from data contained
        'in an array. The array will have three columns - first one for Quarter Name
        'second one for sales figure and third one for quantity. 

        Dim arrData(4, 3) As String
        'Store Quarter Name
        arrData(0, 1) = "Quarter 1"
        arrData(1, 1) = "Quarter 2"
        arrData(2, 1) = "Quarter 3"
        arrData(3, 1) = "Quarter 4"
        'Store revenue data
        arrData(0, 2) = "576000"
        arrData(1, 2) = "448000"
        arrData(2, 2) = "956000"
        arrData(3, 2) = "734000"
        'Store Quantity
        arrData(0, 3) = "576"
        arrData(1, 3) = "448"
        arrData(2, 3) = "956"
        arrData(3, 3) = "734"

        'Now, we need to convert this data into combination XML. 
        'We convert using string concatenation.
        'strXML - Stores the entire XML
        'strCategories - Stores XML for the <categories> and child <category> elements
        'strDataRev - Stores XML for current year's sales
        'strDataQty - Stores XML for previous year's sales
        Dim strXML As String, strCategories As String, strDataRev As String, strDataQty As String, i As Integer

        'Initialize <graph> element
        strXML = "<graph caption='Product A - Sales Details' PYAxisName='Revenue' SYAxisName='Quantity (in Units)' numberPrefix='$' formatNumberScale='0' showValues='0' decimalPrecision='0' anchorSides='10' anchorRadius='3' anchorBorderColor='FF8000'>"

        'Initialize <categories> element - necessary to generate a multi-series chart
        strCategories = "<categories>"

        'Initiate <dataset> elements
        strDataRev = "<dataset seriesName='Revenue' color='AFD8F8' >"
        strDataQty = "<dataset seriesName='Quantity' parentYAxis='S' color='FF8000' >"


        'Iterate through the data	
        For i = 0 To UBound(arrData) - 1
            'Append <category name='...' /> to strCategories
            strCategories = strCategories & "<category name='" & arrData(i, 1) & "' />"
            'Add <set value='...' color='...'/> to both the datasets

            strDataRev = strDataRev & "<set value='" & arrData(i, 2) & "' />"
            strDataQty = strDataQty & "<set value='" & arrData(i, 3) & "' />"
        Next

        'Close <categories> element
        strCategories = strCategories & "</categories>"

        'Close <dataset> elements
        strDataRev = strDataRev & "</dataset>"
        strDataQty = strDataQty & "</dataset>"
后面还有 8 行代码，购买后查看完整代码

24 小时内免费解锁 3 个项目，之后 1 算力/个。 规则说明

AI 解读 AI

登录后可用，每次 10 算力，解读结果公开显示在下面。

还没有人解读过这个文件。