pb 输入的必须为四位有效数字怎么写

pb 输入的必须为四位有效数字怎么写

在PB中 有一个 EditMask 控件。 此控件可以设置本文输入的类型，长度。
在属性 Mask 中设置。 问主可尝试验证。
（EditMask 控件 方便解决这一类问题）
关于代码问题，下面给出。有不妥之处，还望指出！
int i,li_num
string ls_value
li_num=len(sle_1.text)
if li_num = 0 then
messagebox('','没有输入')
return
end if
if li_num <> 4 then
messagebox('','长度为4位')
sle_1.text = ""
return
else

for i=1 to li_num
ls_value=mid(sle_1.text,i,1)
if ls_value<'0' or ls_value >'9' then
me messagebox('','输入有有误，请确认！（应输入4为有效数字）')
sle_1.text = ""
return
end if
next
end if

编辑列，选列找右边属性叫EDIT选择STYLE TYPE EDITMASK MASK写####限定用户能输入四位数字。