I have an ChartDashboardItem with Checked Legend in my application.It was working fine in previous version (15.1.12) ,but now its not working after upgrading 18.1.5 version.Please check attached screencast and below Code for for your reference…
Private Sub DashboardViewer1_DashboardItemControlCreated(sender As Object, e As DashboardItemControlEventArgs) Handles DashboardViewer1.DashboardItemControlCreated
If e.ChartControl IsNot Nothing Then
Dim cl As New DataSet
cl = KhaDash.GetDataSetForSQLite("Select * from Dashboard Where DName = '" & StrDahboard(3) & "' ", "Dashboard.S3db")
If cl.Tables(0).Rows.Count > 0 Then
If cl.Tables(0).Rows(0)("CheckedLegend").ToString() = "1" Then
'e.ChartControl.Legend.UseCheckBoxes = True
e.ChartControl.Legend.MarkerMode = DevExpress.XtraCharts.LegendMarkerMode.CheckBoxAndMarker
AddHandler e.ChartControl.LegendItemChecked, AddressOf ChartControl_LegendItemChecked
End If
End If
End If
End Sub
Private Sub ChartControl_LegendItemChecked(ByVal sender As Object, ByVal e As DevExpress.XtraCharts.LegendItemCheckedEventArgs)
Dim chartControl1 As ChartControl = CType(sender, ChartControl)
If TypeOf e.CheckedElement Is Series Then
Dim series = CType(e.CheckedElement, Series)
chartControl1.Series(series.LegendText).Visible = e.NewCheckState
End If
End Sub