Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Windows.Forms

Namespace DevExpress.XtraBars.Demos.Tutorials
	''' <summary>
	''' Summary description for SampleStart.
	''' </summary>
	Public Partial Class SampleStart
		Inherits TutorialControl
		Public Sub New()
			InitializeComponent()
			Sample = Nothing
		End Sub

		Private fSample As Form = Nothing
		Private Property Sample() As Form
			Get
				Return fSample
			End Get
			Set
				fSample = Value
				sbStart.Enabled = fSample Is Nothing
				sbClose.Enabled = Not fSample Is Nothing
			End Set
		End Property
		Protected Overridable Function CreateSample() As Form
			Return Nothing
		End Function

		Private Sub sbStart_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles sbStart.Click
			Sample = CreateSample()
			If Sample Is Nothing Then
			Return
			End If
			AddHandler Sample.Closed, AddressOf Sample_Close
			Sample.Show()
		End Sub

		Private Sub Sample_Close(ByVal sender As Object, ByVal e As EventArgs)
			RemoveHandler Sample.Closed, AddressOf Sample_Close
			Sample.Dispose()
			Sample = Nothing
		End Sub

		Private Sub CloseSample()
			If Not Sample Is Nothing Then
			Sample.Close()
			End If
		End Sub

		Private Sub sbClose_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles sbClose.Click
			CloseSample()
		End Sub

		Protected Overrides Sub DoVisibleChanged(ByVal visible As Boolean)
			MyBase.DoVisibleChanged(visible)
			CloseSample()
		End Sub
	End Class

	Public Class MDIMenuMergingStart
		Inherits SampleStart
		Protected Overrides Function CreateSample() As Form
			Return New DevExpress.XtraBars.Demos.Tutorials.frmMDIMenuMerging()
		End Function
	End Class

	Public Class MostRecentFilesStart
		Inherits SampleStart
		Protected Overrides Function CreateSample() As Form
			Return New DevExpress.XtraBars.Demos.Tutorials.frmMostRecentFiles()
		End Function
	End Class

	Public Class TabbedMDIStart
		Inherits SampleStart
		Protected Overrides Function CreateSample() As Form
			Return New DevExpress.XtraBars.Demos.Tutorials.frmTabbedMDI()
		End Function
    End Class

    Public Class DocumentManagerStart
        Inherits SampleStart
        Protected Overrides Function CreateSample() As Form
            Return New DevExpress.XtraBars.Demos.Tutorials.frmDocumentManager()
        End Function
    End Class
    Public Class DocumentManagerNativeMdiStart
        Inherits SampleStart
        Protected Overrides Function CreateSample() As Form
            Return New DevExpress.XtraBars.Demos.Tutorials.frmDocumentManagerNative()
        End Function
    End Class
    Public Class DocumentManagerDockingStart
        Inherits SampleStart
        Protected Overrides Function CreateSample() As Form
            Return New DevExpress.XtraBars.Demos.Tutorials.frmDocumentManagerDocking()
        End Function
    End Class
End Namespace