Question

VB中SendKeys与退格键backspace怎么联用？

VB中SendKeys与退格键backspace怎么联用？我要实现约束文本框中只要数字，输入字母后弹窗，关弹窗后删除字母。
Private Sub Text1_Change()
'非数字校验~~~~~~~~~~~~~~~~~~
If IsNumeric(T1.Text) = False Then
MsgBox "请输入数字！", 48, "错误提示"
SendKeys ?
End If
Private Sub Text1_Change()
'非数字校验~~~~~~~~~~~~~~~~~~
If IsNumeric(Text1.Text) = False Then
MsgBox "请输入数字！", 48, "错误提示"
SendKeys ?
End If

Answer 1

SendKeys "{BKSP}" 即可。

见以下例程：

Private Sub Text1_Change()
'非数字校验~~~~~~~~~~~~~~~~~~
If IsNumeric(Text1.Text) = False And Text1.Text <> "" Then
MsgBox "请输入数字！", 48, "错误提示"
SendKeys "{BKSP}" ’两个联用
End If
End Sub

Answer 2

Private Sub Text1_Change()
'非数字校验~~~~~~~~~~~~~~~~~~
If IsNumeric(Text1.Text) = False And Text1.Text <> "" Then
MsgBox "请输入数字！", 48, "错误提示"
SendKeys "{BKSP}"
End If
End Sub