datagridnoactivecellcolumn.vb

来自「使用的人力资源管理系统」· VB 代码 · 共 13 行

Public Class DataGridNoActiveCellColumn
    Inherits DataGridTextBoxColumn
    Private SelectedRow As Integer = -1
    Protected Overloads Overrides Sub Edit(ByVal source As CurrencyManager, ByVal rowNum As Integer, ByVal bounds As Rectangle, ByVal read As Boolean, ByVal instantText As String, ByVal cellIsVisible As Boolean)
        If SelectedRow > -1 And SelectedRow < source.List.Count + 1 Then
            Me.DataGridTableStyle.DataGrid.UnSelect(SelectedRow)
        End If
        SelectedRow = rowNum
        Me.DataGridTableStyle.DataGrid.Select(SelectedRow)
    End Sub

End Class