wroxbuttonconverter.vb

来自「ASP.NET服务器控件高级编程电子书」· VB 代码 · 共 36 行

Imports System
Imports System.Drawing.Design
Imports System.ComponentModel
Imports System.ComponentModel.Design

Namespace WroxDesignVB.Design

    Public Class WroxButtonConverter : Inherits TypeConverter

        Public Sub New()
        End Sub

        Public Overloads Overrides Function GetProperties(ByVal context As ITypeDescriptorContext, _
        ByVal value As Object, ByVal attributes As Attribute()) As PropertyDescriptorCollection

            'This is the default behavior
            '			return TypeDescriptor.GetProperties(context.Instance,
            '				new Attribute, _  new BrowsableAttribute(true) )

            'If we are outside the host designer, we are in a custom editor
            If (context.Container Is Nothing) Then
                Return TypeDescriptor.GetProperties(context.Instance, _
                    New Attribute() {New ToolBarEditableAttribute()})
            End If
            'Otherwise, return the solicited members
            Return TypeDescriptor.GetProperties(context.Instance, attributes)
        End Function

        Public Overloads Overrides Function GetPropertiesSupported(ByVal context As ITypeDescriptorContext) As Boolean
            Return True
        End Function

    End Class
End Namespace