估计是人品问题.

都不明白吗?`1``

Private Sub Command1_Click()
Text1.SetFocus
Text1.SelStart = Len(Text1.Text)
SendKeys "{BACKSPACE}"

End Sub

楼上要一下删光人家的字吗

你尝试一下就知道了 在FORMLOAD的时候text的焦点不一定是最后.如果不那样设置的话SENDKEYS也没用``

的确有这个问题,当窗体中有多个控件的时候也会出现这种情况,不过我的好像哪种都可以

Private Sub Command1_Click()
Dim a
a = Len(Text1)
If a > 0 Then
Text1 = Left(Text1, a - 1)
Else
End If
End Sub

我狂晕，你才是人品有问题类，呵呵