我想做一个文本框的类，不管文本框是数字还是字符，选中该文本框时，刚好覆盖文本框的内容，应该怎么弄，我写了一个类，但是不行，我主要在文本框的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
但是效果不行，论坛的师傅能否帮我看下，下面是我的文件

通常设置SelectOnEntry=.T.就可以，当移动焦点到文本框时会选定全部。
单击文本框时就选定全部，这时要想编辑其中某些内容就不方便了，其实只要双击就可以选定全部。
确要单击选定全部，这样试试：
1、设置属性：
    SelectOnEntry = .T
2、Click事件：
    PROCEDURE Click
        this.SetFocus
    ENDPROC

试试看。

 LOCAL fs,n

myvalue=this.value
DO case
case TYPE('myvalue')='C'
THIS.SELSTART=0   
THIS.SELLENGTH=LEN(ALLTRIM(myvalue))
case TYPE('myvalue')='N'
fs=FONTMETRIC(6,this.FontName,this.FontSize)+FONTMETRIC(16,this.FontName,this.FontSize)
fs=fs/2
n=round(this.Width/fs,0)

THIS.SELSTART=n-LEN(STR(myvalue))
THIS.SELLENGTH=LEN(STR(myvalue))
  
ENDCASE
  

[此贴子已经被作者于2019-7-17 15:31编辑过]

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