Property Grid-Bölüm 2

Bir önceki makalemizde property grid nedir, nasıl kullanılır onlardan bahsetmiştik, bu makalemizde property grid üzerinde complex type’ları (sınıf içerisinde sınıfları) nasıl göstereceğimizden ve temel property gridde kullanacağımız bazı editörlerden bahsedeceğiz.

Bir sınıf içerisinde herhangi bir property başka bir sınıfın tipinde ise, property gride bunu belirtmek için type converter attribute’u kullanmamız gerekmektedir.

TypeConverter(GetType(ExpandableObjectConverter))

Yukardaki attribute ile property grid, ilgili propertnin genişletilebilir bir object olduğunu anlayıp, gride o sınıfın propertylerinide getirecektir.


Örnek olarak aşağıdaki gibi bir sınıfımız olsun

Public Class FiyatBilgi

    Private objFiyat As Decimal

    <Description("Ürünün fiyat bilgisi"), DisplayName("Fiyat"), Category("Genel")> _

    Public Property Fiyat() As Decimal

        Get

            Return objFiyat

        End Get

        Set(ByVal value As Decimal)

            objFiyat = value

        End Set

    End Property

    Private objKDVOran As Decimal

    <Description("Ürünün KDV oran bilgisi"), DisplayName("KDV Oranı"), Category("Genel")> _

    Public Property KDVOran() As Decimal

        Get

            Return objKDVOran

        End Get

        Set(ByVal value As Decimal)

            objKDVOran = value

        End Set

    End Property

    Private objOTVOran As Decimal

    <Description("Ürünün OTV oran bilgisi"), DisplayName("OTV Oranı"), Category("Genel")> _

    Public Property OTVOran() As Decimal

        Get

            Return objOTVOran

        End Get

        Set(ByVal value As Decimal)

            objOTVOran = value

        End Set

    End Property

    Public Overrides Function ToString() As String

        Return objFiyat

    End Function

End Class

Bu sınıfı başka bir sınıfın property’si olarak kullanalım.

Public Class Urun
   Private objAd As String

    <Description("Ürün adı"), DisplayName("Ürün Adı"), Category("Genel")> _

    Public Property Ad() As String

        Get

            Return objAd

        End Get

        Set(ByVal value As String)

            objAd = value

        End Set

    End Property

    Private objFiyat As FiyatBilgi

    <Description("Ürün fiyatı"), DisplayName("Fiyat"), Category("Genel"), TypeConverter(GetType(ExpandableObjectConverter))> _

    Public Property Fiyat() As FiyatBilgi

        Get

            Return objFiyat

        End Get

        Set(ByVal value As FiyatBilgi)

            objFiyat = value

        End Set

    End Property

    Sub New()

        objFiyat = New FiyatBilgi()

    End Sub

End Class

Property grid yukardaki gibi hiyerarşik olarak fiyat property’sini grid üzerinde gösterilmektedir.

Property gridde ayrıca bazı temel editörleri de kullanabiliriz. Örneğin bir dosya ismi yada bir klasör yolu girmek isteniyor ise bunları editör yardımı ile girdirebiliriz.

· Dosya seçim editörü attribute: Editor(GetType(System.Windows.Forms.Design.FileNameEditor), GetType(UITypeEditor))

 

Protected Friend objExcelFileName As String

    <Editor(GetType(System.Windows.Forms.Design.FileNameEditor), GetType(UITypeEditor))> _

    Public Property ExcelFileName() As String

        Get

            Return objExcelFileName

        End Get

        Set(ByVal value As String)

            objExcelFileName = value

        End Set

    End Property

· Klasör yolu seçim editörü attribute: Editor(GetType(System.Windows.Forms.Design.FolderNameEditor), GetType(UITypeEditor))

 

Protected Friend objFilepath As String

    < Editor(GetType(System.Windows.Forms.Design.FolderNameEditor), GetType(UITypeEditor))> _

    Public Property FilePath() As String

        Get

            Return objFilepath

        End Get

        Set(ByVal value As String)

            objFilepath = value

        End Set

    End Property

· Tarih girme editörü attribute: Editor(GetType(System.ComponentModel.Design.DateTimeEditor), GetType(UITypeEditor))

Protected Friend objBaslangicTarihi As Date

    < Editor(GetType(System.ComponentModel.Design.DateTimeEditor), GetType(UITypeEditor))> _

    Public Property BaslangicTarihi() As Date

        Get

            Return objBaslangicTarihi

        End Get

        Set(ByVal value As Date)

            objBaslangicTarihi = value

        End Set

    End Property

Armağan DÖKER