Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Windows
Imports DevExpress.Xpf.Charts

Namespace ChartsDemo
	Partial Public Class Bar3DControl
		Inherits ChartsDemoModule
		Public Overrides ReadOnly Property ActualChart() As ChartControl
			Get
				Return chart
			End Get
		End Property

		Public Sub New()
			InitializeComponent()
			lbModel.SelectedItem = Bar3DModelKindHelper.FindActualBar3DModelKind((CType(chart.Diagram.Series(0), BarSeries3D)).ActualModel)
		End Sub
		Private Sub chbVisible_Checked(ByVal sender As Object, ByVal e As RoutedEventArgs)
			If chart IsNot Nothing Then
				For Each series As BarSeries3D In (CType(chart.Diagram, XYDiagram3D)).Series
					series.LabelsVisibility = True
				Next series
			End If
		End Sub
		Private Sub chbVisible_Unchecked(ByVal sender As Object, ByVal e As RoutedEventArgs)
			If chart IsNot Nothing Then
				For Each series As BarSeries3D In (CType(chart.Diagram, XYDiagram3D)).Series
					series.LabelsVisibility = False
				Next series
			End If
		End Sub
		Private Sub lbModel_SelectedIndexChanged(ByVal sender As Object, ByVal e As RoutedEventArgs)
			Dim barKind As Bar3DKind = TryCast(lbModel.SelectedItem, Bar3DKind)
			If barKind IsNot Nothing Then
				Bar3DModelKindHelper.SetModel(chart, CType(Activator.CreateInstance(barKind.Type), Bar3DModel))
			End If
		End Sub
	End Class
End Namespace