Oxyplot Mouse Events (15) RectangleAnnotation click

RectangleAnnotation click

Imports Oxyplot.Axes
Imports Oxyplot.Annotations
Public Class Form
    Private WithEvents RectAnt As RectangleAnnotation
    Private plotModel As PlotModel
    Private clickTimes As Integer
    Private Sub Form_Load(sender As Object, e As EventArgs) Handles Me.Load
        plotModel = New PlotModel With {
            .Title = "RectangleAnnotation click",
            .Background = OxyColors.White
        }
        Dim linearAxisX = New LinearAxis With {
            .Position = AxisPosition.Bottom
        }
        plotModel.Axes.Add(linearAxisX)
        Dim linearAxisY = New LinearAxis()
        plotModel.Axes.Add(linearAxisY)
        RectAnt = New RectangleAnnotation With {
            .MinimumX = 10,
            .MaximumX = 60,
            .MinimumY = 10,
            .MaximumY = 20
        }
        plotModel.Annotations.Add(RectAnt)
        PlotView.Model = plotModel
        clickTimes = 0
    End Sub
    Private Sub RectAnt_MouseDown(sender As Object, e As OxyMouseDownEventArgs) Handles RectAnt.MouseDown
        clickTimes = clickTimes + 1
        RectAnt.Text = String.Format("Clicked {0} times.", clickTimes)
        plotModel.InvalidatePlot(False)
    End Sub
End Class

免責事項