Mini Kabibi Habibi

Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports DevExpress.Utils
Imports DevExpress.XtraBars
Imports DevExpress.LookAndFeel
Imports DevExpress.DXperience.Demos
Imports DevExpress.Tutorials
Imports DevExpress.XtraPrinting

Namespace XtraPrintingDemos
    _
    Public Class frmMain
        Inherits DevExpress.DXperience.Demos.RibbonMainForm

        Protected Overrides Sub SetFormParam()
            'Me.Text = "XtraPrinting Features Demo (VB code)"
            Me.Icon = ResourceImageHelper.CreateIconFromResources("AppIcon.ico", GetType(frmMain).Assembly)
        End Sub 'SetFormParam
        Protected Overrides ReadOnly Property DemoName() As String
            Get
                Return "XtraPrinting Features Demo (VB code)"
            End Get
        End Property

        Protected Overloads Overrides Sub ShowModule(ByVal name As String, ByVal groupControl As DevExpress.XtraEditors.GroupControl, ByVal lookAndFeel As DevExpress.LookAndFeel.DefaultLookAndFeel, ByVal caption As DevExpress.Utils.Frames.ApplicationCaption)
            DemosInfo.ShowModule(name, groupControl, lookAndFeel, caption)
        End Sub 'ShowModule

        Protected Overloads Overrides Sub FillNavBar()
            MyBase.FillNavBar()
            Me.navBarControl1.LargeImages = Nothing
        End Sub
        Protected Overloads Overrides Sub ShowAbout()
            DevExpress.Utils.About.AboutForm.Show(GetType(PrintingSystem), DevExpress.Utils.About.ProductKind.DXperienceWin, DevExpress.Utils.About.ProductInfoStage.Registered)
        End Sub

        <STAThread()> _
        Shared Sub Main()
            DevExpress.UserSkins.BonusSkins.Register()
            Application.Run(New frmMain())
        End Sub

    End Class 'frmMain
    Partial Public Class About
        Inherits ucAboutPage
        Public Sub New()
            InitializeComponent()
        End Sub
        Protected Overrides ReadOnly Property ProductText() As String
            Get
                Return "The XtraPrinting Library is our 100% C# data rendering and visualization system, built specifically for Visual Studio .NET and designed to bring your User Interface to the printed page. Once you start using the XtraPrinting Library, you will be able to print the contents of advanced visual controls such as the XtraGrid and XtraScheduler with ease - and thus offer your end-users a nearly unlimited series of ""reports"" without actually having to create a single report using a traditional report writer."
            End Get
        End Property
        Protected Overrides ReadOnly Property ProductImage() As Image
            Get
                Return DevExpress.Utils.ResourceImageHelper.CreateImageFromResources("DevExpress.XtraPrinting.Images.XtraPrinting.png", GetType(PrintingSystem).Assembly)

            End Get
        End Property
        Protected Overrides ReadOnly Property ProductImageLight() As Image
            Get
                Return DevExpress.Utils.ResourceImageHelper.CreateImageFromResources("DevExpress.XtraPrinting.Images.XtraPrinting_light.png", GetType(PrintingSystem).Assembly)

            End Get
        End Property
        Protected Overrides ReadOnly Property ProductKind() As DevExpress.Utils.About.ProductKind
            Get
                Return DevExpress.Utils.About.ProductKind.DXperienceWin
            End Get
        End Property
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            If disposing Then
                If components IsNot Nothing Then
                    components.Dispose()
                End If
            End If
            MyBase.Dispose(disposing)
        End Sub

        Private Sub InitializeComponent()
            Me.SuspendLayout()
            ' 
            ' About
            ' 
            Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0F, 13.0F)
            Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
            Me.Name = "About"
            Me.Size = New System.Drawing.Size(439, 260)
            Me.ResumeLayout(False)

        End Sub

        Private components As System.ComponentModel.IContainer = Nothing
    End Class
End Namespace 'XtraPrintingDemos