Question

vb文本框只允许输入18位数字，怎么写代码？

首先，允许输入任何值，然后按回车，TAb建或者其选择他对象时，出现错误信息。
本人只知道回车键和Tab建，但是不知道选择其他任何对象代码怎么写？

Answer 1

选择其它对象时，文本框将失去焦点，因此可以用LostFocus事件来执行你要的操作：

Private Sub Text1_LostFocus()
if len(text1.text)<>18 then
 msgbox "必须是18位！"
end if
if isnumeric(text1.text)=false then
 msgbox "只能输入数字！"
end if
End Sub