我想做一个文本框的类，不管文本框是数字还是字符，选中该文本框时，刚好覆盖文本框的内容，应该怎么弄，我写了一个类，但是不行，我主要在文本框的CLICK事件添加如下代码：

THIS.SELSTART=0
myvalue=this.VALUE
DO case
case TYPE('myvalue')='C'
   THIS.SELLENGTH=LEN(myvalue)
case TYPE('myvalue')='N'
   THIS.SELLENGTH=LEN(ALLTRIM(STR(myvalue)))
  
ENDCASE
但是效果不行，论坛的师傅能否帮我看下，下面是我的文件

非常感谢吹水佬师傅和xuminxz师傅的解答，2种方法都可行，正是我想要的结果，我先采用吹水佬师傅的方法。