Mini Kabibi Habibi

Current Path : C:/Users/Public/Documents/DXperience 13.1 Demos/ASP.NET/VB/ChartsWebDemo/App_Code/
Upload File :
Current File : C:/Users/Public/Documents/DXperience 13.1 Demos/ASP.NET/VB/ChartsWebDemo/App_Code/DemoGroupModel.vb

Imports Microsoft.VisualBasic
Imports System.Xml.Serialization
Imports System.Collections.Generic

Namespace DevExpress.Web.Demos

	Public Class DemoGroupModel
		Inherits DemoModelBase
		Private _demos As New List(Of DemoPageModel)()

		<XmlElement(Type := GetType(DemoPageModel), ElementName := "Demo")> _
		Public ReadOnly Property Demos() As List(Of DemoPageModel)
			Get
				Return _demos
			End Get
		End Property

		Public Function FindDemo(ByVal key As String) As DemoModel
			key = key.ToLower()
			For Each demo As DemoModel In Demos
				If key = demo.Key.ToLower() Then
					Return demo
				End If
			Next demo
			Return Nothing
		End Function

		Private privateProduct As DemoProductModel
		<XmlIgnore> _
		Public Property Product() As DemoProductModel
			Get
				Return privateProduct
			End Get
			Set(ByVal value As DemoProductModel)
				privateProduct = value
			End Set
		End Property
	End Class

End Namespace