UC知道求：VB删除text首字为0的代码
来源：百度知道 编辑：UC知道 时间：2024/05/22 09:08:30
大家请看说明：有一个text1.text和一个Command数组。现在由Command（CmdAdd）赋值给text1.text(txt.text)
Option Explicit
Private sumadd As Boolean '布尔运算
Private Sub CmdAdd_Click(Index As Integer)
If sumadd Then
Txt.Text = Format$(Index)
sumadd = False
Else
Txt.Text = _
Txt.Text & Format$(Index)
End If
End Sub
有个问题，就是比如txt.text会显示这样的数字0123456。我想把开头的0删除，让txt.text只要首数字是0便自动删除。怎么实现？给予代码！
下面给出的虽然能实现功能，但并不是我所预期的。因为我做的是计算器。比如如果用format函数的话，那我的+/-计算将回出错。
Option Explicit
Private sumadd As Boolean '布尔运算
Private Sub CmdAdd_Click(Index As Integer)
If sumadd Then
Txt.Text = Format$(Index)
sumadd = False
Else
Txt.Text = _
Txt.Text & Format$(Index)
End If
End Sub
有个问题，就是比如txt.text会显示这样的数字0123456。我想把开头的0删除，让txt.text只要首数字是0便自动删除。怎么实现？给予代码！
下面给出的虽然能实现功能，但并不是我所预期的。因为我做的是计算器。比如如果用format函数的话，那我的+/-计算将回出错。
上边2层的！我服了！
只要一句话Text1.Text = Format(Text1.Text, "#")
都没用过Format函数？
你可以
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a = Format(Text1.Text, "#")
b = Format(Text2.Text, "0")
Text3.Text = a + b
End Sub
这样是不会出错的
text1.text=val(000001245)
----------------------------------------------