问题已解决4 - VB6论坛 - 编程论坛档案馆

标题：问题已解决4

取消只看楼主

菜鸟VB

等　级：新手上路
帖　子：96
专家分：0
注　册：2008-5-2
结帖率：75%

问题点数：0 回复次数：1

问题已解决4

如图所示怎么样才能实现点一次按钮就清除text1里的最后一个数字呢

[[it] 本帖最后由菜鸟VB 于 2008-5-13 13:18 编辑 [/it]]

未命名.jpg (2.25 KB)

222.jpg (2.06 KB)

搜索更多相关主题的帖子: 数字　 text　按钮　

2008-05-13 12:56

菜鸟VB

等　级：新手上路
帖　子：96
专家分：0
注　册：2008-5-2

得分:0

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

End If
End Sub

2008-05-13 13:19