树型框选择问题

你的猫

111111.e (14.64 KB, 下载次数: 7)

2025-4-8 20:39 上传

点击文件名下载附件

比如展开>广西   双击南宁后 会加入到右边编辑框
如果在不展开的情况下 双击>广西 如何见广西里面所有城市加入到右边编辑框

w589321

111111.e (16.18 KB, 下载次数: 2)

7 天前 上传

点击文件名下载附件

  

子程序名	返回值类型	公开	备 注
_树型框_城市_双击项目

变量名	类 型	静态	数组	备 注
index	整数型
tab_count	整数型
ret	逻辑型
findex	整数型
i	整数型

index ＝ 树型框_城市.现行选中项
tab_count ＝ 树型框_城市.取缩进层次 (index)
如果真 (tab_count ≠ 1)  ' //不是第一层
编辑框_已选城市.加入文本 (树型框_城市.取项目文本 (index) ＋ #换行符 )
返回 ()
' //第一层
ret ＝ 树型框_城市.是否已扩展 (index)
树型框_城市.禁止重画 ()
如果真 (ret)  ' //已扩展
树型框_城市.收缩 (index)
树型框_城市.允许重画 ()
返回 ()
' //未扩展
树型框_城市.扩展 (index)
树型框_城市.允许重画 ()
如果真 (树型框_城市.是否有子项目 (index) ＝ 假)
返回 ()
计次循环首 (树型框_城市.取项目数 () － index － 1, i)
findex ＝ 树型框_城市.取父项目 (index ＋ i)
如果 (index ＝ findex)
编辑框_已选城市.加入文本 (树型框_城市.取项目文本 (index ＋ i) ＋ #换行符 )
跳出循环 ()

计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _树型框_城市_双击项目<br /> .局部变量 index, 整数型<br /> .局部变量 tab_count, 整数型<br /> .局部变量 ret, 逻辑型<br /> .局部变量 findex, 整数型<br /> .局部变量 i, 整数型<br /> <br /> index ＝ 树型框_城市.现行选中项<br /> tab_count ＝ 树型框_城市.取缩进层次 (index)<br /> .如果真 (tab_count ≠ 1)  ' //不是第一层<br />     编辑框_已选城市.加入文本 (树型框_城市.取项目文本 (index) ＋ #换行符)<br />     返回 ()<br /> .如果真结束<br /> ' //第一层<br /> ret ＝ 树型框_城市.是否已扩展 (index)<br /> 树型框_城市.禁止重画 ()<br /> .如果真 (ret)  ' //已扩展<br />     树型框_城市.收缩 (index)<br />     树型框_城市.允许重画 ()<br />     返回 ()<br /> .如果真结束<br /> ' //未扩展<br /> 树型框_城市.扩展 (index)<br /> 树型框_城市.允许重画 ()<br /> .如果真 (树型框_城市.是否有子项目 (index) ＝ 假)<br />     返回 ()<br /> .如果真结束<br /> .计次循环首 (树型框_城市.取项目数 () － index － 1, i)<br />     findex ＝ 树型框_城市.取父项目 (index ＋ i)<br />     .如果 (index ＝ findex)<br />         编辑框_已选城市.加入文本 (树型框_城市.取项目文本 (index ＋ i) ＋ #换行符)<br />     .否则<br />         跳出循环 ()<br />     .如果结束<br /> <br /> .计次循环尾 ()

菜鸟路过

双击的时间下写是否展开和判断是否有子项目，根据这个就能枚举所有的信息加入到右边

り铕靺╮铕樣﹏

.版本 2
.支持库 iext

.局部变量 已选项目, 文本型
.局部变量 总项目, 文本型
.局部变量 总项目1, 文本型
.局部变量 索引
.局部变量 i


.如果真 (树型框_城市.是否有子项目 (树型框_城市.现行选中项) ＝ 假)
    已选项目 ＝ 树型框_城市.取项目文本 (树型框_城市.现行选中项)
    总项目1 ＝ 总项目1 ＋ 已选项目 ＋ #换行符
    编辑框_已选城市.加入文本 (总项目1)
    返回 ()
.如果真结束


.计次循环首 (树型框_城市.取项目数 (), i)
    索引 ＝ i － 1
    .如果真 (树型框_城市.取父项目 (索引) ＝ 树型框_城市.现行选中项)
        总项目1 ＝ 树型框_城市.取项目文本 (索引) ＋ #换行符
        编辑框_已选城市.加入文本 (总项目1)
    .如果真结束

.计次循环尾 ()

嘿沙漠

加了临时程序集变量控制就好了

菜鸟路过

  

子程序名	返回值类型	公开	备 注
_树型框_城市_双击项目

变量名	类 型	静态	数组	备 注
父id	整数型
i	整数型

如果 (树型框_城市.是否有子项目 (树型框_城市.现行选中项))  ' 有子项目全部加入
如果真 (树型框_城市.是否已扩展 (树型框_城市.现行选中项))  ' 当前展开状态直接返回
返回 ()

父id ＝ 树型框_城市.现行选中项
变量循环首 (父id ＋ 1, 树型框_城市.取项目数 (), 1, i)
如果真 (树型框_城市.取父项目 (i) ＝ 父id)
编辑框_已选城市.加入文本 (树型框_城市.取项目文本 (i) ＋ #换行符 )

变量循环尾 ()

编辑框_已选城市.加入文本 (树型框_城市.取项目文本 (树型框_城市.现行选中项) ＋ #换行符 )

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _树型框_城市_双击项目<br /> .局部变量 父id, 整数型<br /> .局部变量 i, 整数型<br /> <br /> .如果 (树型框_城市.是否有子项目 (树型框_城市.现行选中项))  ' 有子项目全部加入<br />     .如果真 (树型框_城市.是否已扩展 (树型框_城市.现行选中项))  ' 当前展开状态直接返回<br />         返回 ()<br />     .如果真结束<br /> <br />     父id ＝ 树型框_城市.现行选中项<br />     .变量循环首 (父id ＋ 1, 树型框_城市.取项目数 (), 1, i)<br /> <br />         .如果真 (树型框_城市.取父项目 (i) ＝ 父id)<br />             编辑框_已选城市.加入文本 (树型框_城市.取项目文本 (i) ＋ #换行符)<br />         .如果真结束<br /> <br /> <br />     .变量循环尾 ()<br /> <br /> <br /> .否则<br />     编辑框_已选城市.加入文本 (树型框_城市.取项目文本 (树型框_城市.现行选中项) ＋ #换行符)

嘿沙漠

嘿沙漠 发表于 2025-4-8 21:21
加了临时程序集变量控制就好了

哦。你还需要在展开的时候也把双击的项目加到右侧，下面这样就可以了

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_禁止扩展	逻辑型

子程序名	返回值类型	公开	备 注
_树型框_城市_双击项目

变量名	类 型	静态	数组	备 注
已选项目	文本型
总项目	文本型
总项目1	文本型
索引	整数型
i	整数型

编辑框_已选城市.内容 ＝ “”
已选项目 ＝ 树型框_城市.取项目文本 (树型框_城市.现行选中项)
总项目1 ＝ 总项目1 ＋ 已选项目 ＋ #换行符
如果真 (树型框_城市.取缩进层次 (树型框_城市.现行选中项) ＞ 1)
编辑框_已选城市.加入文本 (总项目1)
返回 ()

计次循环首 (树型框_城市.取项目数 (), i)
索引 ＝ i － 1
如果真 (树型框_城市.取父项目 (索引) ＝ 树型框_城市.现行选中项)
总项目1 ＝ 树型框_城市.取项目文本 (索引) ＋ #换行符
编辑框_已选城市.加入文本 (总项目1)

计次循环尾 ()
集_禁止扩展 ＝ 真

子程序名	返回值类型	公开	备 注
_树型框_城市_即将扩展	逻辑型
参数名	类 型	参考	可空	数组	备 注
项目索引	整数型

如果真 (集_禁止扩展)
集_禁止扩展 ＝ 假
返回 (假)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_禁止扩展, 逻辑型<br /> <br /> .子程序 _树型框_城市_双击项目<br /> .局部变量 已选项目, 文本型<br /> .局部变量 总项目, 文本型<br /> .局部变量 总项目1, 文本型<br /> .局部变量 索引, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 编辑框_已选城市.内容 ＝ “”<br /> 已选项目 ＝ 树型框_城市.取项目文本 (树型框_城市.现行选中项)<br /> 总项目1 ＝ 总项目1 ＋ 已选项目 ＋ #换行符<br /> .如果真 (树型框_城市.取缩进层次 (树型框_城市.现行选中项) ＞ 1)<br />     编辑框_已选城市.加入文本 (总项目1)<br />     返回 ()<br /> .如果真结束<br /> <br /> .计次循环首 (树型框_城市.取项目数 (), i)<br />     索引 ＝ i － 1<br />     .如果真 (树型框_城市.取父项目 (索引) ＝ 树型框_城市.现行选中项)<br />         总项目1 ＝ 树型框_城市.取项目文本 (索引) ＋ #换行符<br />         编辑框_已选城市.加入文本 (总项目1)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 集_禁止扩展 ＝ 真<br /> <br /> .子程序 _树型框_城市_即将扩展, 逻辑型<br /> .参数 项目索引, 整数型<br /> <br /> .如果真 (集_禁止扩展)<br />     集_禁止扩展 ＝ 假<br />     返回 (假)<br /> .如果真结束

你的猫

@菜鸟路过    @り铕靺╮铕樣﹏    @嘿沙漠     ...   

测试过了你们的代码后 双击一个城市,如安徽。加入到右边后 会卡一会
然后不卡后 安徽两个字也会加进去
然后在单独选另外一个城市的指定市区
如：湖北的荆门，也会卡一会。这个能解决吗


我想的是
如果双击安徽   就会把安徽里面的城市加入到右边编辑框，但是不能包含安徽两个字。
然后如果在单独选择其他城市的市区 如：广东   在加入东莞

加入后 窗口别卡着。

你的猫

り铕靺╮铕樣﹏ 发表于 2025-4-8 21:03
.版本 2
.支持库 iext

@り铕靺╮铕樣﹏  

你这个测试  除了卡 没别的问题，卡一会窗口这个问题可以解决吗

嘿沙漠

你的猫 发表于 2025-4-8 22:17
@菜鸟路过    @り铕靺╮铕樣﹏    @嘿沙漠     ...   

测试过了你们的代码后 双击一个城市,如安徽。加入到 ...

卡是因为没改你的  编辑框.加入文本。这玩意放在循环里性能不好的。
下面的就是按你要求来改的
看图：



代码：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_禁止扩展	逻辑型

子程序名	返回值类型	公开	备 注
_树型框_城市_双击项目

变量名	类 型	静态	数组	备 注
总项目	文本型
索引	整数型
i	整数型

集_禁止扩展 ＝ 真
如果 (树型框_城市.取缩进层次 (树型框_城市.现行选中项) ＞ 1)
编辑框_已选城市.加入文本 (树型框_城市.取项目文本 (树型框_城市.现行选中项) ＋ #换行符 )


编辑框_已选城市.内容 ＝ “”
计次循环首 (树型框_城市.取项目数 (), i)
索引 ＝ i － 1
如果真 (树型框_城市.取父项目 (索引) ＝ 树型框_城市.现行选中项)
总项目 ＝ 总项目 ＋ 树型框_城市.取项目文本 (索引) ＋ #换行符

计次循环尾 ()
编辑框_已选城市.内容 ＝ 总项目

子程序名	返回值类型	公开	备 注
_树型框_城市_即将扩展	逻辑型
参数名	类 型	参考	可空	数组	备 注
项目索引	整数型

如果真 (集_禁止扩展)
集_禁止扩展 ＝ 假
返回 (假)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_禁止扩展, 逻辑型<br /> <br /> .子程序 _树型框_城市_双击项目<br /> .局部变量 总项目, 文本型<br /> .局部变量 索引, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 集_禁止扩展 ＝ 真<br /> <br /> .如果 (树型框_城市.取缩进层次 (树型框_城市.现行选中项) ＞ 1)<br />     编辑框_已选城市.加入文本 (树型框_城市.取项目文本 (树型框_城市.现行选中项) ＋ #换行符)<br /> .否则<br /> <br />     编辑框_已选城市.内容 ＝ “”<br />     .计次循环首 (树型框_城市.取项目数 (), i)<br />         索引 ＝ i － 1<br />         .如果真 (树型框_城市.取父项目 (索引) ＝ 树型框_城市.现行选中项)<br />             总项目 ＝ 总项目 ＋ 树型框_城市.取项目文本 (索引) ＋ #换行符<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     编辑框_已选城市.内容 ＝ 总项目<br /> .如果结束<br /> <br /> <br /> .子程序 _树型框_城市_即将扩展, 逻辑型<br /> .参数 项目索引, 整数型<br /> <br /> .如果真 (集_禁止扩展)<br />     集_禁止扩展 ＝ 假<br />     返回 (假)<br /> .如果真结束