Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Xml.Serialization
Imports System.Collections
Imports System.Reflection
Imports DevExpress.Utils
Imports DevExpress.Xpf.DemoBase.Helpers
Imports System.IO
Imports System.ComponentModel

Namespace TreeListDemo
	<XmlRoot("Countries")> _
	Public Class CountriesData
		Inherits List(Of Country)
		Private Shared dataSource_Renamed As IList = Nothing
		Public Shared ReadOnly Property DataSource() As IList
			Get
				If DesignerProperties.IsInDesignTool Then
					Return Nothing
				End If
				If dataSource_Renamed IsNot Nothing Then
					Return dataSource_Renamed
				End If
				Dim [assembly] As System.Reflection.Assembly = GetType(CountriesData).Assembly
				Dim stream As Stream = AssemblyHelper.GetEmbeddedResourceStream([assembly], DemoHelper.GetPath("Data/", [assembly]) & "Countries.xml", True)
				Dim s As New XmlSerializer(GetType(CountriesData), New XmlRootAttribute("Countries"))
				dataSource_Renamed = CType(s.Deserialize(stream), IList)
				Return dataSource_Renamed
			End Get
		End Property
	End Class

	Public Class Country
		Private privateName As String
		Public Property Name() As String
			Get
				Return privateName
			End Get
			Set(ByVal value As String)
				privateName = value
			End Set
		End Property
		Private privateFlag As Byte()
		Public Property Flag() As Byte()
			Get
				Return privateFlag
			End Get
			Set(ByVal value As Byte())
				privateFlag = value
			End Set
		End Property
	End Class

	Public Class SpaceObjectData
		Inherits List(Of SpaceObjects)
		Public Shared ReadOnly Property DataSource() As IList(Of SpaceObjects)
			Get
				Dim [assembly] As System.Reflection.Assembly = GetType(SpaceObjectData).Assembly
				Dim stream As Stream = AssemblyHelper.GetEmbeddedResourceStream([assembly], DemoHelper.GetPath("Data/", [assembly]) & "SpaceObjects.xml", True)
				Dim s As New XmlSerializer(GetType(SpaceObjectData), New XmlRootAttribute("NewDataSet"))
				Return CType(s.Deserialize(stream), List(Of SpaceObjects))
			End Get
		End Property
	End Class
	Public Class SpaceObjects
		Private privateObjectId As Integer
		Public Property ObjectId() As Integer
			Get
				Return privateObjectId
			End Get
			Set(ByVal value As Integer)
				privateObjectId = value
			End Set
		End Property
		Private privateParentId As Integer
		Public Property ParentId() As Integer
			Get
				Return privateParentId
			End Get
			Set(ByVal value As Integer)
				privateParentId = value
			End Set
		End Property
		Private privateName As String
		Public Property Name() As String
			Get
				Return privateName
			End Get
			Set(ByVal value As String)
				privateName = value
			End Set
		End Property
		Private privateWikiPage As String
		Public Property WikiPage() As String
			Get
				Return privateWikiPage
			End Get
			Set(ByVal value As String)
				privateWikiPage = value
			End Set
		End Property
		Private privateImageData As Byte()
		Public Property ImageData() As Byte()
			Get
				Return privateImageData
			End Get
			Set(ByVal value As Byte())
				privateImageData = value
			End Set
		End Property
		Private privateImageHint As String
		Public Property ImageHint() As String
			Get
				Return privateImageHint
			End Get
			Set(ByVal value As String)
				privateImageHint = value
			End Set
		End Property
		Private privateMeanRadiusInKM As Single
		Public Property MeanRadiusInKM() As Single
			Get
				Return privateMeanRadiusInKM
			End Get
			Set(ByVal value As Single)
				privateMeanRadiusInKM = value
			End Set
		End Property
		Private privateMeanRadiusByEarth As String
		Public Property MeanRadiusByEarth() As String
			Get
				Return privateMeanRadiusByEarth
			End Get
			Set(ByVal value As String)
				privateMeanRadiusByEarth = value
			End Set
		End Property
		Private privateVolume10pow9KM3 As String
		Public Property Volume10pow9KM3() As String
			Get
				Return privateVolume10pow9KM3
			End Get
			Set(ByVal value As String)
				privateVolume10pow9KM3 = value
			End Set
		End Property
		Private privateVolumeRByEarth As Single
		Public Property VolumeRByEarth() As Single
			Get
				Return privateVolumeRByEarth
			End Get
			Set(ByVal value As Single)
				privateVolumeRByEarth = value
			End Set
		End Property
		Private privateMass10pow21kg As Single
		Public Property Mass10pow21kg() As Single
			Get
				Return privateMass10pow21kg
			End Get
			Set(ByVal value As Single)
				privateMass10pow21kg = value
			End Set
		End Property
		Private privateMassByEarth As Single
		Public Property MassByEarth() As Single
			Get
				Return privateMassByEarth
			End Get
			Set(ByVal value As Single)
				privateMassByEarth = value
			End Set
		End Property
		Private privateDensitygBycm3 As Single
		Public Property DensitygBycm3() As Single
			Get
				Return privateDensitygBycm3
			End Get
			Set(ByVal value As Single)
				privateDensitygBycm3 = value
			End Set
		End Property
		Private privateSurfaceGravitymBys2 As Single
		Public Property SurfaceGravitymBys2() As Single
			Get
				Return privateSurfaceGravitymBys2
			End Get
			Set(ByVal value As Single)
				privateSurfaceGravitymBys2 = value
			End Set
		End Property
		Private privateSurfaceGravityByEarth As Single
		Public Property SurfaceGravityByEarth() As Single
			Get
				Return privateSurfaceGravityByEarth
			End Get
			Set(ByVal value As Single)
				privateSurfaceGravityByEarth = value
			End Set
		End Property
		Private privateTypeOfObject As String
		Public Property TypeOfObject() As String
			Get
				Return privateTypeOfObject
			End Get
			Set(ByVal value As String)
				privateTypeOfObject = value
			End Set
		End Property
	End Class
End Namespace