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
' 子グラフを初期化します
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