如何动态的补充位数！（在线等待！）

Question

在一个文本框里。
如果用户输入一个数字。不到八位的话。
  要自动把它添加成为八位。
这个功能怎么实现？

Answer 1

Private Sub Text1_Change()
If Len(Text1.Text) < 8 Then
   '右补0
   Text1.Text = Text1.Text & String(8 - Len(Text1.Text), "0")
   '左补0
   Text1.Text = String(8 - Len(Text1.Text), "0") & Text1.Text
End If
End Sub不知是不是你要的

Answer 2

用这个text1=format(text1,"00000000")
不过应把放入到 Text1_LostFocus()事件　中去

Answer 3

text1.text=right("0000000"+text1.text,8)