求助！！！！ 高级选择夹动态添加子夹问题

xyushi1987

当单击按钮1    添加 子夹A        单击按钮2   添加子夹B      如果子夹A  添加后 再单击  按钮1   哪现行子夹  就选择 子夹A

舞影无踪

我是新手，给你写了个，有没有用还得看你怎么理解了，本人能力有限。[e]
.版本 2

.图片 dat1
.图片 dat2
.图片 dat3
[/e]

[e]
.版本 2
.支持库 shell

.程序集 窗口程序集1

.子程序 _按钮1_被单击

.判断开始 (选择夹1.取子夹数目 () ＝ 1)
    写到文件 (取特定目录 (11) ＋ “2.dat”, #dat2)
    选择夹1.子夹管理 ＝ 读入文件 (取特定目录 (11) ＋ “2.dat”)
    删除文件 (取特定目录 (11) ＋ “2.dat”)
.判断 (选择夹1.取子夹数目 () ＝ 2)
    写到文件 (取特定目录 (11) ＋ “3.dat”, #dat3)
    选择夹1.子夹管理 ＝ 读入文件 (取特定目录 (11) ＋ “3.dat”)
    删除文件 (取特定目录 (11) ＋ “3.dat”)
.默认
    信息框 (“再不努力学习，别人就把你赶上来了。”, 48, “友情提醒”)
.判断结束
' 后边不写了
' 可以 先取子夹名称 ，一个一个取完存在变量中，然后读入子夹管理文件后，又一个一个依次将其 置子夹名称 。
' 看上去比较麻烦，我是新手，不要歧视我。

.子程序 _按钮2_被单击

' 写到文件 (“d:\1.dat”, 选择夹1.子夹管理)
' 写到文件 (“d:\2.dat”, 选择夹1.子夹管理)
' 写到文件 (“d:\3.dat”, 选择夹1.子夹管理)
' 建一个写出一个文件做范本。
' 好吧，我承认我是个新手。


.子程序 _按钮3_被单击

选择夹1.现行子夹 ＝ 选择夹1.取子夹数目 ()
[/e]

舞影无踪

原来可以传RAR附件，还以为我只能传图片呢。

舞影无踪

不好意思，刚没看懂你的意思，呵呵，原来是高级选择夹，误会误会。
这回你所

[e]
.版本 2
.支持库 iext3

.程序集 窗口程序集1
.程序集变量 新第一子夹位置, 整数型
.程序集变量 新第二子夹位置, 整数型

.子程序 _按钮1_被单击
.局部变量 子夹标题, 文本型

.如果 (新第一子夹位置 ≠ 0)
高级选择夹1.现行子夹 ＝ 新第一子夹位置
.否则
.如果真 (输入框 (“输入子夹标题”, “夹标题”, “输入子夹标题”, 子夹标题, 1) 且 子夹标题 ≠ “”)
高级选择夹1.加入子夹 (子夹标题, 高级选择夹1.取子夹数目 (), , , )
新第一子夹位置 ＝ 高级选择夹1.取子夹数目 () － 1
.如果真结束

.如果结束


.子程序 _按钮2_被单击
.局部变量 子夹标题, 文本型

.如果 (新第二子夹位置 ≠ 0)
高级选择夹1.现行子夹 ＝ 新第二子夹位置
.否则
.如果真 (输入框 (“输入子夹标题”, “夹标题”, “输入子夹标题”, 子夹标题, 1) 且 子夹标题 ≠ “”)
高级选择夹1.加入子夹 (子夹标题, 高级选择夹1.取子夹数目 (), , , )
新第二子夹位置 ＝ 高级选择夹1.取子夹数目 () － 1

[/e]

舞影无踪

再来个画蛇添足的。
[e]
.版本 2
.支持库 iext3

.程序集 窗口程序集1
.程序集变量 新第一子夹位置, 整数型
.程序集变量 新第二子夹位置, 整数型

.子程序 _按钮1_被单击
.局部变量 子夹标题, 文本型

.如果真 (高级选择夹1.现行子夹 ＝ 新第一子夹位置)
    新第一子夹位置 ＝ 0
.如果真结束
.如果 (新第一子夹位置 ≠ 0)
    高级选择夹1.现行子夹 ＝ 新第一子夹位置
.否则
    .如果真 (输入框 (“输入子夹标题”, “夹标题”, “输入子夹标题”, 子夹标题, 1) 且 子夹标题 ≠ “”)
        高级选择夹1.加入子夹 (子夹标题, 高级选择夹1.取子夹数目 (), , , )
        新第一子夹位置 ＝ 高级选择夹1.取子夹数目 () － 1
    .如果真结束

.如果结束


.子程序 _按钮2_被单击
.局部变量 子夹标题, 文本型

.如果真 (高级选择夹1.现行子夹 ＝ 新第二子夹位置)
    新第二子夹位置 ＝ 0
.如果真结束
.如果 (新第二子夹位置 ≠ 0)
    高级选择夹1.现行子夹 ＝ 新第二子夹位置
.否则
    .如果真 (输入框 (“输入子夹标题”, “夹标题”, “输入子夹标题”, 子夹标题, 1) 且 子夹标题 ≠ “”)
        高级选择夹1.加入子夹 (子夹标题, 高级选择夹1.取子夹数目 (), , , )
        新第二子夹位置 ＝ 高级选择夹1.取子夹数目 () － 1
    .如果真结束

.如果结束

[/e]

xyushi1987

舞影无踪 发表于 2013-12-1 01:01
再来个画蛇添足的。
[e]
.版本 2

我说的是这种效果  谢谢

xyushi1987

[e]
.版本 2
.支持库 iext3
.支持库 iext2

.子程序 _超级按钮销售管理_被单击
.局部变量 s


.计次循环首 (高级选择夹1.取子夹数目 (), s)
.如果真 (高级选择夹1.取子夹名称 (s) ＝ 超级按钮销售管理.标题)
高级选择夹1.现行子夹 ＝ s
跳出循环 ()

.如果真结束
.如果 (s ＝ 高级选择夹1.取子夹数目 ())
高级选择夹1.加入子夹 (超级按钮销售管理.标题, s, , , )
高级选择夹1.现行子夹 ＝ s
.否则

.如果结束

.计次循环尾 ()





.子程序 _超级按钮进货管理_被单击
.局部变量 s


.计次循环首 (高级选择夹1.取子夹数目 (), s)
.如果真 (高级选择夹1.取子夹名称 (s) ＝ 超级按钮进货管理.标题)
高级选择夹1.现行子夹 ＝ s
跳出循环 ()

.如果真结束
.如果 (s ＝ 高级选择夹1.取子夹数目 ())
高级选择夹1.加入子夹 (超级按钮进货管理.标题, s, , , )
高级选择夹1.现行子夹 ＝ s
.否则

.如果结束

.计次循环尾 ()



.子程序 _超级按钮客户管理_被单击
.局部变量 s


.计次循环首 (高级选择夹1.取子夹数目 (), s)
.如果真 (高级选择夹1.取子夹名称 (s) ＝ 超级按钮客户管理.标题)
高级选择夹1.现行子夹 ＝ s
跳出循环 ()

.如果真结束
.如果 (s ＝ 高级选择夹1.取子夹数目 ())
高级选择夹1.加入子夹 (超级按钮客户管理.标题, s, , , )
高级选择夹1.现行子夹 ＝ s
.否则

.如果结束

.计次循环尾 ()



.子程序 _超级按钮供应商管理_被单击
.局部变量 s


.计次循环首 (高级选择夹1.取子夹数目 (), s)
.如果真 (高级选择夹1.取子夹名称 (s) ＝ 超级按钮供应商管理.标题)
高级选择夹1.现行子夹 ＝ s
跳出循环 ()

.如果真结束
.如果 (s ＝ 高级选择夹1.取子夹数目 ())
高级选择夹1.加入子夹 (超级按钮供应商管理.标题, s, , , )
高级选择夹1.现行子夹 ＝ s
.否则

.如果结束

.计次循环尾 ()



.子程序 _超级按钮货品管理_被单击
.局部变量 s


.计次循环首 (高级选择夹1.取子夹数目 (), s)
.如果真 (高级选择夹1.取子夹名称 (s) ＝ 超级按钮货品管理.标题)
高级选择夹1.现行子夹 ＝ s
跳出循环 ()

.如果真结束
.如果 (s ＝ 高级选择夹1.取子夹数目 ())
高级选择夹1.加入子夹 (超级按钮货品管理.标题, s, , , )
高级选择夹1.现行子夹 ＝ s
.否则

.如果结束

.计次循环尾 ()


.子程序 _超级按钮资金管理_被单击
.局部变量 s


.计次循环首 (高级选择夹1.取子夹数目 (), s)
.如果真 (高级选择夹1.取子夹名称 (s) ＝ 超级按钮资金管理.标题)
高级选择夹1.现行子夹 ＝ s
跳出循环 ()

.如果真结束
.如果 (s ＝ 高级选择夹1.取子夹数目 ())
高级选择夹1.加入子夹 (超级按钮资金管理.标题, s, , , )
高级选择夹1.现行子夹 ＝ s
.否则

.如果结束

.计次循环尾 ()

[/e]