Re: User style collection editor for GridTableStylesCollection

Thanks AMDRIT ..

Thank for your help .....very much


I get it and solve this problem

Michael

"AMDRIT" <amdrit@xxxxxxxxxxx> ¦b¶l¥ó
news:etHlUn6wFHA.3312@xxxxxxxxxxxxxxxxxxxx ¤¤¼¶¼g...
> I am working a very similar project and am running into an issue getting
the
> values to save during design time. Perhaps we can share notes?
>
> If anyone else has any ideas where I am going wrong, please let me know.
> Thanks.
>
> Here is what I have:
>
> <Serializable(), _
> ToolboxItem(True), _
> TypeConverter(GetType(DatatableManager.DatatableManagerTypeConverter))>
_
> Public Class DatatableManager
> Inherits System.ComponentModel.Component
>
> #Region " Declarations"
> Private m_AllowSorting As Boolean = False
> Private m_AlternatingBackColor As Color = System.Drawing.Color.White
> Private m_BackColor As Color = System.Drawing.Color.White
> Private m_ColumnHeadersVisible As Boolean = True
> Private m_ForeColor As Color =
> System.Drawing.Color.FromKnownColor(KnownColor.WindowText)
> Private m_GridLineColor As Color =
> System.Drawing.Color.FromKnownColor(KnownColor.Control)
> Private m_GridLineStyle As DataGridLineStyle
> Private m_HeaderBackColor As Color =
> System.Drawing.Color.FromKnownColor(KnownColor.Control)
> Private m_HeaderFont As Font = New Font("Microsoft Sans Serif", 8.25)
> Private m_HeaderForeColor As Color =
> System.Drawing.Color.FromKnownColor(KnownColor.ControlText)
> Private m_LinkColor As Color =
> System.Drawing.Color.FromKnownColor(KnownColor.HotTrack)
> Private m_MappingName As String = ""
> Private m_PreferredColumnWidth As Integer = 75
> Private m_PreferredRowHeight As Integer = 16
> Private m_ReadOnly As Boolean = False
> Private m_RowHeadersVisible As Boolean = True
> Private m_RowHeaderWidth As Integer = 35
> Private m_SelectionBackColor As Color =
> System.Drawing.Color.FromKnownColor(KnownColor.ActiveCaption)
> Private m_SelectionForeColor As Color =
> System.Drawing.Color.FromKnownColor(KnownColor.ActiveCaptionText)
> Private m_Columns As Columns
> #End Region
>
> #Region " Component Designer generated code "
>
> Public Sub New(ByVal Container As System.ComponentModel.IContainer)
> MyClass.New()
>
> 'Required for Windows.Forms Class Composition Designer support
> Container.Add(Me)
> m_Columns = New Columns
> End Sub
>
> Public Sub New()
> MyBase.New()
>
> 'This call is required by the Component Designer.
> InitializeComponent()
>
> 'Add any initialization after the InitializeComponent() call
> End Sub
>
> 'Component overrides dispose to clean up the component list.
> Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
> If disposing Then
> If Not (components Is Nothing) Then
> components.Dispose()
> End If
> End If
> MyBase.Dispose(disposing)
> End Sub
>
> 'Required by the Component Designer
> Private components As System.ComponentModel.IContainer
>
> 'NOTE: The following procedure is required by the Component Designer
> 'It can be modified using the Component Designer.
> 'Do not modify it using the code editor.
> <System.Diagnostics.DebuggerStepThrough()> Private Sub
> InitializeComponent()
> components = New System.ComponentModel.Container
> End Sub
>
> #End Region
>
> #Region " Properties"
>
> <Description("Indicates whether sorting is allowed on the grid table
when
> this DataGridTableStyle is used."), _
> Category("Usability")> _
> Public Property AllowSorting() As Boolean
> Get
> Return m_AllowSorting
> End Get
> Set(ByVal Value As Boolean)
> m_AllowSorting = Value
> End Set
> End Property
> <Description("Gets or sets the background color of odd-numbered rows of
> the grid."), _
> Category("Appearance")> _
> Public Property AlternatingBackColor() As Color
> Get
> Return m_AlternatingBackColor
> End Get
> Set(ByVal Value As Color)
> m_AlternatingBackColor = Value
> End Set
> End Property
> <Description("Gets or sets the background color of even-numbered rows of
> the grid."), _
> Category("Appearance")> _
> Public Property BackColor() As Color
> Get
> Return m_BackColor
> End Get
> Set(ByVal Value As Color)
> m_BackColor = Value
> End Set
> End Property
> <Description("Gets or sets a value indicating whether column headers are
> visible."), _
> Category("Appearance")> _
> Public Property ColumnHeadersVisible() As Boolean
> Get
> Return m_ColumnHeadersVisible
> End Get
> Set(ByVal Value As Boolean)
> m_ColumnHeadersVisible = Value
> End Set
> End Property
> <Description("Gets or sets the foreground color of the grid table."), _
> Category("Appearance"), _
> DefaultValue(True)> _
> Public Property ForeColor() As Color
> Get
> Return m_ForeColor
> End Get
> Set(ByVal Value As Color)
> m_ForeColor = Value
> End Set
> End Property
> <Description("Gets or sets the color of grid lines."), _
> Category("Appearance")> _
> Public Property GridLineColor() As Color
> Get
> Return m_GridLineColor
> End Get
> Set(ByVal Value As Color)
> m_GridLineColor = Value
> End Set
> End Property
> <Description("Gets or sets the style of grid lines."), _
> Category("Appearance")> _
> Public Property GridLineStyle() As DataGridLineStyle
> Get
> Return m_GridLineStyle
> End Get
> Set(ByVal Value As DataGridLineStyle)
> m_GridLineStyle = Value
> End Set
> End Property
> <Description("Gets or sets the background color of headers."), _
> Category("Appearance")> _
> Public Property HeaderBackColor() As Color
> Get
> Return m_HeaderBackColor
> End Get
> Set(ByVal Value As Color)
> m_HeaderBackColor = Value
> End Set
> End Property
> <Description("Gets or sets the font used for header captions."), _
> Category("Appearance")> _
> Public Property HeaderFont() As Font
> Get
> Return m_HeaderFont
> End Get
> Set(ByVal Value As Font)
> m_HeaderFont = Value
> End Set
> End Property
> <Description("Gets or sets the foreground color of headers."), _
> Category("Appearance")> _
> Public Property HeaderForeColor() As Color
> Get
> Return m_HeaderForeColor
> End Get
> Set(ByVal Value As Color)
> m_HeaderForeColor = Value
> End Set
> End Property
> <Description("Gets or sets the color of link text."), _
> Category("Appearance")> _
> Public Property LinkColor() As Color
> Get
> Return m_LinkColor
> End Get
> Set(ByVal Value As Color)
> m_LinkColor = Value
> End Set
> End Property
> <Description("Gets or sets the name used to map this table to a specific
> data source."), _
> Category("General")> _
> Public Property MappingName() As String
> Get
> Return m_MappingName
> End Get
> Set(ByVal Value As String)
> m_MappingName = Value
> End Set
> End Property
> <Description("Gets or sets the width used to create columns when a new
> grid is displayed."), _
> Category("General")> _
> Public Property PreferredColumnWidth() As Integer
> Get
> Return m_PreferredColumnWidth
> End Get
> Set(ByVal Value As Integer)
> m_PreferredColumnWidth = Value
> End Set
> End Property
> <Description("Gets or sets the height used to create a row when a new
grid
> is displayed."), _
> Category("Appearance")> _
> Public Property PreferredRowHeight() As Integer
> Get
> Return m_PreferredRowHeight
> End Get
> Set(ByVal Value As Integer)
> m_PreferredRowHeight = Value
> End Set
> End Property
> <Description("Gets or sets a value indicating whether columns can be
> edited."), _
> Category("Usability")> _
> Public Property [ReadOnly]() As Boolean
> Get
> Return m_ReadOnly
> End Get
> Set(ByVal Value As Boolean)
> m_ReadOnly = Value
> End Set
> End Property
> <Description("Gets or sets a value indicating whether row headers are
> visible."), _
> Category("Appearance")> _
> Public Property RowHeadersVisible() As Boolean
> Get
> Return m_RowHeadersVisible
> End Get
> Set(ByVal Value As Boolean)
> m_RowHeadersVisible = Value
> End Set
> End Property
> <Description("Gets or sets the width of row headers."), _
> Category("Appearance")> _
> Public Property RowHeaderWidth() As Integer
> Get
> Return m_RowHeaderWidth
> End Get
> Set(ByVal Value As Integer)
> m_RowHeaderWidth = Value
> End Set
> End Property
> <Description("Gets or sets the background color of selected cells."), _
> Category("Appearance")> _
> Public Property SelectionBackColor() As Color
> Get
> Return m_SelectionBackColor
> End Get
> Set(ByVal Value As Color)
> m_SelectionBackColor = Value
> End Set
> End Property
> <Description("Gets or sets the foreground color of selected cells."), _
> Category("Appearance")> _
> Public Property SelectionForeColor() As Color
> Get
> Return m_SelectionForeColor
> End Get
> Set(ByVal Value As Color)
> m_SelectionForeColor = Value
> End Set
> End Property
> <Description("Gets or sets the collection of columns available for
display
> in the datagrid."), _
> Category("Data"), _
>
DesignerSerializationVisibility(DesignerSerializationVisibility.Content),
> _
> Editor(GetType(ColumnCollectionEditor), GetType(UITypeEditor))> _
> Public Property Columns() As Columns
> Get
> Return m_Columns
> End Get
> Set(ByVal Value As Columns)
> m_Columns = Value
> End Set
> End Property
>
> #End Region
>
> Friend Class DatatableManagerTypeConverter
> Inherits ExpandableObjectConverter
>
> Public Overloads Overrides Function ConvertTo(ByVal context As
> System.ComponentModel.ITypeDescriptorContext, ByVal culture As
> System.Globalization.CultureInfo, ByVal value As Object, ByVal
> destinationType As System.Type) As Object
> Return String.Format("Data table manager")
> End Function
>
> Public Overloads Function CanConvertFrom(ByVal context As
> System.ComponentModel.ITypeDescriptorContext, ByVal sourceType As
> System.Type) As Boolean
>
> If (sourceType Is GetType(String)) Then
> Return True
> End If
>
> Return MyBase.CanConvertFrom(context, sourceType)
>
> End Function
> End Class
>
> Friend Class DatatableManagerDesigner
> Inherits System.Windows.Forms.Design.ControlDesigner
>
> Private MyControl As DatatableManager
>
> Public Overrides Sub Initialize(ByVal component As IComponent)
>
> Try
> MyBase.Initialize(component)
>
> '// Record instance of control we're designing
> MyControl = DirectCast(component, DatatableManager)
>
> '// Hook up events
> Dim s As ISelectionService =
> DirectCast(GetService(GetType(ISelectionService)), ISelectionService)
> Dim c As IComponentChangeService =
> DirectCast(GetService(GetType(IComponentChangeService)),
> IComponentChangeService)
> AddHandler s.SelectionChanged, New EventHandler(AddressOf
> OnSelectionChanged)
> AddHandler c.ComponentRemoving, New
ComponentEventHandler(AddressOf
> OnComponentRemoving)
> Catch ex As Exception
> Debug.WriteLine(ex.ToString)
> End Try
> End Sub
>
> Private Sub OnSelectionChanged(ByVal sender As Object, ByVal e As
> System.EventArgs)
>
> 'MyControl.OnSelectionChanged()
>
> End Sub
>
> Private Sub OnComponentRemoving(ByVal sender As Object, ByVal e As
> ComponentEventArgs)
>
> Try
> Dim c As IComponentChangeService =
> DirectCast(GetService(GetType(IComponentChangeService)),
> IComponentChangeService)
> Dim bc As BaseColumn
> Dim h As IDesignerHost =
> DirectCast(GetService(GetType(IDesignerHost)), IDesignerHost)
>
> '// If the user is removing a button
> If (TypeOf e.Component Is BaseColumn) Then
>
> bc = DirectCast(e.Component, BaseColumn)
> If (MyControl.Columns.Contains(bc)) Then
>
> c.OnComponentChanging(MyControl, Nothing)
> MyControl.Columns.Remove(bc)
> c.OnComponentChanged(MyControl, Nothing, Nothing, Nothing)
> Return
> End If
> End If
>
> '// If the user is removing the control itself
> If (e.Component Is MyControl) Then
>
> For i As Int32 = MyControl.Columns.Count - 1 To 0 Step -1
>
> bc = MyControl.Columns(i)
> c.OnComponentChanging(MyControl, Nothing)
> MyControl.Columns.Remove(bc)
> h.DestroyComponent(bc)
> c.OnComponentChanged(MyControl, Nothing, Nothing, Nothing)
> Next i
>
> End If
> Catch ex As Exception
> Debug.WriteLine(ex.ToString)
> End Try
>
>
> End Sub
>
> Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
>
> Try
> Dim s As ISelectionService =
> DirectCast(GetService(GetType(ISelectionService)), ISelectionService)
> Dim c As IComponentChangeService =
> DirectCast(GetService(GetType(IComponentChangeService)),
> IComponentChangeService)
>
> '// Unhook events
> RemoveHandler s.SelectionChanged, New EventHandler(AddressOf
> OnSelectionChanged)
> RemoveHandler c.ComponentRemoving, New
> ComponentEventHandler(AddressOf OnComponentRemoving)
> Catch ex As Exception
> Debug.WriteLine(ex.ToString)
> End Try
>
> MyBase.Dispose(disposing)
>
> End Sub
>
> Public Overrides ReadOnly Property AssociatedComponents() As
> System.Collections.ICollection
> Get
>
> Try
> Return MyControl.Columns
> Catch ex As Exception
> Debug.WriteLine(ex.ToString)
> End Try
>
> End Get
> End Property
>
> Public Overrides ReadOnly Property Verbs() As
> System.ComponentModel.Design.DesignerVerbCollection
>
> Get
>
> Try
> Dim v As DesignerVerbCollection = New DesignerVerbCollection
>
> '// Verb to add buttons
> v.Add(New DesignerVerb("&Add Column", New EventHandler(AddressOf
> OnAddButton)))
>
> Return v
> Catch ex As Exception
> Debug.WriteLine(ex.ToString)
> End Try
>
> End Get
>
> End Property
>
> Private Sub OnAddButton(ByVal sender As Object, ByVal e As
> System.EventArgs)
>
> Try
> Dim bc As BaseColumn
> Dim h As IDesignerHost =
> DirectCast(GetService(GetType(IDesignerHost)), IDesignerHost)
> Dim dt As DesignerTransaction
> Dim c As IComponentChangeService =
> DirectCast(GetService(GetType(IComponentChangeService)),
> IComponentChangeService)
>
> '// Add a new button to the collection
> dt = h.CreateTransaction("Add Column")
> bc = DirectCast(h.CreateComponent(GetType(BaseColumn)),
BaseColumn)
> c.OnComponentChanging(MyControl, Nothing)
> MyControl.Columns.Add(bc)
> c.OnComponentChanged(MyControl, Nothing, Nothing, Nothing)
> dt.Commit()
> Catch ex As Exception
> Debug.WriteLine(ex.ToString)
> End Try
>
> End Sub
>
> End Class
>
>
> End Class
>
> #Region " Column Collection "
>
> '<TypeConverter(GetType(Columns.ColumnsTypeConverter))>
>
> Public Class Columns
> Inherits CollectionBase
>
> Event PropertyChaged()
>
>
'<DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
>
> Default Public Property Item(ByVal index As Integer) As BaseColumn
> Get
> Try
> Return CType(List(index), BaseColumn)
> Catch ex As Exception
> Return Nothing
> End Try
> End Get
> Set(ByVal Value As BaseColumn)
> List(index) = Value
> End Set
> End Property
>
> Public Function Add(ByVal value As BaseColumn) As Integer
> Return List.Add(value)
> value.Collection = Me
> End Function 'Add
>
> Public Sub AddRange(ByVal Items() As BaseColumn)
> Dim Item As Object
> For Each Item In Items
> CType(Item, BaseColumn).Collection = Me
> list.Add(Item)
> Next
> End Sub
>
> Public Function IndexOf(ByVal value As BaseColumn) As Integer
> Return List.IndexOf(value)
> End Function 'IndexOf
>
> Public Sub Insert(ByVal index As Integer, ByVal value As BaseColumn)
> List.Insert(index, value)
> End Sub 'Insert
>
> Public Sub Remove(ByVal value As BaseColumn)
> List.Remove(value)
>
> End Sub 'Remove
>
> Public Function Contains(ByVal value As BaseColumn) As Boolean
> ' If value is not of type BaseColumn, this will return false.
> Return List.Contains(value)
> End Function 'Contains
>
> Protected Shadows Sub OnInsert(ByVal index As Integer, ByVal value As
> BaseColumn)
> ' Insert additional code to be run only when inserting values.
> End Sub 'OnInsert
>
> Protected Shadows Sub OnRemove(ByVal index As Integer, ByVal value As
> BaseColumn)
> ' Insert additional code to be run only when removing values.
> End Sub 'OnRemove
>
> Protected Shadows Sub OnSet(ByVal index As Integer, ByVal oldValue As
> BaseColumn, ByVal newValue As BaseColumn)
> ' Insert additional code to be run only when setting values.
> End Sub 'OnSet
>
> Protected Shadows Sub OnValidate(ByVal value As BaseColumn)
> 'If Not value.GetType() Is Type.GetType("BaseColumn") Then
> 'Throw New ArgumentException("value must be of type BaseColumn.",
> "value")
> 'End If
> End Sub 'OnValidate
>
> Friend Sub RaisePropertyChangedEvent()
> RaiseEvent PropertyChaged()
> End Sub
>
> Friend Class ColumnsTypeConverter
> Inherits ExpandableObjectConverter
>
> Public Overloads Overrides Function ConvertTo(ByVal context As
> System.ComponentModel.ITypeDescriptorContext, ByVal culture As
> System.Globalization.CultureInfo, ByVal value As Object, ByVal
> destinationType As System.Type) As Object
> Return String.Format("Collection")
> End Function
>
> Public Overloads Function CanConvertFrom(ByVal context As
> System.ComponentModel.ITypeDescriptorContext, ByVal sourceType As
> System.Type) As Boolean
>
> If (sourceType Is GetType(String)) Then
> Return True
> End If
>
> Return MyBase.CanConvertFrom(context, sourceType)
>
> End Function
> End Class
>
> End Class
>
> #Region " ColumnCollectionEditor"
>
> Friend Class ColumnCollectionEditor
> Inherits System.ComponentModel.Design.CollectionEditor
>
> Private Types() As System.Type
> Private cf As CollectionForm
>
> Sub New(ByVal type As System.Type)
> MyBase.New(type)
> Types = New System.Type() {GetType(BaseColumn), GetType(TextColumn),
> GetType(CheckColumn)}
> End Sub
>
> Protected Overrides Function CreateNewItemTypes() As System.Type()
> Return Types
> End Function
>
> Protected Overrides Function CreateCollectionForm() As
> System.ComponentModel.Design.CollectionEditor.CollectionForm
> Me.cf = MyBase.CreateCollectionForm
> Return Me.cf
> End Function
>
> Protected Overloads Overrides Function CreateInstance(ByVal itemType As
> System.Type) As Object
>
> Dim blahblah As BaseColumn =
DirectCast(MyBase.CreateInstance(itemType),
> BaseColumn)
>
> If Not Me.Context.Instance Is Nothing Then
> End If
>
> Return blahblah
>
> End Function
>
> End Class
>
> #End Region
>
> #Region " Columns Types"
>
> <Serializable(), TypeConverter(GetType(BaseColumn.BaseColumnConverter))> _
> Public Class BaseColumn
> Inherits Component
>
> Public Enum ColumnTypes
> Base = 1
> Text = 2
> Bool = 3
> End Enum
>
> #Region " Declarations "
>
> Protected m_Alignment As System.Windows.Forms.HorizontalAlignment
> Protected m_HeaderText As String
> Protected m_MappingName As String
> Protected m_NullText As String
> Protected m_ReadOnly As Boolean
> Protected m_Width As Integer
> Protected m_Visible As Boolean
> Protected m_Collection As Columns
> Protected m_ColumnType As ColumnTypes
>
> #End Region
>
> #Region " Properties"
>
> <Description("Gets or sets the alignment of text in a column."), _
> Category("General"), _
> DefaultValue(System.Windows.Forms.HorizontalAlignment.Left)> _
> Public Property Alignment() As System.Windows.Forms.HorizontalAlignment
> Get
> Return m_Alignment
> End Get
> Set(ByVal Value As System.Windows.Forms.HorizontalAlignment)
> m_Alignment = Value
> End Set
> End Property
>
> <Description("Gets or sets the text of the column header."), _
> Category("General"), _
> DefaultValue("")> _
> Public Property HeaderText() As String
> Get
> Return m_HeaderText
> End Get
> Set(ByVal Value As String)
> m_HeaderText = Value
> End Set
> End Property
>
> <Description("Gets or sets the name used to map the column style to a
data
> member."), _
> Category("General"), _
> DefaultValue("")> _
> Public Property MappingName() As String
> Get
> Return m_MappingName
> End Get
> Set(ByVal Value As String)
> m_MappingName = Value
> End Set
> End Property
>
> <Description("Gets or sets the text that is displayed when the column
> contains a null reference (Nothing in Visual Basic)."), _
> Category("General"), _
> DefaultValue("")> _
> Public Property NullText() As String
> Get
> Return m_NullText
> End Get
> Set(ByVal Value As String)
> m_NullText = Value
> End Set
> End Property
>
> <Description("Gets or sets a value indicating whether the data in the
> column can be edited."), _
> Category("General"), _
> DefaultValue(True)> _
> Public Property [ReadOnly]() As Boolean
> Get
> Return m_ReadOnly
> End Get
> Set(ByVal Value As Boolean)
> m_ReadOnly = Value
> End Set
> End Property
>
> <Description("Gets or sets the width of the column."), _
> Category("General"), _
> DefaultValue(50)> _
> Public Property Width() As Integer
> Get
> Return m_Width
> End Get
> Set(ByVal Value As Integer)
> m_Width = Value
> End Set
> End Property
>
> <Description("Gets or sets weather the column should be displayed in the
> datagrid."), _
> Category("General"), _
> DefaultValue(True)> _
> Public Property Visible() As Boolean
> Get
> Return m_Visible
> End Get
> Set(ByVal Value As Boolean)
> m_Visible = Value
> End Set
> End Property
>
> Public WriteOnly Property Collection() As Columns
> Set(ByVal Value As Columns)
> m_Collection = Value
> End Set
> End Property
>
> <Browsable(True)> Public ReadOnly Property ColumnType() As ColumnTypes
> Get
> Return ColumnTypes.Base
> End Get
> End Property
>
> #End Region
>
> #Region " Methods"
>
> Protected Sub PropertyChanged()
> 'Check if the collection is a valid object if not during design time
you
> and up with a message 'Object is not set to an Instance' But Your Program
> Works
> 'By the way I am looking forward for the IsNot operator in VS 2005,
> because every time I forget the Not Operator and need to navigate back
> If Not m_Collection Is Nothing Then
> m_Collection.RaisePropertyChangedEvent()
> End If
> End Sub
>
> Public Overrides Function ToString() As String
> Return m_MappingName
> End Function
>
> #End Region
>
> Friend Class BaseColumnConverter
> Inherits ExpandableObjectConverter
>
> Public Overloads Overrides Function ConvertTo(ByVal context As
> System.ComponentModel.ITypeDescriptorContext, ByVal culture As
> System.Globalization.CultureInfo, ByVal value As Object, ByVal
> destinationType As System.Type) As Object
> Dim mi As BaseColumn = CType(value, BaseColumn)
> Return String.Format("{0}", mi.MappingName)
> End Function
>
> Public Overloads Function CanConvertFrom(ByVal context As
> System.ComponentModel.ITypeDescriptorContext, ByVal sourceType As
> System.Type) As Boolean
>
> If (sourceType Is GetType(String)) Then
> Return True
> End If
>
> Return MyBase.CanConvertFrom(context, sourceType)
>
> End Function
>
> End Class
>
> End Class
>
> <Serializable(), TypeConverter(GetType(TextColumn.TextColumnConverter))> _
> Public Class TextColumn
> Inherits BaseColumn
>
> Private m_Format As String
>
> <Description("Gets or sets the character(s) that specify how text is
> formatted."), _
> Category("General"), _
> DefaultValue("")> _
> Public Property Format() As String
> Get
> Return m_Format
> End Get
> Set(ByVal Value As String)
> m_Format = Value
> End Set
> End Property
>
> <Browsable(True)> Public Shadows ReadOnly Property ColumnType() As
> ColumnTypes
> Get
> Return ColumnTypes.Text
> End Get
> End Property
>
> Friend Class TextColumnConverter
> Inherits BaseColumn.BaseColumnConverter
> Public Overloads Overrides Function ConvertTo(ByVal context As
> System.ComponentModel.ITypeDescriptorContext, ByVal culture As
> System.Globalization.CultureInfo, ByVal value As Object, ByVal
> destinationType As System.Type) As Object
> Dim mi As TextColumn = CType(value, TextColumn)
> Return String.Format("{0}", mi.MappingName)
> End Function
> End Class
>
> End Class
>
> <Serializable(), TypeConverter(GetType(CheckColumn.CheckColumnConverter))>
_
> Public Class CheckColumn
> Inherits BaseColumn
>
> Protected m_TrueValue As Object
> Protected m_FalseValue As Object
>
> <Description("Gets or sets the actual value used when setting the value
of
> the column to true."), _
> Category("General"), _
> DefaultValue(False)> _
> Public Property TrueValue() As String
> Get
> Return CType(m_TrueValue, String)
> End Get
> Set(ByVal Value As String)
> m_TrueValue = Value
> End Set
> End Property
>
> <Description("Gets or sets the actual value used when setting the value
of
> the column to false."), _
> Category("General"), _
> DefaultValue(False)> _
> Public Property FalseValue() As String
> Get
> Return CType(m_FalseValue, String)
> End Get
> Set(ByVal Value As String)
> m_FalseValue = Value
> End Set
> End Property
>
> <Browsable(True)> Public Shadows ReadOnly Property ColumnType() As
> ColumnTypes
> Get
> Return ColumnTypes.Bool
> End Get
> End Property
>
> Friend Class CheckColumnConverter
> Inherits BaseColumn.BaseColumnConverter
> Public Overloads Overrides Function ConvertTo(ByVal context As
> System.ComponentModel.ITypeDescriptorContext, ByVal culture As
> System.Globalization.CultureInfo, ByVal value As Object, ByVal
> destinationType As System.Type) As Object
> Dim mi As CheckColumn = CType(value, CheckColumn)
> Return String.Format("{0}", mi.MappingName)
> End Function
> End Class
>
> End Class
>
> #End Region
>
> #End Region
>
>
> "Michael" <laputa.yip@xxxxxxxxx> wrote in message
> news:%23SqLVMywFHA.3152@xxxxxxxxxxxxxxxxxxxxxxx
> > Dear all ..
> >
> > If I want to use develop a user control and declare a public property
> > which the type is System.Windows.Forms.GridTableStylesCollection
> >
> > For example :
> >
> > Public Class LookAndView
> > Inherits System.Windows.Forms.UserControl
> > Private _Collection As GridTableStylesCollection
> >
> >
> > Public Property Styles() As
> > System.Windows.Forms.GridTableStylesCollection
> > Get
> > Return _Collection
> > End Get
> > Set(ByVal Value As
System.Windows.Forms.GridTableStylesCollection)
> > _Collection = Value
> > End Set
> > End Property
> > emd class
> >
> > I want the properties Styles can edit in style collection editor during
> > in design mode. However, I find there some problem :
> > 1. Styles property show empty / nothing (I know the normal case is show
> > collection)
> > 2. When I click new in style collection editor and input some value into
> > properites. And then I click ok. During open the style collection
editor.
> > the member side still nothing.
> >
> >
> > Can any one help me to solve this problem ?
> >
> >
> > Thanks for your help
> >
> >
> > Michael VB developer
> >
>
>


.