标题:请教文本框光标问题
只看楼主
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:0 
以下是引用qjbzjp在2018-3-7 11:48:53的发言:

我一直想要数值型。当然转换一下也不是不行,只是想弄明白,为什么字符型可以,数据型不行?

可能是一种有效输入的约束
对于数据值类型,光标在最后一位数字右边没必要,如果说是为修改最后一位数字,在右边还要多操作一下向左移动才可输入新的数字。
对于字符类型,当明确第几位字符是最后一位字符时,情况也一样。可以试试 MaxLength=10 时,看看光标在第10个字符的情况。
2018-03-07 12:53
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:190
帖 子:3125
专家分:8340
注 册:2015-3-25
得分:6 
楼主是想,修改第N位时,光标停在第N位后面,然后用 "<-" 键删除.
问题是不能停留在最后1位,所以楼主删除不了...
其实,楼主删除最后1位时,完全可以改用 "Del" 键来删除.然后再输入.
2018-03-07 14:19
星光悠蓝
Rank: 9Rank: 9Rank: 9
来 自:山水甲天下
等 级:贵宾
威 望:48
帖 子:459
专家分:1116
注 册:2010-1-11
得分:0 
有时候录入数据,前面几位数不变,需要锁定几位数据,常用到光标定位在最后或者倒数1位,这方法也是有用的。
2018-03-07 14:24
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
得分:0 
如果不是设置上的问题,只能接受VFP的安排了。谢谢大家!

相互学习,互相交流,共同提高。
2018-03-07 14:49
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:190
帖 子:3125
专家分:8340
注 册:2015-3-25
得分:0 
完全模仿了1个text控件,只能输入 数字和 + . -
* text1.init
this.value = ""
* text1.kepress
LPARAMETERS nKeyCode, nShiftAltCtrl

IF INLIST(nKeyCode,48,49,50,51,52,53,54,55,56,57,5,19,24,4,7,127,45,43,13,46,1,6)

   IF This.SelStart=0 AND (OCCURS("+",This.Value) >0 OR OCCURS("-",This.Value) >0) AND !INLIST(nKeyCode,5,19,24,4,7,127,13,1,6) &&有+/-时,不能在第1位输入任何字符
      NODEFAULT
   ENDIF   
   
   IF nKeyCode=46 AND OCCURS(".",This.Value)>0 &&只能输入1个小数点
      NODEFAULT
   ENDIF
   IF (nKeyCode=43 OR nKeyCode=45) AND (OCCURS("+",This.Value) >0 OR OCCURS("-",This.Value) >0) &&只能输入1个+/-
      NODEFAULT
   ENDIF
   
   IF nKeyCode=43 AND (This.SelStart > 0 OR OCCURS("+",This.Value) >0) &&只能在首位输入+,只能输入1个
      NODEFAULT
   ENDIF
   
   IF nKeyCode=45 AND (This.SelStart > 0 OR OCCURS("-",This.Value) >0) &&只能在首位输入-,只能输入1个
      NODEFAULT
   ENDIF
  
ELSE
   NODEFAULT
ENDIF


[此贴子已经被作者于2018-3-7 17:17编辑过]

2018-03-07 17:13



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-484964-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016337 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved