Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System.Collections.Generic
Imports DevExpress.Utils
Imports DevExpress.XtraTreeList

Namespace DevExpress.XtraSpreadsheet.Demos
	Public Class TreeListRootNode
		Implements TreeList.IVirtualTreeListData
		Private privateData As List(Of SpreadsheetExampleGroup)
		Public Property Data() As List(Of SpreadsheetExampleGroup)
			Get
				Return privateData
			End Get
			Set(ByVal value As List(Of SpreadsheetExampleGroup))
				privateData = value
			End Set
		End Property
		Private Sub VirtualTreeGetCellValue(ByVal info As VirtualTreeGetCellValueInfo) Implements TreeList.IVirtualTreeListData.VirtualTreeGetCellValue
			info.CellData = " root"
		End Sub
		Private Sub VirtualTreeGetChildNodes(ByVal info As VirtualTreeGetChildNodesInfo) Implements TreeList.IVirtualTreeListData.VirtualTreeGetChildNodes
			info.Children = Data
		End Sub
		Private Sub VirtualTreeSetCellValue(ByVal info As VirtualTreeSetCellValueInfo) Implements TreeList.IVirtualTreeListData.VirtualTreeSetCellValue
		End Sub
	End Class
	Public Class SpreadsheetExampleGroup
		Implements TreeList.IVirtualTreeListData
		Private name_Renamed As String
		Private innerList As List(Of SpreadsheetExample)
		Public Sub New(ByVal name As String, ByVal examples As List(Of SpreadsheetExample))
			Guard.ArgumentNotNull(name, "name")
			Guard.ArgumentNotNull(examples, "examples")
			Me.name_Renamed = name
			Me.innerList = examples
		End Sub
		Public ReadOnly Property Name() As String
			Get
				Return name_Renamed
			End Get
		End Property
		Public ReadOnly Property Examples() As List(Of SpreadsheetExample)
			Get
				Return innerList
			End Get
		End Property

		Private Sub VirtualTreeGetCellValue(ByVal info As VirtualTreeGetCellValueInfo) Implements TreeList.IVirtualTreeListData.VirtualTreeGetCellValue
			info.CellData = Name
		End Sub

		Private Sub VirtualTreeGetChildNodes(ByVal info As VirtualTreeGetChildNodesInfo) Implements TreeList.IVirtualTreeListData.VirtualTreeGetChildNodes
			info.Children = innerList
		End Sub

		Private Sub VirtualTreeSetCellValue(ByVal info As VirtualTreeSetCellValueInfo) Implements TreeList.IVirtualTreeListData.VirtualTreeSetCellValue
		End Sub
	End Class

	Public Class SpreadsheetExample
		Implements TreeList.IVirtualTreeListData
		Private privateCode As String
		Public Property Code() As String
			Get
				Return privateCode
			End Get
			Set(ByVal value As String)
				privateCode = value
			End Set
		End Property
		Private privateRegionName As String
		Public Property RegionName() As String
			Get
				Return privateRegionName
			End Get
			Set(ByVal value As String)
				privateRegionName = value
			End Set
		End Property
		Private privateGroup As String
		Public Property Group() As String
			Get
				Return privateGroup
			End Get
			Set(ByVal value As String)
				privateGroup = value
			End Set
		End Property

		Private Sub VirtualTreeGetCellValue(ByVal info As VirtualTreeGetCellValueInfo) Implements TreeList.IVirtualTreeListData.VirtualTreeGetCellValue
			info.CellData = RegionName
		End Sub

		Private Sub VirtualTreeGetChildNodes(ByVal info As VirtualTreeGetChildNodesInfo) Implements TreeList.IVirtualTreeListData.VirtualTreeGetChildNodes
		End Sub

		Private Sub VirtualTreeSetCellValue(ByVal info As VirtualTreeSetCellValueInfo) Implements TreeList.IVirtualTreeListData.VirtualTreeSetCellValue
		End Sub
	End Class
End Namespace