Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data
Imports DevExpress.Tutorials
Imports DevExpress.DXperience.Demos

Namespace DevExpress.XtraNavBar.Demos
	''' <summary>
	''' Summary description for frmMain.
	''' </summary>
	Public Partial Class frmMain
		Inherits DevExpress.Tutorials.FrmMain
		Public Sub New()
			'
			' Required for Windows Form Designer support
			'
			InitializeComponent()

			'
			' TODO: Add any constructor code after InitializeComponent call
			'
		End Sub

		Private initDemos_Renamed As Boolean = True
		Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
			RegisterTutorials.Register()
			TutorialsInfo.FillListBox(Me.lbcTutorials, New String() { RegisterTutorials.NewFeaturesString })
			lbcTutorials.SortOrder = SortOrder.Ascending
			lbcTutorials.SelectedIndex = -1
			gcNavigations.Parent = splitContainerControl1.Panel1
			gcNavigations.Dock = DockStyle.Fill
			InitDemos()
			initDemos_Renamed = False
			ShowModule(RegisterTutorials.NewFeaturesString)
		End Sub

        Protected Overrides Function CreateMenu(ByVal manager As DevExpress.XtraBars.BarManager, ByVal lookAndFeel As DevExpress.LookAndFeel.DefaultLookAndFeel) As LookAndFeelMenu
            Return New NavBarTutorialMenu(manager, lookAndFeel, "Tutorial examples for the " & AssemblyInfo.SRAssemblyNavBar)
        End Function

		Private Sub lbcTutorials_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbcTutorials.SelectedIndexChanged
			If Not lbcTutorials.SelectedItem Is Nothing Then
				ShowModule(lbcTutorials.SelectedItem.ToString())
				lbcDemos.SelectedIndex = -1
			End If
		End Sub

		Private Sub lbcDemos_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbcDemos.SelectedIndexChanged
			If Not lbcDemos.SelectedItem Is Nothing Then
				ShowModule(lbcDemos.SelectedItem.ToString())
				lbcTutorials.SelectedIndex = -1
			End If
		End Sub

		Private Sub ShowModule(ByVal name As String)
			If initDemos_Renamed Then
			Return
			End If
			pcMain.SuspendLayout()
			Try
				Dim [module] As DevExpress.Tutorials.ModuleBase = TutorialsInfo.ShowModule(name, gcContainer, Me.MainMenu, defaultLookAndFeel)
				SelectModule([module], True)
			Finally
				pcMain.ResumeLayout()
			End Try
		End Sub

        Private Function AddElementsToArray(ByVal arr As String(), ByVal lb As DevExpress.XtraEditors.ListBoxControl) As String()
            Dim list As ArrayList = New ArrayList()
            Dim i As Integer = 0
            Do While i < arr.Length
                list.Add(arr(i))
                i += 1
            Loop
            i = 0
            Do While i < lb.ItemCount
                list.Add(lb.Items(i).ToString())
                i += 1
            Loop
            Return CType(list.ToArray(GetType(String)), String())
        End Function

		Private Sub InitDemos()
			lbcDemos.SortOrder = SortOrder.Ascending
			RegisterDemos.Register()
			Dim arr As String() = AddElementsToArray(New String() { RegisterTutorials.NewFeaturesString }, lbcTutorials)
			TutorialsInfo.FillListBox(Me.lbcDemos, arr)
			lbcDemos.SelectedIndex = -1
        End Sub

        Public Overrides Sub HideServiceElements()
            MyBase.HideServiceElements()
            splitContainerControl1.Hide()
        End Sub

        Public Overrides Sub ShowServiceElements()
            MyBase.ShowServiceElements()
            splitContainerControl1.Show()
        End Sub
    End Class
End Namespace