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 件のコメント:
コメントを投稿