Mini Kabibi Habibi

Imports DevExpress.Utils
Imports DevExpress.LookAndFeel
Imports DevExpress.Utils.Frames
Imports DevExpress.Utils.About
Imports DevExpress.XtraEditors
Imports DevExpress.XtraNavBar
Imports DevExpress.XtraBars
Imports DevExpress.XtraCharts.Native
Imports DevExpress.DXperience.Demos

Namespace DevExpress.XtraCharts.Demos
    Partial Public Class frmMain
        Inherits RibbonMainForm
        Friend Shadows ReadOnly Property ExportToImageExButton() As BarSubItem
            Get
                Return MyBase.ExportToImageExButton
            End Get
        End Property
        Protected Overrides ReadOnly Property DemoName() As String
            Get
                Return "XtraCharts Features Demo (VB.NET code)"
            End Get
        End Property

        Public Sub New()
            InitializeComponent()
        End Sub

        Sub Default_StyleChanged(sender As Object, e As System.EventArgs) Handles MyBase.StyleChanged
            If RibbonMenuManager IsNot Nothing Then
                Dim Manager As ChartRibbonMenuManager
                Manager = DirectCast(RibbonMenuManager, ChartRibbonMenuManager)
                Manager.UpdateMenu()
            End If
        End Sub

        Protected Overrides Function CreateRibbonMenuManager() As RibbonMenuManager
            Return New ChartRibbonMenuManager(Me)
        End Function
        Protected Overrides Sub SetFormParam()
            navBarControl1.Parent.Width = 220
            Icon = ResourceImageHelper.CreateIconFromResources("AppIcon.ico", GetType(frmMain).Assembly)
        End Sub
        Protected Overrides Sub ShowModule(ByVal name As String, ByVal group As GroupControl, ByVal lookAndFeel As DefaultLookAndFeel, ByVal caption As ApplicationCaption)
            DemosInfo.ShowModule(name, group, caption, TryCast(RibbonMenuManager, ChartRibbonMenuManager))
        End Sub
        Protected Overrides Sub FillNavBar()
            MyBase.FillNavBar()
            navBarControl1.SkinExplorerBarViewScrollStyle = SkinExplorerBarViewScrollStyle.ScrollBar
        End Sub
        Protected Overrides Sub ShowAbout()
            AboutForm.Show(GetType(Chart), ProductKind.DXperienceWin, ProductInfoStage.Registered)
        End Sub
    End Class
End Namespace