pb 输入的必须为四位有效数字怎么写
答案:2 悬赏:50 手机版
解决时间 2021-02-03 10:37
- 提问者网友：不爱我么
- 2021-02-02 17:18
pb 输入的必须为四位有效数字怎么写
最佳答案
- 五星知识达人网友：野慌
- 2021-02-02 18:29
在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
在属性 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
全部回答
- 1楼网友：妄饮晩冬酒
- 2021-02-02 18:44
编辑列，选列找右边属性叫EDIT选择STYLE TYPE EDITMASK MASK写####限定用户能输入四位数字。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯