Обновление графика - Visual Basic .NET - Ответ 4765029

    Private Sub Equalizer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler Me.pictureEQGraph.Paint, AddressOf pictureEQGraph_Paint
    End Sub
 
    Private Sub pictureEQGraph_Paint(ByVal sender As Object, ByVal eventArg As System.Windows.Forms.PaintEventArgs)
        Dim Graph As GraphObject
        SetGraphParameters(Graph)
        Dim x As Single 'x value
        Dim y As Single 'x value
        Dim PictureWidth As Single 'Width of coordinate system field
        Dim PictureHeight As Single 'Height of coordinate system field
        Dim drawFont As New Font("Arial", 7)
        Dim drawBrush As New SolidBrush(Color.Yellow)
        Dim blackPen As New Pen(Color.LimeGreen, 0.1)
        Dim bluePen As New Pen(Color.Red, 1.5)
        Dim graphicsObj As Graphics = eventArg.Graphics
        Dim chartMatrix As New Drawing2D.Matrix()
        graphicsObj.Transform = chartMatrix
        Xmin = Graph.MinX 'minimum X value for the scale
        Xmax = Graph.MaxX 'maximum X value for the scale
        Ymin = Graph.MinY 'minimum Y value for the scale
        Ymax = Graph.MaxY 'maximum Y value for the scale
        BORDER_SPACE = 300 / 20 'Distance from the Picture Box borders (can be selected)
 
        With pictureEQGraph
           graphicsObj.PageUnit = GraphicsUnit.Point ' set Point unit = 20 twips
            'blackPen.EndCap = Drawing2D.LineCap.ArrowAnchor
            PictureWidth = 235
            PictureHeight = 16
            betweenMarkersX = PictureWidth / (Xmax - Xmin)
            betweenMarkersY = PictureHeight / (Ymax - Ymin)
            graphicsObj.TranslateTransform(0.0F, PictureHeight + 9)
            graphicsObj.ScaleTransform(1, -1) ' Scales an element by the specified ScaleX and ScaleY amounts
            graphicsObj.DrawLine(blackPen, XinPoints(Xmin) - 100, YinPoints(0), XinPoints(Xmax) + 5, YinPoints(0))
 
            'Draw test line from 0,0
            x = 0
            y = eqprogress1.Value
            graphicsObj.DrawLine(bluePen, XinPoints(1), YinPoints(eqprogress2.Value), XinPoints((Xmax - Xmin) / 20 * x + Xmin), YinPoints(y))
            x = 1
            y = eqprogress2.Value
            graphicsObj.DrawLine(bluePen, XinPoints(2), YinPoints(eqprogress3.Value), XinPoints((Xmax - Xmin) / 20 * x + Xmin), YinPoints(y))
            x = 2
            y = eqprogress3.Value
            graphicsObj.DrawLine(bluePen, XinPoints(3), YinPoints(eqprogress4.Value), XinPoints((Xmax - Xmin) / 20 * x + Xmin), YinPoints(y))
            x = 3
            y = eqprogress4.Value
            graphicsObj.DrawLine(bluePen, XinPoints(4), YinPoints(eqprogress5.Value), XinPoints((Xmax - Xmin) / 20 * x + Xmin), YinPoints(y))
            x = 4
            y = eqprogress5.Value
            graphicsObj.DrawLine(bluePen, XinPoints(5), YinPoints(eqprogress6.Value), XinPoints((Xmax - Xmin) / 20 * x + Xmin), YinPoints(y))
 
            x = 5
            y = eqprogress6.Value
            graphicsObj.DrawLine(bluePen, XinPoints(6), YinPoints(eqprogress7.Value), XinPoints((Xmax - Xmin) / 20 * x + Xmin), YinPoints(y))
            x = 6
            y = eqprogress7.Value
            graphicsObj.DrawLine(bluePen, XinPoints(7), YinPoints(eqprogress8.Value), XinPoints((Xmax - Xmin) / 20 * x + Xmin), YinPoints(y))
            x = 7
            y = eqprogress8.Value
            graphicsObj.DrawLine(bluePen, XinPoints(8), YinPoints(eqprogress9.Value), XinPoints((Xmax - Xmin) / 20 * x + Xmin), YinPoints(y))
            x = 8
            y = eqprogress9.Value
            graphicsObj.DrawLine(bluePen, XinPoints(9), YinPoints(eqprogress10.Value), XinPoints((Xmax - Xmin) / 20 * x + Xmin), YinPoints(y))
            'x = 9
            'y = -2
            'graphicsObj.DrawLine(bluePen, XinPoints(10), YinPoints(12), XinPoints((Xmax - Xmin) / 20 * x + Xmin), YinPoints(y))
            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
        End With
    End Sub