请问文本框如何限制只能输入0或1 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 请问文本框如何限制只能输入0或1

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 4321 人关注过本帖

标题：请问文本框如何限制只能输入0或1

只看楼主加入收藏

taohua300

来　自：光
等　级：贵宾
威　望：14
帖　子：1636
专家分：3906
注　册：2009-3-11

第 11 楼

得分:0

If !Empty(Chrtran(this.value,'01',''))
Messagebox("只能输入01")
Endif

放哪看你需求

个性太多,无法显示

2017-03-27 08:57

mywisdom88

等　级：版主
威　望：191
帖　子：3146
专家分：8408
注　册：2015-3-25

第 12 楼

得分:0

以下是引用taifu945在2017-3-27 08:28:18的发言：

题主的意思好像不是说文本框里只能输入一个0或1，而是只允许0和1的组合，不允许2～9的数字录入，但长度不仅限于一位。

那就这样
* 在 Text1.init 上
this.value= ""
* 在 Text1.KeyPress 上
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 48 OR nKeyCode=49 OR nKeyCode=13 OR nKeyCode=127 OR nKeyCode=27 OR nKeyCode=9 &&只能输入 0 ，1，回车，退格，ESC,TAB
ELSE
NODEFAULT
ENDIF

[此贴子已经被作者于2017-3-27 09:05编辑过]

2017-03-27 09:01

taohua300

来　自：光
等　级：贵宾
威　望：14
帖　子：1636
专家分：3906
注　册：2009-3-11

第 13 楼

得分:0

以下是引用mywisdom88在2017-3-27 09:01:23的发言：

那就这样
* 在 Text1.init 上
this.value= ""
* 在 Text1.KeyPress 上
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 48 OR nKeyCode=49 OR nKeyCode=13 OR nKeyCode=127 OR nKeyCode=27 OR nKeyCode=9 &&只能输入 0 ，1，回车，退格，ESC,TAB
ELSE
NODEFAULT
ENDIF

既然这样方向键和删除键也得加上

个性太多,无法显示

2017-03-27 16:49

星光悠蓝

来　自：山水甲天下
等　级：贵宾
威　望：52
帖　子：510
专家分：1248
注　册：2010-1-11

第 14 楼

得分:0

上面可以解决键盘输入限制了，但还应考虑复制粘贴的情况！！

2017-03-28 08:57

mywisdom88

等　级：版主
威　望：191
帖　子：3146
专家分：8408
注　册：2015-3-25

第 15 楼

得分:0

以下是引用星光悠蓝在2017-3-28 08:57:53的发言：

上面可以解决键盘输入限制了，但还应考虑复制粘贴的情况！！

*!* Text1.init
this.value=""

*!* Text1.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF INLIST(nKeyCode,48,49,13,127,27,9,4,5,19,24) &&只能输入 0，1，回车，删除，ESC，TAB，上键，下键，左键，右键
ELSE
*   MESSAGEBOX(nKeyCode)
    NODEFAULT
ENDIF

*!* Text1.Valid
LOCAL TxtValue
TxtValue = ALLTRIM(this.Value)
this.Value = TxtValue

FOR i=1 TO LEN(TxtValue)
    IF SUBSTR(TxtValue,i,1) <>"1" AND SUBSTR(TxtValue,i,1)<>"0"
       this.Value = ""
       RETURN
     ENDIF
ENDFOR

[此贴子已经被作者于2017-3-28 12:30编辑过]

2017-03-28 12:05