2020年4月10日金曜日

Oxyplot Mouse Events (12) Hover

Hover

Imports Oxyplot.Series
Public Class Form
    Private WithEvents Model As PlotModel
    Private series As LineSeries
    Private Sub Form_Load(sender As Object, e As EventArgs) Handles Me.Load
        Model = New PlotModel With {
            .Title = "Hover",
            .Background = OxyColors.White
        }
        PlotView.Model = Model
        series = Nothing
    End Sub
    Private Sub Model_MouseEnter(sender As Object, e As OxyMouseEventArgs) Handles Model.MouseEnter
        Model.Subtitle = "The mouse entered"
        series = New LineSeries()
        Model.Series.Add(series)
        Model.InvalidatePlot(False)
        e.Handled = True
    End Sub
    Private Sub Model_MouseMove(sender As Object, e As OxyMouseEventArgs) Handles Model.MouseMove
        If Not IsNothing(series) And Not IsNothing(series.XAxis) Then
            series.Points.Add(series.InverseTransform(e.Position))
            Model.InvalidatePlot(False)
        End If
    End Sub
    Private Sub Model_MouseLeave(sender As Object, e As OxyMouseEventArgs) Handles Model.MouseLeave
        Model.Subtitle = "The mouse left"
        Model.InvalidatePlot(False)
        e.Handled = True
    End Sub

0 件のコメント:

コメントを投稿