Comments by ParkashKaur (Top 9 by date)

Actually while debugging code there is no problem at all but while run exe for the same and during edit the record after 4th or 5th time it is close every time.

Actually while debugging code there is no problem at all but while run exe for the same and during edit the record after 4th or 5th time it is close every time.

I am talking about inbuilt function........

this is my code to create custom control.
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
'using System.Linq;
Imports System.Text
Imports System.Windows.Forms
Imports System.Collections
Imports System.Collections.ObjectModel

Namespace WindowsApplication27
Partial Public Class CheckedListBoxColumn
Inherits DataGridViewColumn
Public Sub New()
MyBase.New(New CheckedListBoxCell())
End Sub
Public Overrides Property CellTemplate() As DataGridViewCell
Get
Return MyBase.CellTemplate
End Get
Set(ByVal value As DataGridViewCell)
If value IsNot Nothing AndAlso Not value.[GetType]().IsAssignableFrom(GetType(CheckedListBoxCell)) Then
Throw New InvalidCastException("Must be a CheckedListBoxCell")
End If
MyBase.CellTemplate = value
End Set
End Property
Friend Sub show()
Throw New NotImplementedException()
End Sub

Private Sub checkedListBoxEditingControl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
' checkedListBoxEditingControl1.Items.Add("fs");
End Sub
End Class
Public Class CheckedListBoxCell
Inherits DataGridViewCell
Public Sub New()
MyBase.New()
End Sub
Public Overrides Sub InitializeEditingControl(ByVal rowIndex As Integer, ByVal initialFormattedValue As Object, ByVal dataGridViewCellStyle As DataGridViewCellStyle)
' Set the value of the editing control to the current cell value.
MyBase.InitializeEditingControl(rowIndex, initialFormattedValue, dataGridViewCellStyle)
Dim ctl As CheckedListBoxEditingControl = TryCast(DataGridView.EditingControl, CheckedListBoxEditingControl)
InitializeCheckedListBox(ctl, DirectCast(Me.FormattedValue, ICollection))
End Sub
Private Sub InitializeCheckedListBox(ByVal ctrl As CheckedListBox, ByVal value As ICollection)

ctrl.Items.Clear()
For Each obj As Object In value
' ctrl.Items.Add("fd");
ctrl.Items.Add(obj.ToString())
Next
ctrl.Tag = Me.Value
End Sub
Public Overrides ReadOnly Property EditType() As Type
Get
Return GetType(CheckedListBoxEditingControl)
End Get
End Property
Protected Overrides Function GetFormattedValue(ByVal value As Object, ByVal rowIndex As Integer, ByRef cellStyle As DataGridViewCellStyle, ByVal valueTypeConverter As System.ComponentModel.TypeConverter, ByVal formattedValueTypeConverter As System.ComponentModel.TypeConverter, ByVal context As DataGridViewDataErrorContexts) As Object


If value Is Nothing Then
Return New List(Of Object)()
End If
Return MyBase.GetFormattedValue(value, rowIndex, cellStyle, valueTypeConverter, formattedValueTypeConverter, context)
End Function
Public Overrides ReadOnly Property FormattedValueType() As Type
Get
Return GetType(ICollection)
End Get
End Property
Public Overrides Property ValueType() As Type
Get
Return GetType(ICollection)
End Get
Set(ByVal value As Type)

End Set
End Property
Private internalControl As CheckedListBox
Protected Overrides Sub Paint(ByVal graphics As System.Drawing.Graphics, ByVal clipBounds As System.Drawing.Rectangle, ByVal cellBounds As System.Drawing.Rectangle, ByVal rowIndex As Integer, ByVal cellState As DataGridViewElementStates, ByVal value As Object, _
ByVal formattedValue As Object, ByVal errorText As String, ByVal cellStyle As DataGridViewCellStyle, ByVal advancedBorderStyle As DataGridViewAdvancedBorderStyle, ByVal