DataGridView NumericUpDown 会触发什么事件？

Question

目标

捕获每当用户单击 DataGridView 的 Numeric Up down 的“Up”或“Down”箭头时触发的事件。

---

用于数字向上向下的代码

此代码生成一个 NumericUpDown 列，我可以将其添加到我的 DataGridView。

Public Class NumericUpDownColumnRight
Inherits DataGridViewColumn

Public Sub New()
    MyBase.New(New NumericUpDownRightCell())
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 NumericUpDownCell.
        If Not (value Is Nothing) AndAlso Not value.GetType().IsAssignableFrom(GetType(NumericUpDownRightCell)) Then
            Throw New InvalidCastException("Must be a NumericUpDown")
        End If
        MyBase.CellTemplate = value
    End Set
End Property
End Class

Public Class NumericUpDownRightCell
    Inherits DataGridViewTextBoxCell

Private _Minimum As Integer = 0
Private _Maximum As Integer = 25

Public Property Minimum As Integer
    Get
        Return _Minimum
    End Get
    Set(value As Integer)
        _Minimum = value
    End Set
End Property
Public Property Maximum As Integer
    Get
        Return _Maximum
    End Get
    Set(value As Integer)
        _Maximum = value
    End Set
End Property

Public Sub 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 NumericUpDownRightEditingControl = CType(DataGridView.EditingControl, NumericUpDownRightEditingControl)
    ctl.Minimum = Minimum
    ctl.Maximum = Maximum
    Dim CurrentValue As Decimal = 0
    If Not DBNull.Value.Equals(Me.Value) Then
        If Decimal.TryParse(Me.Value.ToString, CurrentValue) Then
            ctl.Value = CurrentValue
        End If
    Else
        ctl.Value = 0
    End If
End Sub

Public Overrides ReadOnly Property EditType() As Type
    Get
        ' Return the type of the editing contol that NumericUpDownCell uses.
        Return GetType(NumericUpDownRightEditingControl)
    End Get
End Property
Public Overrides ReadOnly Property ValueType() As Type
    Get
        ' Return the type of the value that NumericUpDownCell contains.
        Return GetType(Decimal)
    End Get
End Property
Public Overrides ReadOnly Property DefaultNewRowValue() As Object
    Get
        ' Use as the current default value.
        Return Nothing
    End Get
End Property
End Class

Class NumericUpDownRightEditingControl
    Inherits NumericUpDown
    Implements IDataGridViewEditingControl

Private dataGridViewControl As DataGridView
Private valueIsChanged As Boolean = False
Private rowIndexNum As Integer

Public Sub New()
    Me.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
    Me.UpDownAlign = System.Windows.Forms.LeftRightAlignment.Right
End Sub

Public Property EditingControlFormattedValue() As Object Implements IDataGridViewEditingControl.EditingControlFormattedValue
    Get
        Return Me.Value.ToString("#.##")
    End Get
    Set(ByVal value As Object)
        If TypeOf value Is Decimal Then
            Me.Value = Decimal.Parse(CStr(value))
        End If
    End Set
End Property

Public Function GetEditingControlFormattedValue(ByVal context As DataGridViewDataErrorContexts) As Object _
    Implements IDataGridViewEditingControl.GetEditingControlFormattedValue
    Return Me.Value.ToString() ' Me.Value.ToString("#.##")
End Function

Public Sub ApplyCellStyleToEditingControl(ByVal dataGridViewCellStyle As DataGridViewCellStyle) _
    Implements IDataGridViewEditingControl.ApplyCellStyleToEditingControl
    Me.Font = dataGridViewCellStyle.Font
    Me.ForeColor = dataGridViewCellStyle.ForeColor
    Me.BackColor = dataGridViewCellStyle.BackColor
End Sub

Public Property EditingControlRowIndex() As Integer _
    Implements IDataGridViewEditingControl.EditingControlRowIndex
    Get
        Return rowIndexNum
    End Get
    Set(ByVal value As Integer)
        rowIndexNum = value
    End Set
End Property

Public Function EditingControlWantsInputKey(ByVal key As Keys, ByVal dataGridViewWantsInputKey As Boolean) As Boolean _
    Implements IDataGridViewEditingControl.EditingControlWantsInputKey
    ' Let the NumericUpDown handle the keys listed.
    Select Case key And Keys.KeyCode
        Case Keys.Left, Keys.Up, Keys.Down, Keys.Right, _
            Keys.Home, Keys.End, Keys.PageDown, Keys.PageUp
            Return True
        Case Else
            Return False
    End Select
End Function

Public Sub PrepareEditingControlForEdit(ByVal selectAll As Boolean) _
    Implements IDataGridViewEditingControl.PrepareEditingControlForEdit
    ' No preparation needs to be done.
End Sub

Public ReadOnly Property RepositionEditingControlOnValueChange() As Boolean Implements IDataGridViewEditingControl.RepositionEditingControlOnValueChange
    Get
        Return False
    End Get
End Property

Public Property EditingControlDataGridView() As DataGridView Implements IDataGridViewEditingControl.EditingControlDataGridView
    Get
        Return dataGridViewControl
    End Get
    Set(ByVal value As DataGridView)
        dataGridViewControl = value
    End Set
End Property

Public Property EditingControlValueChanged() As Boolean Implements IDataGridViewEditingControl.EditingControlValueChanged
    Get
        Return valueIsChanged
    End Get
    Set(ByVal value As Boolean)
        valueIsChanged = value
    End Set
End Property

Public ReadOnly Property EditingControlCursor() As Cursor Implements IDataGridViewEditingControl.EditingPanelCursor
    Get
        Return MyBase.Cursor
    End Get
End Property

Protected Overrides Sub OnValueChanged(ByVal eventargs As EventArgs)
    ' Notify the DataGridView that the contents of the cell have changed.
    valueIsChanged = True
    Me.EditingControlDataGridView.NotifyCurrentCellDirty(True)
    MyBase.OnValueChanged(eventargs)
End Sub
End Class

---

问题

每当我点击一个单元格时，我通常都会处理DataGridView1.CellContentClick 事件来处理正在发生的事情。除了，这仅在我单击单元格时执行，但在我单击向上或向下时没有意识到。如何实现“Up”和“Down”事件的处理？

Answer 1

我找到了替代方案。这不完全是我所要求的，但我最终还是得到了这个值......我处理了 CellLeave 事件，然后我去定位数字 up down 单元格的值。

Private Sub DataGridView1_CellLeave(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellLeave
    If e.ColumnIndex = DataGridView1.Columns("ColNud").Index AndAlso e.RowIndex >= 0 Then
        Dim NudValue = DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value
    End If
End Sub