跪求文本读入编辑框内如何实现自动滚动或翻页功能

主题：跪求文本读入编辑框内如何实现自动滚动或翻页功能

tql1991 [专家分：0] 发布于 2009-03-18 12:38:00

谢各位老师帮忙呀

本帖地址： http://bbs.pfan.cn/post/296045.html

回复列表（共5个回复）

沙发

homayzh [专家分：7040] 发布于 2009-03-18 13:17:00

你编辑框的SelStart
thisform.edit1.SelStart = ALLTRIM(thisform.edit1.Value)

板凳

tql1991 [专家分：0] 发布于 2009-03-20 10:30:00

你编辑框的SelStart
thisform.edit1.SelStart = ALLTRIM(thisform.edit1.Value)
这个不好用呀,显示属性错

3 楼

homayzh [专家分：7040] 发布于 2009-03-20 10:37:00

thisform.edit1.SetFocus
thisform.edit1.SelStart =LEN(ALLTRIM(thisform.edit1.Value))

4 楼

homayzh [专家分：7040] 发布于 2009-03-20 10:40:00

之前的代码没有调试，呵呵，少打了一个求长度的函数，
***----这是编辑框得到焦点，
thisform.edit1.SetFocus

*****-----把光标移动到编辑框的最后 len(allt(thisform.edit1.Value))的意思是求出编辑框的内容长度
thisform.edit1.SelStart =LEN(ALLTRIM(thisform.edit1.Value))

5 楼

tql1991 [专家分：0] 发布于 2009-03-21 18:05:00

这个方法我知道呀!但是编辑框内有光标显示,不好看呀!
我是这样用timer控制的一行一行向上走.走到最后在循环回去!IF thisform.edit1.selStart<LEN(thisform.edit1.Value)
   KEYBOARD '{DNARROW}'
  ELSE
  thisform.edit1.selStart=0
ENDIF

我要不显有竖杠光标!向上走呀
能不能其它方法呀!

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：跪求文本读入编辑框内如何实现自动滚动或翻页功能

回复列表（共5个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：跪求文本读入编辑框内如何实现自动滚动或翻页功能

回复列表 （共5个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共5个回复）