This repository has been archived by the owner on Oct 9, 2023. It is now read-only.
/
MainWindow.xaml.vb
43 lines (37 loc) · 1.6 KB
/
MainWindow.xaml.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Imports DevExpress.Xpf.Bars
Imports DevExpress.Xpf.Charts
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Input
Namespace WpfApplication14
''' <summary>
''' Interaction logic for MainWindow.xaml
''' </summary>
Public Partial Class MainWindow
Inherits Window
Public Sub New()
Me.InitializeComponent()
End Sub
Private Sub ccmHide_ItemClick(ByVal sender As Object, ByVal e As ItemClickEventArgs)
Dim menu As PopupMenu = TryCast(CType(sender, BarItem).Parent, PopupMenu)
Dim targetObjects As Object() = TryCast(menu.Tag, Object())
Dim series As Series = TryCast(targetObjects(0), Series)
series.Visible = False
End Sub
Private Sub ccmInfo_ItemClick(ByVal sender As Object, ByVal e As ItemClickEventArgs)
Dim menu As PopupMenu = TryCast(CType(sender, BarItem).Parent, PopupMenu)
Dim targetObjects As Object() = TryCast(menu.Tag, Object())
Dim series As Series = TryCast(targetObjects(0), Series)
Title = series.DisplayName
End Sub
Private Sub PopupMenu_Opening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
Dim hitInfo = Me.chartControl1.CalcHitInfo(Mouse.GetPosition(Application.Current.MainWindow))
If Not hitInfo.InSeries Then
e.Cancel = True
Else
Dim menu As PopupMenu = CType(sender, PopupMenu)
menu.Tag = New Object() {hitInfo.Series}
End If
End Sub
End Class
End Namespace