13楼的方法,可能在我的电脑实现不了.
我是这样作的:
先设置文本框的Alignment=1、SelectOnEntry=.f.
文本框的SetFocus事件里:
this.SelStart =LEN(STR(this.Value)) && 文本框是设为0.00的
在Click事件里也加入相应的代码:
this.SelStart =LEN(STR(this.Value))
结果:
点击框时,显示为“ I 0.00”
说明:“”为框内显示,前面的I即为鼠标,后面为0.00,任你点击多少次,放弃鼠标键,鼠标位置就回到了图中I的位置。
输入12,框显示为“ 12I 0.00”
说明:“”为框内显示,前面的I即为鼠标,后面为0.00,中间为正在输入的数字,达不到从最右边第1格输入数据的要求。是不是哪里还有错?