Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports DevExpress.DXperience.Demos
Imports DevExpress.Utils
Imports System
Imports DevExpress.Tutorials

Namespace DevExpress.XtraPivotGrid.Demos
    Public Class frmMain
        Inherits RibbonMainForm
        Protected Overrides ReadOnly Property FileType() As SourceFileType
            Get
                Return SourceFileType.VB
            End Get
        End Property
        Protected Overrides Sub SetFormParam()
            Me.Icon = ResourceImageHelper.CreateIconFromResourcesEx("DevExpress.XtraPivotGrid.Demos.AppIcon.ico", GetType(frmMain).Assembly)
        End Sub
        Protected Overrides Sub ShowModule(ByVal name As String, ByVal group As DevExpress.XtraEditors.GroupControl, ByVal lookAndFeel As DevExpress.LookAndFeel.DefaultLookAndFeel, ByVal caption As DevExpress.Utils.Frames.ApplicationCaption, ByVal notePanel As DevExpress.Utils.Frames.NotePanel)
            DemosInfo.Show(name, group, caption, notePanel, TryCast(RibbonMenuManager, PivotGridRibbonMenuManager))
        End Sub
        Protected Overrides ReadOnly Property DemoName() As String
            Get
                Return "XtraPivotGrid Features Demo (" & DemoHelper.GetLanguageString(GetType(frmMain).Assembly) & " code)"
            End Get
        End Property
        Protected Overrides Sub FillNavBar()
            navBarControl1.SkinExplorerBarViewScrollStyle = DevExpress.XtraNavBar.SkinExplorerBarViewScrollStyle.ScrollBar
            DemosInfo.FillNavBar(navBarControl1, DevExpress.XtraNavBar.NavBarGroupStyle.SmallIconsText)
        End Sub
        Protected Overrides Function CreateRibbonMenuManager() As RibbonMenuManager
            Return New PivotGridRibbonMenuManager(Me)
        End Function
        Protected Overrides Sub ShowAbout()
            DevExpress.Utils.About.AboutForm.Show(GetType(DevExpress.XtraPivotGrid.PivotGridControl), DevExpress.Utils.About.ProductKind.DXperienceWin, DevExpress.Utils.About.ProductInfoStage.Registered)
        End Sub
    End Class
End Namespace