怎样在文本框中制作一个按钮实现点击一次就删除光标前的一个字符

Question

   各位大虾，请问怎样在文本框中制作一个按钮实现点击一次就删除光标前的一个字符？

Answer 1

Private Sub Command1_Click()
vstr = Text1.Text
lstr = Len(vstr)
Text1.Text = Left(vstr, lstr - 1)
End Sub

Answer 2

它的只能删最后面的   不是删光标前的   text1.text="12354"
你把光标放在  3和5之间就不是试一下      

Answer 3

Option ExplicitPrivate Sub Command1_Click()
  If Text1.SelStart > 0 Then
    Text1.Text = Mid(Text1.Text, 1, Text1.SelStart - 1) & Mid(Text1.Text, Text1.SelStart + 1)
  End If
End Sub

Answer 4

Option ExplicitPrivate Sub Command1_Click()
  Dim BakIndex As Long
  BakIndex = Text1.SelStart
  If Text1.SelStart > 0 Then
    Text1.Text = Mid(Text1.Text, 1, Text1.SelStart - 1) & Mid(Text1.Text, Text1.SelStart + 1)
    Text1.SelStart = BakIndex - 1
    Text1.SetFocus
    
End If
End Sub

Answer 5

Private Sub Command1_Click()
Text1.SetFocus
SendKeys "{BACKSPACE}"
End Sub