ModuleMaster/viewsinglegraph.aspx.vb - main - ivan/ModMas

ModuleMaster/viewsinglegraph.aspx.vb
82 строки3 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6

Partial Class viewSingleGraph
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Dim paramsstring As String = Nothing
        If IsPostBack Then
            Dim c As Collection = Session("graph_params_" & hfTableName.Value)
            If Not IsNothing(c) Then
                If hfCurrentGraphNo.Value = c.Count Then
                    If hfTableID.Value <> -1 Then
                        Response.Redirect("~/viewgraph.aspx?tableid=" & hfTableID.Value & "&mode=slideshow")
                    Else
                        hfCurrentGraphNo.Value = 0
                    End If
                End If
                paramsstring = c(hfCurrentGraphNo.Value)
                hfCurrentGraphNo.Value += 1
            End If
        Else
            paramsstring = Request.QueryString("params")
        End If

        If Not IsNothing(Request.QueryString("tableid")) Then
            hfTableID.Value = Request.QueryString("tableid")
        End If

        Dim mode As String = Request.QueryString("mode")
        If Not IsNothing(mode) Then
            If mode = "slideshow" Then
                Timer1.Enabled = True
                graphaspnet1.querystringparams = ""
            End If
        Else
            graphaspnet1.querystringparams = "&mode=slideshow"
            Timer1.Enabled = False
        End If

        If Not IsNothing(paramsstring) Then
            DrawGraph(paramsstring)
        End If

    End Sub

    Private Sub DrawGraph(paramsstring As String)
        Dim params() As String = paramsstring.Split("|")
        If params.Count > 6 Then
            graphaspnet1.targetColumn = params(0)
            graphaspnet1.kpiColumn = params(1)
            graphaspnet1.weeks = params(2)
            graphaspnet1.tableName = params(3)
            graphaspnet1.kpiName = params(4)
            graphaspnet1.highlight = params(5)
            graphaspnet1.targets = params(6)
            'Full HD

            'graphaspnet1.width = 1900
            'graphaspnet1.height = 1060

            'Smart TV
            graphaspnet1.width = 1690
            graphaspnet1.height = 760

            graphaspnet1.MapAreaAttributes = ""

            graphaspnet1.Title.Font = New System.Drawing.Font("Tahoma", 15, Drawing.FontStyle.Bold)

            graphaspnet1.Series(0).BorderWidth = 4
            graphaspnet1.Series(0).MarkerSize = 10

            graphaspnet1.Series(1).BorderWidth = 4
            graphaspnet1.Series(1).MarkerSize = 10

            graphaspnet1.DataBind()
        End If
    End Sub

    Protected Sub Page_PreRender(sender As Object, e As System.EventArgs) Handles Me.PreRender
        hfTableName.Value = graphaspnet1.tableName
    End Sub


End Class