Question

在vb 中只用一个命令按钮，怎么实现text文本框中字符的一个个删除，就像键盘的backspace键的功能，求代码

Answer 1

Private Sub Command1_Click()
Dim i As Integer

i = Len(Text1.Text)
Text1.Text = Mid(Text1.Text, 1, i - 1)
End Sub

Answer 2

Private Sub Command1_Click()
If Len(Text1.Text) > 0 Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub