Dashboard for WPF - How to Synchronize Master Filter and Drill Down Actions Between Dashboards

C#
using DevExpress.DashboardCommon;
using DevExpress.DashboardCommon.ViewerData;
using DevExpress.DashboardWpf;
using System.Collections.Generic;
using System.Linq;
using System.Windows;

namespace WpfDashboard_LinkedInteractivity
{
    /// <summary>
    /// Interaction logic for ChildWindow.xaml
    /// </summary>
    public partial class ChildWindow : Window
    {
        private DashboardControl dControl;

        public ChildWindow(DashboardControl dControl) 
        {
            InitializeComponent();
            this.dControl = dControl;
        }
        private void Window_Loaded(object sender, RoutedEventArgs e)
        {
            childDashboardControl.LoadDashboard("Data\\DashboardChild.xml");
            DashboardControl dParentControl = this.dControl;
            dParentControl.MasterFilterSet += DControl_MasterFilterSet;
            dParentControl.MasterFilterCleared += DControl_MasterFilterCleared;
            dParentControl.DrillDownPerformed += DControl_DrillDownPerformed;
            dParentControl.DrillUpPerformed += DControl_DrillUpPerformed;
        }

        bool HasDashboardItem(string itemName)
        {
            return childDashboardControl.Dashboard.Items.
                Select(i => i.ComponentName).Contains(itemName);
        }

        private void DControl_MasterFilterSet(object sender, MasterFilterSetEventArgs e)
        {
            if (HasDashboardItem(e.DashboardItemName))
            {
                string itemName = e.DashboardItemName;
                if (e.SelectedValues != null)
                    childDashboardControl.SetMasterFilter(itemName, e.SelectedValues);
                if (e.SelectedRange != null)
                    childDashboardControl.SetRange(itemName, e.SelectedRange);
            }
        }
        private void DControl_MasterFilterCleared(object sender, MasterFilterClearedEventArgs e)
        {
            if (HasDashboardItem(e.DashboardItemName))
            {
                string itemName = e.DashboardItemName;
                if (childDashboardControl.CanClearMasterFilter(itemName))
                    childDashboardControl.ClearMasterFilter(itemName);
            }
        }
        private void DControl_DrillDownPerformed(object sender, DrillActionEventArgs e)
        {
            if (HasDashboardItem(e.DashboardItemName))
            {
                string itemName = e.DashboardItemName;
                DashboardDataRow row = e.Values[0];
                object value = row[row.Length - 1];

                IList<AxisPointTuple> tuple = childDashboardControl.GetAvailableDrillDownValues(itemName);
                IEnumerable<object> availableValues = tuple.Select(t => t.GetAxisPoint().UniqueValue);
                if (availableValues.Contains(value))
                {
                    childDashboardControl.PerformDrillDown(e.DashboardItemName, value);
                }
            }
        }
        private void DControl_DrillUpPerformed(object sender, DrillActionEventArgs e)
        {
            if (HasDashboardItem(e.DashboardItemName))
            {
                string itemName = e.DashboardItemName;
                int level = e.DrillDownLevel;
                AxisPointTuple tuple = childDashboardControl.GetCurrentDrillDownValues(itemName);
                if (tuple != null)
                {
                    AxisPoint point = childDashboardControl.GetCurrentDrillDownValues(itemName).GetAxisPoint();
                    int l = 0;
                    while (point.Parent != null)
                    {
                        l++;
                        point = point.Parent;
                    }
                    if ((level + 1) == l && childDashboardControl.CanPerformDrillUp(itemName))
                        childDashboardControl.PerformDrillUp(itemName);
                }
            }
        }
    }
}

Visual Basic
Imports DevExpress.DashboardCommon
Imports DevExpress.DashboardCommon.ViewerData
Imports DevExpress.DashboardWpf
Imports System.Collections.Generic
Imports System.Linq
Imports System.Windows

Namespace WpfDashboard_LinkedInteractivity
    ''' <summary>
    ''' Interaction logic for ChildWindow.xaml
    ''' </summary>
    Partial Public Class ChildWindow
        Inherits Window

        Private dControl As DashboardControl

        Public Sub New(ByVal dControl As DashboardControl)
            InitializeComponent()
            Me.dControl = dControl
        End Sub
        Private Sub Window_Loaded(ByVal sender As Object, ByVal e As RoutedEventArgs)
            childDashboardControl.LoadDashboard("Data\DashboardChild.xml")
            Dim dParentControl As DashboardControl = Me.dControl
            AddHandler dParentControl.MasterFilterSet, AddressOf DControl_MasterFilterSet
            AddHandler dParentControl.MasterFilterCleared, AddressOf DControl_MasterFilterCleared
            AddHandler dParentControl.DrillDownPerformed, AddressOf DControl_DrillDownPerformed
            AddHandler dParentControl.DrillUpPerformed, AddressOf DControl_DrillUpPerformed
        End Sub

        Private Function HasDashboardItem(ByVal itemName As String) As Boolean
            Return childDashboardControl.Dashboard.Items.Select(Function(i) i.ComponentName).Contains(itemName)
        End Function

        Private Sub DControl_MasterFilterSet(ByVal sender As Object, ByVal e As MasterFilterSetEventArgs)
            If HasDashboardItem(e.DashboardItemName) Then
                Dim itemName As String = e.DashboardItemName
                If e.SelectedValues IsNot Nothing Then
                    childDashboardControl.SetMasterFilter(itemName, e.SelectedValues)
                End If
                If e.SelectedRange IsNot Nothing Then
                    childDashboardControl.SetRange(itemName, e.SelectedRange)
                End If
            End If
        End Sub
        Private Sub DControl_MasterFilterCleared(ByVal sender As Object, ByVal e As MasterFilterClearedEventArgs)
            If HasDashboardItem(e.DashboardItemName) Then
                Dim itemName As String = e.DashboardItemName
                If childDashboardControl.CanClearMasterFilter(itemName) Then
                    childDashboardControl.ClearMasterFilter(itemName)
                End If
            End If
        End Sub
        Private Sub DControl_DrillDownPerformed(ByVal sender As Object, ByVal e As DrillActionEventArgs)
            If HasDashboardItem(e.DashboardItemName) Then
                Dim itemName As String = e.DashboardItemName
                Dim row As DashboardDataRow = e.Values(0)
                Dim value As Object = row(row.Length - 1)

                Dim tuple As IList(Of AxisPointTuple) = childDashboardControl.GetAvailableDrillDownValues(itemName)
                Dim availableValues As IEnumerable(Of Object) = tuple.Select(Function(t) t.GetAxisPoint().UniqueValue)
                If availableValues.Contains(value) Then
                    childDashboardControl.PerformDrillDown(e.DashboardItemName, value)
                End If
            End If
        End Sub
        Private Sub DControl_DrillUpPerformed(ByVal sender As Object, ByVal e As DrillActionEventArgs)
            If HasDashboardItem(e.DashboardItemName) Then
                Dim itemName As String = e.DashboardItemName
                Dim level As Integer = e.DrillDownLevel
                Dim tuple As AxisPointTuple = childDashboardControl.GetCurrentDrillDownValues(itemName)
                If tuple IsNot Nothing Then
                    Dim point As AxisPoint = childDashboardControl.GetCurrentDrillDownValues(itemName).GetAxisPoint()
                    Dim l As Integer = 0
                    Do While point.Parent IsNot Nothing
                        l += 1
                        point = point.Parent
                    Loop
                    If (level + 1) = l AndAlso childDashboardControl.CanPerformDrillUp(itemName) Then
                        childDashboardControl.PerformDrillUp(itemName)
                    End If
                End If
            End If
        End Sub
    End Class
End Namespace

C#
using System.Windows;

namespace WpfDashboard_LinkedInteractivity
{
    /// <summary>
    /// Interaction logic for MainWindow.xaml
    /// </summary>
    public partial class MainWindow : Window
    {
        public MainWindow()
        {
            InitializeComponent();

        }

        private void Window_Loaded(object sender, RoutedEventArgs e)
        {
            mainDashboardControl.LoadDashboard("Data\\Dashboard.xml");
        }

        private void Button_Click(object sender, RoutedEventArgs e)
        {
            ChildWindow childWindow1 = new ChildWindow(mainDashboardControl);
            childWindow1.Show();
        }
    }
}

Visual Basic
Imports System.Windows

Namespace WpfDashboard_LinkedInteractivity
    ''' <summary>
    ''' Interaction logic for MainWindow.xaml
    ''' </summary>
    Partial Public Class MainWindow
        Inherits Window

        Public Sub New()
            InitializeComponent()

        End Sub

        Private Sub Window_Loaded(ByVal sender As Object, ByVal e As RoutedEventArgs)
            mainDashboardControl.LoadDashboard("Data\Dashboard.xml")
        End Sub

        Private Sub Button_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
            Dim childWindow1 As New ChildWindow(mainDashboardControl)
            childWindow1.Show()
        End Sub
    End Class
End Namespace