vb字数补零，求高手帮忙！！！

来源：百度知道编辑：UC知道时间：2024/06/09 01:30:51

已经设控件：CmdNumber（按钮）TextNumber（只可输入6位数字的文本）F
如果在TextNumber中输入的数字小于6个，点击按钮时就在小于6个的数字前加满零。并且锁定文本框为不可输入。

没那么麻烦啦！用Format()函数就可以啦！
Private Sub CmdNumber_Click()
TextNumber= Format(TextNumber, "000000")
TextNumber.Locked=True'锁定文本框
End Sub

a=str(textnumber)
if len(a)=5 then
textnumber=val(0&a)
elseif
len(a)=4 then
textnumber=val(00&a)
......
end if