Question

我正在处理带有数字键盘和退格键的表单。用户使用表单中提供的数字在文本框中输入数字。我有一个我要编程的退格按钮。我写了以下内容：

            Private Sub btnBackSpace_Click_1(sender As Object, e As EventArgs) Handles btnBackSpace.Click

    'The procedure works as a backspace for the
    'cash box

    If txtCash.Text < " " Then

        txtCash.Text = Mid(txtCash.Text, 1, Len(txtCash.Text) - 1 + 1)

    Else

        txtCash.Text = Mid(txtCash.Text, 1, Len(txtCash.Text) - 1)

    End If

End Sub

唯一的问题是它从最后一个字符开始返回，这很好，但我也希望从光标位置开始。

我怎样才能完成任务。

Answer 1

我会选择Hanlet的解决方案，但是......文本框的SelectionStart属性会告诉您插入符号的位置。从那里开始，如果需要，你应该能够手工操作。

Answer 2

这应该可以解决问题：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    txtCash.Focus()
    SendKeys.Send("{BACKSPACE}")
End Sub

Answer 3

做类似的事情

    Private Sub btnBackSpace_Click_1(sender As Object, e As EventArgs) Handles btnBackSpace.Click

    'The procedure works as a backspace for the
    'cash box

    If txtCash.Text < " " Then

    Else

        txtCash.Text = Mid(txtCash.Text, 1, Len(txtCash.Text) - 1)

    End If

End Sub

想想这个帮助：/

为计算器写一个退格按钮

3 个答案: