在datagridviewcell中的sendkeys.send(“{sendkeys.send}”)

Question

当我的程序到达sendkeys.send("{RIGHT}")时就会崩溃

在以下代码中

Private Sub dataGridViewDim_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles DataGridViewDim.MouseUp

        If e.Button = MouseButtons.Left Then
            Dim hit As DataGridView.HitTestInfo = _
                DataGridViewDim.HitTest(e.X, e.Y)
            If hit.Type = DataGridViewHitTestType.Cell Then
                DataGridViewDim.BeginEdit(True)
                SendKeys.Send("{RIGHT}") ' crashes when it gets here
            Else
                DataGridViewDim.EndEdit()
            End If
        End If
    End Sub

如果没有它，只需单击编辑模式即可完美工作。我想把cursosr设置到最右边。

Answer 1

作为参考，它做到了这一点：

If e.Button = MouseButtons.Left Then
    Dim hit As DataGridView.HitTestInfo = _
        DataGridViewDim.HitTest(e.X, e.Y)
    If hit.Type = DataGridViewHitTestType.Cell Then
        DataGridViewDim.BeginEdit(True)
        Dim lengstr As Integer = DataGridViewDim.CurrentCell.Value.ToString.Length
        Dim EditBox = DirectCast(DataGridViewDim.EditingControl, TextBox)
        If IsNothing(EditBox) = False Then EditBox.SelectionStart = lengstr
    Else
        DataGridViewDim.EndEdit()
    End If
End If