Oxyplot Mouse Events (10) MouseDown

MouseDown

Imports Oxyplot.Series
Public Class Form
    Private WithEvents Model As PlotModel
    Private countA As Double
    Private Function CalcFunc(ByVal x As Double) As Double
        Return Math.Sin(countA * x)
    End Function
    Private Sub Form_Load(sender As Object, e As EventArgs) Handles Me.Load
        Model = New PlotModel With {
            .Subtitle = "Left click to add series.",
            .Title = "MouseDown",
            .LegendSymbolLength = 40,
            .Background = OxyColors.White
        }
        PlotView.Model = Model
    End Sub
    Private Sub Model_MouseDown(sender As Object, e As OxyMouseDownEventArgs) Handles Model.MouseDown
        If e.ChangedButton = OxyMouseButton.Left Then
            countA = Model.Series.Count + 1
            Model.Series.Add(New FunctionSeries(AddressOf CalcFunc, 0, 10, 1000))
            Model.InvalidatePlot(True)
            e.Handled = True
        End If
    End Sub
End Class

免責事項