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

2024-11-29 13:40:20
推荐回答(2个)
回答1:

Private Sub Command1_Click()
Dim i As Integer

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

回答2:

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