编辑框如何实现双击选中当前一行的数据？

mytiger

  

子程序名	返回值类型	公开	备 注
_编辑框1_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

时钟1.时钟周期 ＝ 100

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

变量名	类 型	静态	数组	备 注
str	文本型		0
n	整数型
hl	整数型
len	整数型
star	整数型

str ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (str), n)
hl ＝ 取文本长度 (str [n])
len ＝ len ＋ hl ＋ 2
调试输出 (len)
如果真 (len ＜ 编辑框1.起始选择位置)
star ＝ len
如果真 (len ≥ 编辑框1.起始选择位置)
编辑框1.起始选择位置 ＝ star
编辑框1.被选择字符数 ＝ hl
跳出循环 ()

计次循环尾 ()
时钟1.时钟周期 ＝ 0

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _编辑框1_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 时钟1.时钟周期 ＝ 100<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 str, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 hl, 整数型<br /> .局部变量 len, 整数型<br /> .局部变量 star, 整数型<br /> <br /> str ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (str), n)<br />     hl ＝ 取文本长度 (str [n])<br />     len ＝ len ＋ hl ＋ 2<br />     调试输出 (len)<br />     .如果真 (len ＜ 编辑框1.起始选择位置)<br />         star ＝ len<br />     .如果真结束<br />     .如果真 (len ≥ 编辑框1.起始选择位置)<br />         编辑框1.起始选择位置 ＝ star<br />         编辑框1.被选择字符数 ＝ hl<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 时钟1.时钟周期 ＝ 0

mytiger

  

子程序名	返回值类型	公开	备 注
_编辑框1_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
str	文本型		0
n	整数型
len	整数型

str ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (str), n)
len ＝ len ＋ 取文本长度 (str [n])
如果真 (右移 (编辑框1.发送信息 (176, 0, 0), 16) ＜ len)
跳出循环 ()
len ＝ len ＋ 2
计次循环尾 ()
编辑框1.投递信息 (177, len － 取文本长度 (str [n]), len)

.版本 2<br /> <br /> .子程序 _编辑框1_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 str, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 len, 整数型<br /> <br /> str ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (str), n)<br />     len ＝ len ＋ 取文本长度 (str [n])<br />     .如果真 (右移 (编辑框1.发送信息 (176, 0, 0), 16) ＜ len)<br />         跳出循环 ()<br />     .如果真结束<br />     len ＝ len ＋ 2<br /> .计次循环尾 ()<br /> 编辑框1.投递信息 (177, len － 取文本长度 (str [n]), len)