Hi,
I am creating a DataGridView Column. and it is working well. now I want to customise this column with AutoCompleteMode, and AutoCompleteSource properties to show the customised data. I made the properties for this columns, and these are also working well. but these properties are not working in the "ApplyCellStyleToEditingControl" subroutine.
Please help me to use these column properties in the "ApplyCellStyleToEditingControl" subroutine.
Public Class DataGridViewDataValueColumn
Inherits DataGridViewColumn
Dim m_AutoCompleteMode As AutoCompleteMode, _
m_AutoCompleteSource As AutoCompleteSource, _
m_AutoCompleteStringCollection As AutoCompleteStringCollection
Public Sub New()
MyBase.New(New DataValueCell())
End Sub
Public Overrides Property CellTemplate() As DataGridViewCell
Get
Return MyBase.CellTemplate
End Get
Set(ByVal value As DataGridViewCell)
' Ensure that the cell used for the template is a DataValueCell.
If (value IsNot Nothing) AndAlso _
Not value.GetType().IsAssignableFrom(GetType(DataValueCell)) _
Then
Throw New InvalidCastException("Must be a DataValueCell")
End If
MyBase.CellTemplate = value
End Set
End Property
Region "User Defined Properties"
'&*--------------------------------------*&'
<Description("Indicates the text completion behaviour of the combo box."), DefaultValue(AutoCompleteMode.None)> _
Public Property AutoCompleteMode() As AutoCompleteMode
Get
Return m_AutoCompleteMode
End Get
Set(ByVal value As AutoCompleteMode)
m_AutoCompleteMode = value
End Set
End Property
<Description("The source of complete strings used to automatic completion."), DefaultValue(AutoCompleteSource.None)> _
Public Property AutoCompleteSource() As AutoCompleteSource
Get
Return m_AutoCompleteSource
End Get
Set(ByVal value As AutoCompleteSource)
m_AutoCompleteSource = value
End Set
End Property
<Description("The autocomplete custom source.")> _
Public Property AutoCompleteCustomSource() As AutoCompleteStringCollection
Get
Return m_AutoCompleteStringCollection
End Get
Set(ByVal value As AutoCompleteStringCollection)
m_AutoCompleteStringCollection = value
End Set
End Property
End Region
End Class
'&*--------------------------------------*&'
Class DataValueCell
Inherits DataGridViewTextBoxCell
Public Sub New()
'
End Sub
Public Overrides ReadOnly Property EditType As Type
Get
Return GetType(PCLDataGridViewTextBoxEditingControl)
End Get
End Property
End Class
'&*--------------------------------------*&'
'&* Edit DataGridView Columns *&'
'&*--------------------------------------*&'
Class PCLDataGridViewTextBoxEditingControl
Inherits DataGridViewTextBoxEditingControl
Public Overrides Function EditingControlWantsInputKey(ByVal keyData As Keys, ByVal dataGridViewWantsInputKey As Boolean) As Boolean
Select Case ((keyData And Keys.KeyCode))
Case Keys.Prior, Keys.Next, Keys.End, Keys.Home, Keys.Left, Keys.Up, Keys.Right, Keys.Down, Keys.Delete
Return True
End Select
Return MyBase.EditingControlWantsInputKey(keyData, dataGridViewWantsInputKey)
End Function
Public Overrides Sub ApplyCellStyleToEditingControl(ByVal dataGridViewCellStyle As DataGridViewCellStyle)
With DirectCast(Me, TextBox)
'.AutoCompleteMode = DataGridViewDataValueColumn.AutoCompleteMode_Value
'.AutoCompleteSource = DataGridViewDataValueColumn.AutoCompleteSource_Value
'.AutoCompleteCustomSource = MyBase.AutoCompleteCustomSource
End With
End Sub
End Class
