VB.NET 多个datagridviews的一键点击或按键事件

Question

我有 4 个数据网格视图，比如说 Dgv1、Dgv2、Dgv3、Dgv4

假设我想用上下箭头键上下移动行。

有没有办法为所有数据网格视图编写一次代码？

目前我必须像这样编码 4 次：

Private Sub Dgv1_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Dgv1.KeyUp
    If e.KeyCode = Keys.Up OR e.KeyCode = Keys.Down OR e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Then
        Dim crRowIndex As Integer = Dgv1.CurrentCell.RowIndex
        Value = Dgv1.Rows(crRowIndex).Cells(4).Value.ToString
        ' Do more stuff
    End If
End Sub

这四次。所有 datagridviews 从不同的 sql 表中获取不同的数据，但功能是相同的。虽然我需要在其他数据网格视图中使用不同的单元格。

Answer 1

尝试将其更改为：

Private Sub Dgv1_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Dgv1.KeyUp, dgv2.keyup, dgv3.keyup, dgv4.keyup
If e.KeyCode = Keys.Up OR e.KeyCode = Keys.Down OR e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Then
    Dim dgv as DataGridView = DirectCast(sender, DataGridView)
    Dim crRowIndex As Integer = dgv.CurrentCell.RowIndex
    Value = dgv.Rows(crRowIndex).Cells(4).Value.ToString
    ' Do more stuff
End If
End Sub

基本上，您只是添加到 Handles 列表，然后使用 sender 获取正在处理的特定 datagridview