vb.net DataGridViewCheckBoxColumn 自绘显示

自定义 自绘DataGridView扩展中 发现 CheckBox 等控件 显示错误,摸索了半天,总结一下

片段:

Case "DataGridViewCheckBoxCell"
    NCell = New DataGridViewCheckBoxCell()
    Dim col As DataGridViewCheckBoxColumn = DirectCast(Columns(ColIndex), DataGridViewCheckBoxColumn)
    NCell.Value = If(r(ColIndex).ToString = col.TrueValue, True, False)

........

for    row.add(cell)    next 　　'循环添加'

Rows.Add(row)

要设置 TrueValue FalseValue 的值,也就是 约定一下 什么值 显示 选中

主要 代码就是 划线部分 要保证 Cell 的值 是 Boolean类型,否则 控件会报错.