怎样使text或maskedbox的width正好适合3个数字？

Question

你要锁定文本的字体大小、限定数字、屏蔽非法字符、固定字符串长度、对数据的效验，
以上条件要写代码，略。

Answer 1

如果只是确定TEXTBOX的WIDTH的话,试试这个
Private Sub Command1_Click()
Dim a As Long, b As Double, c As Long, d As Long
a = 20 'TWIP和POINT的比例,因为字体的单位是POINT,TEXTBOX的WIDTH的单位是TWIP
b = 2 / 3 '一般字宽与高的比例
c = 30 '辅正 WIDTH 和SCALEWIDTH的差
d = 3 '表示的数字的个数.
Text1.Width = Text1.Font.Size * a * d * b + c
End Sub