SpinButton with padded numbers

[teachman]

Hello,

I have a numeric text field that allows 000 to 999. I would like to use a SpinButton control to allow users to enter the number. However, if the number is less than 100 it needs to be padded on the left with the zero character. i.e. 5 needs to be 005, 51 needs to be 051. The SpinButton control does not seem to allow for this. Is there any other option out there that I might be able to use?

Thanks for your help.

George

 

[number kruncher]

You can use a Custom Format on the number field of 000, to pad it out.

HTH

 

[AlphaFrog]

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] UserForm_Initialize()
    TextBox1.Value = "000"
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] SpinButton1_SpinUp()
    [color=darkblue]If[/color] TextBox1.Value < 999 [color=darkblue]Then[/color]
        TextBox1.Value = Format(TextBox1.Value + 1, "000")
    [color=darkblue]End[/color] [color=darkblue]If[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] SpinButton1_SpinDown()
    [color=darkblue]If[/color] TextBox1.Value > 0 [color=darkblue]Then[/color]
        TextBox1.Value = Format(TextBox1.Value - 1, "000")
    End [color=darkblue]If[/color]
End [color=darkblue]Sub[/color]