Mini Kabibi Habibi

Current Path : C:/Users/Public/Documents/DXperience 13.1 Demos/WinForms/VB/ChartsMainDemo/
Upload File :
Current File : C:/Users/Public/Documents/DXperience 13.1 Demos/WinForms/VB/ChartsMainDemo/BarExportToImageItem.vb

Imports DevExpress.XtraBars
Imports System.Drawing.Imaging

Namespace DevExpress.XtraCharts.Demos

    Public Class BarExportToImageItem
        Inherits BarButtonItem
        ReadOnly m_imageFormat As ImageFormat
        ReadOnly m_imageCodecInfo As ImageCodecInfo

        Public ReadOnly Property ImageFormat() As ImageFormat
            Get
                Return m_imageFormat
            End Get
        End Property
        Public ReadOnly Property ImageCodecInfo() As ImageCodecInfo
            Get
                Return m_imageCodecInfo
            End Get
        End Property

        Public Sub New(ByVal barManager As BarManager, ByVal imageFormat As ImageFormat, ByVal imageCodecInfo As ImageCodecInfo)
            MyBase.New(barManager, String.Empty)
            Me.m_imageFormat = imageFormat
            Me.m_imageCodecInfo = imageCodecInfo
            Caption = String.Format("{0}", imageCodecInfo.FormatDescription)
        End Sub
    End Class

End Namespace