精易论坛

标题: 关于编辑框1。存储文本问题 [打印本页]

---

作者: 往事如风0    时间: 2025-2-20 20:52
标题: 关于编辑框1。存储文本问题

程序中有一个编辑框（编辑框1）。我希望实现以下功能：

• 限制文本行数：当编辑框内的文本行数超过预设的行数（比如 10 行）时，自动删除最早的文本行。
• 行为要求：当文本行数达到 11 行时，删除第一行文本。每当行数超过限制时，总是删除第一行，保持最多为 10 行。
  

请问，如何实现这个功能？

---

作者: aipca    时间: 2025-2-20 20:52
主要两个问题：
1、判断十行后删除第1行；
2、让光标继续停留在第十行。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

时钟1.时钟周期 ＝ 50

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
文本	文本型		0
编辑框	文本型
A	整数型

编辑框 ＝ 编辑框1.内容
文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
判断 (取数组成员数 (文本) ＞ 10)
A ＝ 编辑框1.起始选择位置
编辑框1.内容 ＝ 文本_删除指定文本行 (编辑框, 1)
编辑框1.起始选择位置 ＝ A

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 时钟1.时钟周期 ＝ 50<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 编辑框, 文本型<br /> .局部变量 A, 整数型<br /> <br /> 编辑框 ＝ 编辑框1.内容<br /> 文本 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .判断开始 (取数组成员数 (文本) ＞ 10)<br />     A ＝ 编辑框1.起始选择位置<br />     编辑框1.内容 ＝ 文本_删除指定文本行 (编辑框, 1)<br />     编辑框1.起始选择位置 ＝ A<br /> .默认

---

作者: 企鹅号525150138    时间: 2025-2-20 21:02
例子.e (961.61 KB, 下载次数: 6)

2025-2-20 21:02 上传

点击文件名下载附件

---

作者: aipca    时间: 2025-2-20 22:57
似呼用编辑框内容被改变可能比时钟要好一些

  

子程序名	返回值类型	公开	备 注
_编辑框1_内容被改变

控十行 ()

子程序名	返回值类型	公开	备 注
控十行

变量名	类 型	静态	数组	备 注
文本	文本型		0
编辑框	文本型
A	整数型

编辑框 ＝ 编辑框1.内容
文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
判断 (取数组成员数 (文本) ＞ 10)
A ＝ 编辑框1.起始选择位置
编辑框1.内容 ＝ 文本_删除指定文本行 (编辑框, 1)
编辑框1.起始选择位置 ＝ A

.版本 2<br /> <br /> .子程序 _编辑框1_内容被改变<br /> <br /> 控十行 ()<br /> <br /> .子程序 控十行<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 编辑框, 文本型<br /> .局部变量 A, 整数型<br /> <br /> 编辑框 ＝ 编辑框1.内容<br /> 文本 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .判断开始 (取数组成员数 (文本) ＞ 10)<br />     A ＝ 编辑框1.起始选择位置<br />     编辑框1.内容 ＝ 文本_删除指定文本行 (编辑框, 1)<br />     编辑框1.起始选择位置 ＝ A<br /> .默认

---

作者: BruceJoysky1987    时间: 2025-2-21 00:02
限制行高.e (6.27 KB, 下载次数: 0)

2025-2-21 00:00 上传

点击文件名下载附件

  

两种方法

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4