Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Imports System.Drawing
Imports System.Windows.Forms
Imports DevExpress.XtraEditors.Repository
Imports DevExpress.LookAndFeel
Imports DevExpress.Utils

Namespace DevExpress.XtraBars.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()
            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
    End Class
    Public Class BarTutorialMenu
        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 "XtraBars"
            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/XtraBars/")
        End Sub
        Protected Overrides Sub miAboutProduct_Click(ByVal sender As Object, ByVal e As ItemClickEventArgs)
            DevExpress.Utils.About.AboutForm.Show(GetType(DevExpress.XtraBars.BarManager), DevExpress.Utils.About.ProductKind.DXperienceWin, DevExpress.Utils.About.ProductInfoStage.Registered)
        End Sub
    End Class
    Public Class TutorialHelper
        Public Shared Function GetTutorialImageCollection() As ImageCollection
            Return DevExpress.Utils.Controls.ImageHelper.CreateImageCollectionFromResources("TutorialImages.png", GetType(TutorialHelper).Assembly, New Size(16, 16))
        End Function
    End Class
End Namespace