想要删除VB文本框内的内容应该怎样设置代码啊?
3个回答
展开全部
Private Sub Command1_Click()
If Len(Text1) > 1 Then
If Len(Text1) - InStr(Text1, ".") = 1 Then
Text1 = Left(Text1, Len(Text1) - 2)
Else
Text1 = Left(Text1, Len(Text1) - 1)
End If
Else
Text1 = "0"
End If
End Sub
If Len(Text1) > 1 Then
If Len(Text1) - InStr(Text1, ".") = 1 Then
Text1 = Left(Text1, Len(Text1) - 2)
Else
Text1 = Left(Text1, Len(Text1) - 1)
End If
Else
Text1 = "0"
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Dim strTxt As String
strTxt = Text1.Text
If Len(strTxt) = 0 Then Exit Sub
strTxt = Left(strTxt, Len(strTxt) - 1)
Text1.Text = strTxt
strTxt = Text1.Text
If Len(strTxt) = 0 Then Exit Sub
strTxt = Left(strTxt, Len(strTxt) - 1)
Text1.Text = strTxt
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询