Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Imports System.Windows.Forms
Imports DevExpress.XtraEditors.Repository
Imports DevExpress.XtraTreeList.Blending
Imports DevExpress.LookAndFeel
Imports DevExpress.XtraBars

Namespace DevExpress.XtraTreeList.Demos.Tutorials
	Public Class TutorialControl
		Inherits DevExpress.Tutorials.ModuleBase
		Public Overridable ReadOnly Property ShowLookAndFeel() As Boolean
			Get
				Return True
			End Get
		End Property
		Public Overridable ReadOnly Property SetNewWhatsThisPadding() As Boolean
			Get
				Return False
			End Get
		End Property
		Public Overrides Sub StartWhatsThis()
			TutorialsInfo.CloseCustomizationForm(Me)
			If SetNewWhatsThisPadding Then
				Me.Padding = New Padding(8)
				Me.Refresh()
			End If
		End Sub
		Public Overrides Sub EndWhatsThis()
			If SetNewWhatsThisPadding Then
				Me.Padding = New Padding(0)
			End If
		End Sub
		Protected Overrides Sub SetControlManager(ByVal ctrl As Control, ByVal manager As BarManager)
			Dim treeList As TreeList = TryCast(ctrl, TreeList)
			If Not treeList Is Nothing Then
			treeList.MenuManager = manager
			End If
		End Sub
    End Class
    Public Class TreeListTutorialMenu
        Inherits DevExpress.DXperience.Demos.LookAndFeelMenu
        Public Sub New(ByVal manager As BarManager, ByVal lookAndFeel As DefaultLookAndFeel, ByVal about As String)
            MyBase.New(manager, lookAndFeel, about)
        End Sub
        Protected Overrides ReadOnly Property ProductName() As String
            Get
                Return "XtraTreeList"
            End Get
        End Property
        Protected Overrides Sub biProductWebPage_Click(ByVal sender As Object, ByVal e As ItemClickEventArgs)
            System.Diagnostics.Process.Start("http://www.devexpress.com/Products/NET/WinForms/XtraTreeList/")
        End Sub
        Protected Overrides Sub miAboutProduct_Click(ByVal sender As Object, ByVal e As ItemClickEventArgs)
            DevExpress.Utils.About.AboutForm.Show(GetType(DevExpress.XtraTreeList.TreeList), DevExpress.Utils.About.ProductKind.DXperienceWin, DevExpress.Utils.About.ProductInfoStage.Registered)
        End Sub
    End Class
End Namespace