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.XtraTab
Imports DevExpress.XtraEditors.Controls
Imports DevExpress.Utils
Imports DevExpress.XtraEditors
Imports DevExpress.XtraTabbedMdi

Namespace DevExpress.XtraBars.Demos.Tutorials
	''' <summary>
	''' Summary description for frmTabbedMDI.
	''' </summary>
	Partial Public Class frmTabbedMDI
		Inherits DevExpress.XtraEditors.XtraForm
		Public Sub New()
			'
			' Required for Windows Form Designer support
			'
			InitializeComponent()
			InitWindows()
			For i As Integer = 0 To 2
			AddNewForm()
			Next i
			InitComboBoxes()
			barCheckItem1.Checked = xtraTabbedMdiManager1.FloatOnDoubleClick = DefaultBoolean.True
			barCheckItem2.Checked = xtraTabbedMdiManager1.FloatOnDrag = DefaultBoolean.True
			'
			' TODO: Add any constructor code after InitializeComponent call
			'
		End Sub

		Private rnd As New Random()
		Private formCount As Integer = 0

		Private Sub InitComboBoxes()
            repositoryItemImageComboBox1.Items.AddEnum(GetType(TabHeaderLocation))
            repositoryItemImageComboBox2.Items.AddEnum(GetType(TabOrientation))
            repositoryItemImageComboBox3.Items.AddEnum(GetType(TabPageImagePosition))
            repositoryItemImageComboBox4.Items.AddEnum(GetType(DefaultBoolean))
            repositoryItemImageComboBox5.Items.AddEnum(GetType(ClosePageButtonShowMode))
            RepositoryItemImageComboBox6.Items.AddEnum(GetType(PinPageButtonShowMode))
            
            barEditItem1.EditValue = xtraTabbedMdiManager1.HeaderLocation
            barEditItem2.EditValue = xtraTabbedMdiManager1.HeaderOrientation
            barEditItem3.EditValue = xtraTabbedMdiManager1.PageImagePosition
            barEditItem4.EditValue = xtraTabbedMdiManager1.HeaderAutoFill
            barEditItem5.EditValue = xtraTabbedMdiManager1.ClosePageButtonShowMode
            BarEditItem6.EditValue = xtraTabbedMdiManager1.PinPageButtonShowMode
		End Sub
        Private Sub AddNewForm()
            Dim frm As New XtraForm()
            frm.Text = String.Format("Form {0}", formCount)
            formCount += 1
            frm.MdiParent = Me
            frm.Show()
            ColourTab()
        End Sub
        Private Sub ColourTab()
            If bCheckItem.Checked Then
                xtraTabbedMdiManager1.Pages(xtraTabbedMdiManager1.Pages.Count - 1).Appearance.Header.BackColor = TabColor((formCount - 1) Mod 6)
            End If
        End Sub
		Private Sub barButtonItem1_ItemClick(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles barButtonItem1.ItemClick
			AddNewForm()
		End Sub

		Private Sub InitWindows()
			barMdiChildrenListItem1.Enabled = xtraTabbedMdiManager1.Pages.Count > 0
		End Sub

		Private Sub xtraTabbedMdiManager1_PageAdded(ByVal sender As Object, ByVal e As DevExpress.XtraTabbedMdi.MdiTabPageEventArgs) Handles xtraTabbedMdiManager1.PageAdded
			InitWindows()
			e.Page.Image = imageList1.Images(rnd.Next(imageList1.Images.Count - 1))
		End Sub

		Private Sub xtraTabbedMdiManager1_PageRemoved(ByVal sender As Object, ByVal e As DevExpress.XtraTabbedMdi.MdiTabPageEventArgs) Handles xtraTabbedMdiManager1.PageRemoved
			InitWindows()
		End Sub

		Private Sub barEditItem1_EditValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles barEditItem1.EditValueChanged
			xtraTabbedMdiManager1.HeaderLocation = CType(barEditItem1.EditValue, TabHeaderLocation)
		End Sub

		Private Sub barEditItem2_EditValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles barEditItem2.EditValueChanged
			xtraTabbedMdiManager1.HeaderOrientation = CType(barEditItem2.EditValue, TabOrientation)
		End Sub

		Private Sub barEditItem3_EditValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles barEditItem3.EditValueChanged
			xtraTabbedMdiManager1.PageImagePosition = CType(barEditItem3.EditValue, TabPageImagePosition)
		End Sub

		Private Sub barEditItem4_EditValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles barEditItem4.EditValueChanged
			xtraTabbedMdiManager1.HeaderAutoFill = CType(barEditItem4.EditValue, DefaultBoolean)
		End Sub

		Private Sub barEditItem5_EditValueChanged(ByVal sender As Object, ByVal e As EventArgs) Handles barEditItem5.EditValueChanged
			xtraTabbedMdiManager1.ClosePageButtonShowMode = CType(barEditItem5.EditValue, ClosePageButtonShowMode)
        End Sub

        Private Sub barEditItem6_EditValueChanged(ByVal sender As Object, ByVal e As EventArgs) Handles BarEditItem6.EditValueChanged
            xtraTabbedMdiManager1.PinPageButtonShowMode = CType(BarEditItem6.EditValue, PinPageButtonShowMode)
        End Sub

		Private Sub barCheckItem1_CheckedChanged(ByVal sender As Object, ByVal e As ItemClickEventArgs) Handles barCheckItem1.CheckedChanged
			If barCheckItem1.Checked Then
				xtraTabbedMdiManager1.FloatOnDoubleClick = DefaultBoolean.True
			Else
				xtraTabbedMdiManager1.FloatOnDoubleClick = DefaultBoolean.False
			End If
		End Sub

		Private Sub barCheckItem2_CheckedChanged(ByVal sender As Object, ByVal e As ItemClickEventArgs) Handles barCheckItem2.CheckedChanged
			If barCheckItem2.Checked Then
				xtraTabbedMdiManager1.FloatOnDrag = DefaultBoolean.True
			Else
				xtraTabbedMdiManager1.FloatOnDrag = DefaultBoolean.False
			End If
		End Sub
        Private TabColor() As Color = {Color.FromArgb(35, 83, 194), Color.FromArgb(64, 168, 19), Color.FromArgb(245, 121, 10), Color.FromArgb(141, 62, 168), Color.FromArgb(70, 155, 183), Color.FromArgb(196, 19, 19)}
        Private Sub bCheckItem_CheckedChanged(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bCheckItem.CheckedChanged
            Dim item As BarCheckItem = TryCast(sender, BarCheckItem)
            Dim j As Integer = 0
            If item.Checked Then
                For Each page As XtraMdiTabPage In xtraTabbedMdiManager1.Pages
                    page.Appearance.Header.BackColor = TabColor(j Mod 6)
                    j += 1
                Next page
            Else
                For Each page As XtraMdiTabPage In xtraTabbedMdiManager1.Pages
                    page.Appearance.Header.BackColor = Color.Empty
                Next page
            End If
        End Sub
    End Class
End Namespace