检测何时选择 DataGridViewCell/在 VB.Net 中获得焦点

Question

在我正在进行的项目中，我创建了一个屏幕键盘，用于输入 TextBoxes 或 DataGridViewCells。

我试图通过一些方法和变量来实现这一点。首先有一个名为CurrentFocus 的全局变量，它是一个对象，它被设置为具有键盘可以输入的最新焦点的任何对象。创建此变量是因为 VB.Net 中似乎没有 LastFocus 样式方法。

我通过向文本框添加简单的事件处理程序来设置CurrentFocus 的值，我将通过以下方式键入数据：

Dim randomTextbox As New Textbox
AddHandler randomTextbox.GotFocus, AddressOf TextboxGainsFocus

Private Sub TextboxGainsFocus(sender as Textbox, e As EventArgs)
    CurrentFocus = sender
End Sub

至于输入文本框本身，键盘上的每个键调用以下方法，参数值是被按下的任何键的大写（因此按下'B'键发送“B”作为参数）

Private Sub KeypadPress(ByCal key As Char)
    If TypeOf CurrentFocus Is TextBox Then
        If Char.IsDigit(key) Then
            CType(CurrentFocus, Textbox).Text &= key
        Else
            If shiftActive Then
                CType(CurrentFocus, Textbox).Text &= key
            Else
                CType(CurrentFocus, Textbox).Text &= Char.ToLower(key)
            End If
        End If
    End If
End Sub

我没有办法轻松设置按住不放的 Shift 键，因此我将“Shift”设置为就像 Caps Lock 一样，您只需将其打开或关闭即可。这就是 shiftActive 布尔值的用途。

现在所有上述代码都可以正常工作。我现在的问题是我无法让它与 DataGridViewCells 一起使用。首先，我尝试将类似的 EventHandler 添加到我正在使用的数据网格中

Dim randomGrid As New DataGridView
AddHandler randomGrid.GotFocus, AddressOf GridGainsFocus

Private Sub GridGainsFocus(sender As DataGridView, e As EventArgs)
    CurrentFocus = sender.CurrentCell
End Sub

我已经尝试在KeypadPress 方法中添加一个ElseIf 案例，以检测CurrentFocus 何时是DataGridViewCell。这很好用。我的问题是它要么没有选择正确的单元格，要么就是什么都不做。

例如，假设我的 DataGridView 中有 3 行和 3 列。我选择单元格 (2,2)，然后按键盘上的一个键。如果我在KeypadPress 方法触发时设置断点以查看CurrentFocus 的值是多少，它会将CurrentFocus 显示为Cell (0,0)。

但这并不总是发生。有时我确实将它随机（而且看起来确实是随机的）设置为正确的单元格，但尝试像

CType(CurrentFocus, DataGridViewCell).Value &= key

在我的 Keypress 方法中没有做任何事情来改变 DataGridViewCell 的值。

那么我到底需要做什么？有没有办法将每个 Cell 设置为拥有自己的处理程序并让它以这种方式工作？我该如何做才能修改单元格本身的值？

感谢您的帮助。

Answer 1

所以我想出了如何解决我的问题，我会为将来遇到此问题的任何人逐步解决。

首先，我向我的 DataGridView 添加了一个事件处理程序，其工作方式类似于我的文本框事件处理程序。

Dim exGrid As DataGridView
AddHandler exGrid.CellEnter, AddressOf GridGainsFocus

Private Sub GridGainsFocus(sender As DataGridView, e As EventArgs)
    CurrentFocus = sender.CurrentCell
End Sub

其工作方式是 DataGridViewCells 无法获得焦点。只有 DataGridView 本身可以获得焦点。相反，当它们被“聚焦”时，细胞本身被设置为“选定”。因此，您需要使用CellEnter 事件，该事件在用户选择单元格时触发。现在进入我的 Keypress 方法。

Private Sub KeypadPress(ByVal key As Char)
    If TypeOf CurrentFocus Is TextBox Then
        Me.ActiveControl = CurrentFocus
        If Char.IsDigit(key) Then
            SendKeys.SendWait(key)
        Else
            If shiftActive Then
                SendKeys.SendWait(key)
            Else
                SendKeys.SendWait(Char.ToLower(key))
            End If
        End If
    ElseIf TypeOf CurrentFocus Is DataGridViewCell Then
        If CType(CurrentFocus, DataGridViewCell).ReadOnly = False THen
            If Char.IsDigit(key) Then
                If CType(CurrentFocus, DataGridViewCell).Value.Equals(0) Then
                    CType(CurrentFocus, DataGridViewCell).Value = key
                Else
                    CType(CurrentFocus, DataGridViewCell).Value &= key
                End If
            End If
        End If
    End If
End Sub

所以我会从上到下讨论这个。首先，您会注意到我在尝试将数据输入到 TextBox 时修改了处理按键的代码。这是因为对于我的文本框，我将它们设置为具有自动完成数据以帮助搜索数据。我在原始问题中提出的第一个设置不允许使用自动完成数据，因为没有触发实际的按键操作。

因此，我对代码所做的更改现在执行以下操作：

1. 按下按钮时，如果 CurrentFocus 对象的类型为 TextBox，则它将当前焦点更改为该对象。
2. 触发 SenKey 事件。这将触发 TextBox AutoComplete。

现在是 DataGridViewCells。当我使用GridGainsFocus 方法将CurrentFocus 对象设置为DataGridViewCell 时，该对象存储了对该单元格的完美引用。所以我需要做的就是修改那个 Cell 的值。

现在就我的程序而言，我只希望用户将数字值放入单元格中，这就是我使用IsDigit if 语句的原因。而具体的If value.Equals(0)设置为当单元格中有默认值0时，点击'5'键不会将文本输入设置为'05'，而是设置为'5'。