' initialize DrillElement
UltraChart1.Drill.Enabled = True
UltraChart1.Drill.DrillElements = New DrillElement() {New DrillElement}
UltraChart1.Drill.DrillElements(0).DrillDown = New MyDrillDown(UltraChart1)
' ...
Private Sub UltraChart1_ChartDataClicked(ByVal sender As Object, ByVal e As Infragistics.UltraChart.Shared.Events.ChartDataEventArgs) Handles UltraChart1.ChartDataClicked
Dim childTable As DataTable = chartData.Tables("Child")
UltraChart1.Drill.DrillElements(0).DrillDown.Drill(e.DataRow, e.DataColumn, ChartType.LineChart, childTable)
End Sub
' ...
Friend Class MyDrillDown
Implements IDrillDown
Private myChart As UltraChart
Public Sub New(ByVal chart As UltraChart)
myChart = chart
End Sub
Public Sub Drill(ByVal row As Integer, ByVal column As Integer, ByVal chartType As Infragistics.UltraChart.Shared.Styles.ChartType, ByVal dataSource As Object) Implements Infragistics.UltraChart.Resources.IDrillDown.Drill
' implement Drill-Down behavior / initialize child chart
myChart.ChartType = chartType
myChart.Drill.Enabled = False
myChart.Data.DataSource = dataSource
myChart.Data.IncludeColumn(0, False)
myChart.Data.IncludeColumn(1, False)
myChart.Data.DataBind()
End Sub
End Class