[新手例程][界面类]仿HTML滑动门和导航栏

七夜网

模仿HTML的滑动门和导航栏效果，滑动条可以根据自己需要完善，新手例程，大神绕道


代码：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
标签_	标签	0
集_临时缓存标签	标签
集_句柄	整数型

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

变量名	类 型	静态	数组	备 注
n	整数型
标签	标签

计次循环首 (7, n)
复制窗口组件 (标签1, 标签)
标签.标记 ＝ 到文本 (n － 1)
标签.移动 (标签1.左边 ��� (n － 1) �� (标签1.宽度 ＋ 5), 标签1.顶边, , )
标签.背景颜色 ＝ #默认色
标签.文本颜色 ＝ #黑色
标签.可视 ＝ 真
标签.标题 ＝ “导航” ＋ 到文本 (n)
加入成员 (标签_, 标签)
如果真 (n ≥ 2)
高级选择夹1.加入子夹 (取重复文本 (5, “ ”) ＋ “导航” ＋ 到文本 (n) ＋ 取重复文本 (5, “ ”), n, , , )
如果真 (n ＝ 1)
标签2.移动 (标签.左边, 标签.顶边 ＋ 标签.高度, 标签.宽度, 3)

计次循环尾 ()
高级选择夹1.置子夹名称 (0, 取重复文本 (5, “ ”) ＋ “导航1” ＋ 取重复文本 (5, “ ”))

子程序名	返回值类型	公开	备 注
_标签1_鼠标位置被移动	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
标签	标签
n	整数型

标签 ＝ 取事件组件 ()
如果真 (是否已创建 (集_临时缓存标签))
如果真 (集_临时缓存标签 ＝ 标签)
返回 ()

' 调试输出 (标签.标记)
集_临时缓存标签 ＝ 标签
计次循环首 (取数组成员数 (标签_), n)
判断 (标签_ [n].标记 ＝ 标签.标记)
标签.背景颜色 ＝ #天蓝
标签.文本颜色 ＝ #白色
如果真 (标签_ [n].背景颜色 ≠ #默认色 )
标签_ [n].背景颜色 ＝ #默认色
标签_ [n].文本颜色 ＝ #黑色


计次循环尾 ()
' 调试输出 (集_临时缓存标签.左边, 标签2.左边, “移动距离:”, 集_临时缓存标签.左边 － 标签2.左边)
强制结束线程 (集_句柄)
启动线程 (&处理移动距离, 集_临时缓存标签.左边 － 标签2.左边, 集_句柄)
' 标签2.移动 (标签.左边, 标签.顶边 ＋ 标签.高度, 标签.宽度, 3)
高级选择夹1.现行子夹 ＝ 到整数 (标签.标记)

子程序名	返回值类型	公开	备 注
处理移动距离
参数名	类 型	参考	可空	数组	备 注
距离

变量名	类 型	静态	数组	备 注
n	整数型
临_距离	整数型

调试输出 (距离, 集_临时缓存标签.左边)
判断 (距离 ＞ 0)  ' 向右移动
临_距离 ＝ 标签2.左边
计次循环首 (距离, n)
标签2.左边 ＝ 标签2.左边 ＋ 1
处理事件 ()
延迟 (1)
计次循环尾 ()
判断 (距离 ＜ 0)  ' 向左移动
临_距离 ＝ 标签2.左边
计次循环首 (到整数 (子文本替换 (到文本 (距离), “-”, “”, , , 真)), n)
标签2.左边 ＝ 标签2.左边 － 1
处理事件 ()
延迟 (1)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
__启动窗口_可否被关闭	逻辑型

强制结束线程 (集_句柄)

子程序名	返回值类型	公开	备 注
_高级选择夹1_子夹头被点燃
参数名	类 型	参考	可空	数组	备 注
子夹索引	整数型

高级选择夹1.现行子夹 ＝ 子夹索引

i支持库列表	支持库注释
iext3	扩展界面支持库三
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 iext3<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 标签_, 标签, , "0"<br /> .程序集变量 集_临时缓存标签, 标签<br /> .程序集变量 集_句柄, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 n, 整数型<br /> .局部变量 标签, 标签<br /> <br /> .计次循环首 (7, n)<br />     复制窗口组件 (标签1, 标签)<br />     标签.标记 ＝ 到文本 (n － 1)<br />     标签.移动 (标签1.左边 ＋ (n － 1) × (标签1.宽度 ＋ 5), 标签1.顶边, , )<br />     标签.背景颜色 ＝ #默认色<br />     标签.文本颜色 ＝ #黑色<br />     标签.可视 ＝ 真<br />     标签.标题 ＝ “导航” ＋ 到文本 (n)<br />     加入成员 (标签_, 标签)<br />     .如果真 (n ≥ 2)<br />         高级选择夹1.加入子夹 (取重复文本 (5, “ ”) ＋ “导航” ＋ 到文本 (n) ＋ 取重复文本 (5, “ ”), n, , , )<br />     .如果真结束<br />     .如果真 (n ＝ 1)<br />         标签2.移动 (标签.左边, 标签.顶边 ＋ 标签.高度, 标签.宽度, 3)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 高级选择夹1.置子夹名称 (0, 取重复文本 (5, “ ”) ＋ “导航1” ＋ 取重复文本 (5, “ ”))<br /> <br /> .子程序 _标签1_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 标签, 标签<br /> .局部变量 n, 整数型<br /> <br /> 标签 ＝ 取事件组件 ()<br /> .如果真 (是否已创建 (集_临时缓存标签))<br />     .如果真 (集_临时缓存标签 ＝ 标签)<br />         返回 ()<br />     .如果真结束<br /> <br /> .如果真结束<br /> ' 调试输出 (标签.标记)<br /> 集_临时缓存标签 ＝ 标签<br /> .计次循环首 (取数组成员数 (标签_), n)<br />     .判断开始 (标签_ [n].标记 ＝ 标签.标记)<br />         标签.背景颜色 ＝ #天蓝<br />         标签.文本颜色 ＝ #白色<br />     .默认<br />         .如果真 (标签_ [n].背景颜色 ≠ #默认色)<br />             标签_ [n].背景颜色 ＝ #默认色<br />             标签_ [n].文本颜色 ＝ #黑色<br /> <br />         .如果真结束<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' 调试输出 (集_临时缓存标签.左边, 标签2.左边, “移动距离:”, 集_临时缓存标签.左边 － 标签2.左边)<br /> 强制结束线程 (集_句柄)<br /> 启动线程 (&处理移动距离, 集_临时缓存标签.左边 － 标签2.左边, 集_句柄)<br /> ' 标签2.移动 (标签.左边, 标签.顶边 ＋ 标签.高度, 标签.宽度, 3)<br /> <br /> 高级选择夹1.现行子夹 ＝ 到整数 (标签.标记)<br /> <br /> .子程序 处理移动距离<br /> .参数 距离<br /> .局部变量 n, 整数型<br /> .局部变量 临_距离, 整数型<br /> <br /> 调试输出 (距离, 集_临时缓存标签.左边)<br /> .判断开始 (距离 ＞ 0)  ' 向右移动<br />     临_距离 ＝ 标签2.左边<br />     .计次循环首 (距离, n)<br />         标签2.左边 ＝ 标签2.左边 ＋ 1<br />         处理事件 ()<br />         延迟 (1)<br />     .计次循环尾 ()<br /> .判断 (距离 ＜ 0)  ' 向左移动<br />     临_距离 ＝ 标签2.左边<br />     .计次循环首 (到整数 (子文本替换 (到文本 (距离), “-”, “”, , , 真)), n)<br />         标签2.左边 ＝ 标签2.左边 － 1<br />         处理事件 ()<br />         延迟 (1)<br />     .计次循环尾 ()<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 __启动窗口_可否被关闭, 逻辑型<br /> <br /> 强制结束线程 (集_句柄)<br /> <br /> .子程序 _高级选择夹1_子夹头被点燃<br /> .参数 子夹索引, 整数型<br /> <br /> 高级选择夹1.现行子夹 ＝ 子夹索引

筱顺

你这还不如直接写HTML了

japen2

进来学习一下，好像没试用了

chen5310

支持开源~！感谢分享

溪冉

支持开源~！感谢分享

15887059803

支持开源感谢分享

七夜网

无限软件 发表于 2017-4-4 17:09
[Warning]线程处理部分存在非最优写法，结束线程应通过线程内ExitThread来退出，否则会有残留，尤其是这种 ...

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
标签_	标签	0
集_临时缓存标签	标签
集_句柄	整数型
集_许可证	整数型

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

变量名	类 型	静态	数组	备 注
n	整数型
标签	标签

计次循环首 (7, n)
复制窗口组件 (标签1, 标签)
标签.标记 ＝ 到文本 (n － 1)
标签.移动 (标签1.左边 ��� (n － 1) �� (标签1.宽度 ＋ 5), 标签1.顶边, , )
标签.背景颜色 ＝ #默认色
标签.文本颜色 ＝ #黑色
标签.可视 ＝ 真
标签.标题 ＝ “导航” ＋ 到文本 (n)
加入成员 (标签_, 标签)
如果真 (n ≥ 2)
高级选择夹1.加入子夹 (取重复文本 (5, “ ”) ＋ “导航” ＋ 到文本 (n) ＋ 取重复文本 (5, “ ”), n, , , )
如果真 (n ＝ 1)
标签2.移动 (标签.左边, 标签.顶边 ＋ 标签.高度, 标签.宽度, 3)

计次循环尾 ()
高级选择夹1.置子夹名称 (0, 取重复文本 (5, “ ”) ＋ “导航1” ＋ 取重复文本 (5, “ ”))
集_许可证 ＝ 创建进入许可证 ()

子程序名	返回值类型	公开	备 注
_标签1_鼠标位置被移动	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
标签	标签
n	整数型

标签 ＝ 取事件组件 ()
如果真 (是否已创建 (集_临时缓存标签))
如果真 (集_临时缓存标签 ＝ 标签)
返回 ()

' 调试输出 (标签.标记)
集_临时缓存标签 ＝ 标签
计次循环首 (取数组成员数 (标签_), n)
判断 (标签_ [n].标记 ＝ 标签.标记)
标签.背景颜色 ＝ #天蓝
标签.文本颜色 ＝ #白色
如果真 (标签_ [n].背景颜色 ≠ #默认色 )
标签_ [n].背景颜色 ＝ #默认色
标签_ [n].文本颜色 ＝ #黑色


计次循环尾 ()
' 调试输出 (集_临时缓存标签.左边, 标签2.左边, “移动距离:”, 集_临时缓存标签.左边 － 标签2.左边)
退出许可区 (集_许可证)
删除进入许可证 (集_许可证)
强制结束线程 (集_句柄)
集_许可证 ＝ 创建进入许可证 ()
启动线程 (&处理移动距离, 集_临时缓存标签.左边 － 标签2.左边, 集_句柄)
' 标签2.移动 (标签.左边, 标签.顶边 ＋ 标签.高度, 标签.宽度, 3)
高级选择夹1.现行子夹 ＝ 到整数 (标签.标记)

子程序名	返回值类型	公开	备 注
处理移动距离
参数名	类 型	参考	可空	数组	备 注
距离

变量名	类 型	静态	数组	备 注
n	整数型
临_距离	整数型

进入许可区 (集_许可证)
调试输出 (“移动距离:” ＋ 到文本 (距离), “标签左边:” ＋ 到文本 (集_临时缓存标签.左边), “标记:” ＋ 集_临时缓存标签.标记)
判断 (距离 ＞ 0)  ' 向右移动
临_距离 ＝ 标签2.左边
计次循环首 (距离 ÷ 10, n)
标签2.左边 ＝ 标签2.左边 ＋ 10
处理事件 ()
延迟 (1)
计次循环尾 ()
如果真 (是否已创建 (集_临时缓存标签))
标签2.左边 ＝ 集_临时缓存标签.左边

判断 (距离 ＜ 0)  ' 向左移动
临_距离 ＝ 标签2.左边
计次循环首 (到整数 (子文本替换 (到文本 (距离), “-”, “”, , , 真)) ÷ 10, n)
标签2.左边 ＝ 标签2.左边 － 10
处理事件 ()
延迟 (1)
计次循环尾 ()
如果真 (是否已创建 (集_临时缓存标签))
标签2.左边 ＝ 集_临时缓存标签.左边



退出许可区 (集_许可证)

子程序名	返回值类型	公开	备 注
__启动窗口_可否被关闭	逻辑型

强制结束线程 (集_句柄)

子程序名	返回值类型	公开	备 注
_高级选择夹1_子夹头被点燃
参数名	类 型	参考	可空	数组	备 注
子夹索引	整数型

高级选择夹1.现行子夹 ＝ 子夹索引

i支持库列表	支持库注释
iext3	扩展界面支持库三
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 iext3<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 标签_, 标签, , "0"<br /> .程序集变量 集_临时缓存标签, 标签<br /> .程序集变量 集_句柄, 整数型<br /> .程序集变量 集_许可证, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 n, 整数型<br /> .局部变量 标签, 标签<br /> <br /> .计次循环首 (7, n)<br />     复制窗口组件 (标签1, 标签)<br />     标签.标记 ＝ 到文本 (n － 1)<br />     标签.移动 (标签1.左边 ＋ (n － 1) × (标签1.宽度 ＋ 5), 标签1.顶边, , )<br />     标签.背景颜色 ＝ #默认色<br />     标签.文本颜色 ＝ #黑色<br />     标签.可视 ＝ 真<br />     标签.标题 ＝ “导航” ＋ 到文本 (n)<br />     加入成员 (标签_, 标签)<br />     .如果真 (n ≥ 2)<br />         高级选择夹1.加入子夹 (取重复文本 (5, “ ”) ＋ “导航” ＋ 到文本 (n) ＋ 取重复文本 (5, “ ”), n, , , )<br />     .如果真结束<br />     .如果真 (n ＝ 1)<br />         标签2.移动 (标签.左边, 标签.顶边 ＋ 标签.高度, 标签.宽度, 3)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 高级选择夹1.置子夹名称 (0, 取重复文本 (5, “ ”) ＋ “导航1” ＋ 取重复文本 (5, “ ”))<br /> 集_许可证 ＝ 创建进入许可证 ()<br /> <br /> .子程序 _标签1_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 标签, 标签<br /> .局部变量 n, 整数型<br /> <br /> 标签 ＝ 取事件组件 ()<br /> .如果真 (是否已创建 (集_临时缓存标签))<br />     .如果真 (集_临时缓存标签 ＝ 标签)<br />         返回 ()<br />     .如果真结束<br /> <br /> .如果真结束<br /> ' 调试输出 (标签.标记)<br /> 集_临时缓存标签 ＝ 标签<br /> .计次循环首 (取数组成员数 (标签_), n)<br />     .判断开始 (标签_ [n].标记 ＝ 标签.标记)<br />         标签.背景颜色 ＝ #天蓝<br />         标签.文本颜色 ＝ #白色<br />     .默认<br />         .如果真 (标签_ [n].背景颜色 ≠ #默认色)<br />             标签_ [n].背景颜色 ＝ #默认色<br />             标签_ [n].文本颜色 ＝ #黑色<br />         .如果真结束<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> ' 调试输出 (集_临时缓存标签.左边, 标签2.左边, “移动距离:”, 集_临时缓存标签.左边 － 标签2.左边)<br /> 退出许可区 (集_许可证)<br /> 删除进入许可证 (集_许可证)<br /> 强制结束线程 (集_句柄)<br /> 集_许可证 ＝ 创建进入许可证 ()<br /> 启动线程 (&处理移动距离, 集_临时缓存标签.左边 － 标签2.左边, 集_句柄)<br /> ' 标签2.移动 (标签.左边, 标签.顶边 ＋ 标签.高度, 标签.宽度, 3)<br /> 高级选择夹1.现行子夹 ＝ 到整数 (标签.标记)<br /> <br /> .子程序 处理移动距离<br /> .参数 距离<br /> .局部变量 n, 整数型<br /> .局部变量 临_距离, 整数型<br /> <br /> 进入许可区 (集_许可证)<br /> 调试输出 (“移动距离:” ＋ 到文本 (距离), “标签左边:” ＋ 到文本 (集_临时缓存标签.左边), “标记:” ＋ 集_临时缓存标签.标记)<br /> .判断开始 (距离 ＞ 0)  ' 向右移动<br />     临_距离 ＝ 标签2.左边<br />     .计次循环首 (距离 ÷ 10, n)<br />         标签2.左边 ＝ 标签2.左边 ＋ 10<br />         处理事件 ()<br />         延迟 (1)<br />     .计次循环尾 ()<br />     .如果真 (是否已创建 (集_临时缓存标签))<br />         标签2.左边 ＝ 集_临时缓存标签.左边<br />     .如果真结束<br /> <br /> .判断 (距离 ＜ 0)  ' 向左移动<br />     临_距离 ＝ 标签2.左边<br />     .计次循环首 (到整数 (子文本替换 (到文本 (距离), “-”, “”, , , 真)) ÷ 10, n)<br />         标签2.左边 ＝ 标签2.左边 － 10<br />         处理事件 ()<br />         延迟 (1)<br />     .计次循环尾 ()<br />     .如果真 (是否已创建 (集_临时缓存标签))<br />         标签2.左边 ＝ 集_临时缓存标签.左边<br />     .如果真结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> 退出许可区 (集_许可证)<br /> <br /> .子程序 __启动窗口_可否被关闭, 逻辑型<br /> <br /> 强制结束线程 (集_句柄)<br /> <br /> .子程序 _高级选择夹1_子夹头被点燃<br /> .参数 子夹索引, 整数型<br /> <br /> 高级选择夹1.现行子夹 ＝ 子夹索引

七夜网

无限软件 发表于 2017-4-4 17:09
[Warning]线程处理部分存在非最优写法，结束线程应通过线程内ExitThread来退出，否则会有残留，尤其是这种 ...

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
标签_	标签	0
集_临时缓存标签	标签
集_句柄	整数型
集_许可证	整数型

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

变量名	类 型	静态	数组	备 注
n	整数型
标签	标签

计次循环首 (7, n)
复制窗口组件 (标签1, 标签)
标签.标记 ＝ 到文本 (n － 1)
标签.移动 (标签1.左边 ��� (n － 1) �� (标签1.宽度 ＋ 5), 标签1.顶边, , )
标签.背景颜色 ＝ #默认色
标签.文本颜色 ＝ #黑色
标签.可视 ＝ 真
标签.标题 ＝ “导航” ＋ 到文本 (n)
加入成员 (标签_, 标签)
如果真 (n ≥ 2)
高级选择夹1.加入子夹 (取重复文本 (5, “ ”) ＋ “导航” ＋ 到文本 (n) ＋ 取重复文本 (5, “ ”), n, , , )
如果真 (n ＝ 1)
标签2.移动 (标签.左边, 标签.顶边 ＋ 标签.高度, 标签.宽度, 3)

计次循环尾 ()
高级选择夹1.置子夹名称 (0, 取重复文本 (5, “ ”) ＋ “导航1” ＋ 取重复文本 (5, “ ”))
集_许可证 ＝ 创建进入许可证 ()

子程序名	返回值类型	公开	备 注
_标签1_鼠标位置被移动	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
标签	标签
n	整数型

标签 ＝ 取事件组件 ()
如果真 (是否已创建 (集_临时缓存标签))
如果真 (集_临时缓存标签 ＝ 标签)
返回 ()

' 调试输出 (标签.标记)
集_临时缓存标签 ＝ 标签
计次循环首 (取数组成员数 (标签_), n)
判断 (标签_ [n].标记 ＝ 标签.标记)
标签.背景颜色 ＝ #天蓝
标签.文本颜色 ＝ #白色
如果真 (标签_ [n].背景颜色 ≠ #默认色 )
标签_ [n].背景颜色 ＝ #默认色
标签_ [n].文本颜色 ＝ #黑色


计次循环尾 ()
' 调试输出 (集_临时缓存标签.左边, 标签2.左边, “移动距离:”, 集_临时缓存标签.左边 － 标签2.左边)
退出许可区 (集_许可证)
删除进入许可证 (集_许可证)
强制结束线程 (集_句柄)
集_许可证 ＝ 创建进入许可证 ()
启动线程 (&处理移动距离, 集_临时缓存标签.左边 － 标签2.左边, 集_句柄)
' 标签2.移动 (标签.左边, 标签.顶边 ＋ 标签.高度, 标签.宽度, 3)
高级选择夹1.现行子夹 ＝ 到整数 (标签.标记)

子程序名	返回值类型	公开	备 注
处理移动距离
参数名	类 型	参考	可空	数组	备 注
距离

变量名	类 型	静态	数组	备 注
n	整数型
临_距离	整数型

进入许可区 (集_许可证)
调试输出 (“移动距离:” ＋ 到文本 (距离), “标签左边:” ＋ 到文本 (集_临时缓存标签.左边), “标记:” ＋ 集_临时缓存标签.标记)
判断 (距离 ＞ 0)  ' 向右移动
临_距离 ＝ 标签2.左边
计次循环首 (距离 ÷ 10, n)
标签2.左边 ＝ 标签2.左边 ＋ 10
处理事件 ()
延迟 (1)
计次循环尾 ()
如果真 (是否已创建 (集_临时缓存标签))
标签2.左边 ＝ 集_临时缓存标签.左边

判断 (距离 ＜ 0)  ' 向左移动
临_距离 ＝ 标签2.左边
计次循环首 (到整数 (子文本替换 (到文本 (距离), “-”, “”, , , 真)) ÷ 10, n)
标签2.左边 ＝ 标签2.左边 － 10
处理事件 ()
延迟 (1)
计次循环尾 ()
如果真 (是否已创建 (集_临时缓存标签))
标签2.左边 ＝ 集_临时缓存标签.左边



退出许可区 (集_许可证)

子程序名	返回值类型	公开	备 注
__启动窗口_可否被关闭	逻辑型

强制结束线程 (集_句柄)

子程序名	返回值类型	公开	备 注
_高级选择夹1_子夹头被点燃
参数名	类 型	参考	可空	数组	备 注
子夹索引	整数型

高级选择夹1.现行子夹 ＝ 子夹索引

i支持库列表	支持库注释
iext3	扩展界面支持库三
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 iext3<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 标签_, 标签, , "0"<br /> .程序集变量 集_临时缓存标签, 标签<br /> .程序集变量 集_句柄, 整数型<br /> .程序集变量 集_许可证, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 n, 整数型<br /> .局部变量 标签, 标签<br /> <br /> .计次循环首 (7, n)<br />     复制窗口组件 (标签1, 标签)<br />     标签.标记 ＝ 到文本 (n － 1)<br />     标签.移动 (标签1.左边 ＋ (n － 1) × (标签1.宽度 ＋ 5), 标签1.顶边, , )<br />     标签.背景颜色 ＝ #默认色<br />     标签.文本颜色 ＝ #黑色<br />     标签.可视 ＝ 真<br />     标签.标题 ＝ “导航” ＋ 到文本 (n)<br />     加入成员 (标签_, 标签)<br />     .如果真 (n ≥ 2)<br />         高级选择夹1.加入子夹 (取重复文本 (5, “ ”) ＋ “导航” ＋ 到文本 (n) ＋ 取重复文本 (5, “ ”), n, , , )<br />     .如果真结束<br />     .如果真 (n ＝ 1)<br />         标签2.移动 (标签.左边, 标签.顶边 ＋ 标签.高度, 标签.宽度, 3)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 高级选择夹1.置子夹名称 (0, 取重复文本 (5, “ ”) ＋ “导航1” ＋ 取重复文本 (5, “ ”))<br /> 集_许可证 ＝ 创建进入许可证 ()<br /> <br /> .子程序 _标签1_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 标签, 标签<br /> .局部变量 n, 整数型<br /> <br /> 标签 ＝ 取事件组件 ()<br /> .如果真 (是否已创建 (集_临时缓存标签))<br />     .如果真 (集_临时缓存标签 ＝ 标签)<br />         返回 ()<br />     .如果真结束<br /> <br /> .如果真结束<br /> ' 调试输出 (标签.标记)<br /> 集_临时缓存标签 ＝ 标签<br /> .计次循环首 (取数组成员数 (标签_), n)<br />     .判断开始 (标签_ [n].标记 ＝ 标签.标记)<br />         标签.背景颜色 ＝ #天蓝<br />         标签.文本颜色 ＝ #白色<br />     .默认<br />         .如果真 (标签_ [n].背景颜色 ≠ #默认色)<br />             标签_ [n].背景颜色 ＝ #默认色<br />             标签_ [n].文本颜色 ＝ #黑色<br />         .如果真结束<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> ' 调试输出 (集_临时缓存标签.左边, 标签2.左边, “移动距离:”, 集_临时缓存标签.左边 － 标签2.左边)<br /> 退出许可区 (集_许可证)<br /> 删除进入许可证 (集_许可证)<br /> 强制结束线程 (集_句柄)<br /> 集_许可证 ＝ 创建进入许可证 ()<br /> 启动线程 (&处理移动距离, 集_临时缓存标签.左边 － 标签2.左边, 集_句柄)<br /> ' 标签2.移动 (标签.左边, 标签.顶边 ＋ 标签.高度, 标签.宽度, 3)<br /> 高级选择夹1.现行子夹 ＝ 到整数 (标签.标记)<br /> <br /> .子程序 处理移动距离<br /> .参数 距离<br /> .局部变量 n, 整数型<br /> .局部变量 临_距离, 整数型<br /> <br /> 进入许可区 (集_许可证)<br /> 调试输出 (“移动距离:” ＋ 到文本 (距离), “标签左边:” ＋ 到文本 (集_临时缓存标签.左边), “标记:” ＋ 集_临时缓存标签.标记)<br /> .判断开始 (距离 ＞ 0)  ' 向右移动<br />     临_距离 ＝ 标签2.左边<br />     .计次循环首 (距离 ÷ 10, n)<br />         标签2.左边 ＝ 标签2.左边 ＋ 10<br />         处理事件 ()<br />         延迟 (1)<br />     .计次循环尾 ()<br />     .如果真 (是否已创建 (集_临时缓存标签))<br />         标签2.左边 ＝ 集_临时缓存标签.左边<br />     .如果真结束<br /> <br /> .判断 (距离 ＜ 0)  ' 向左移动<br />     临_距离 ＝ 标签2.左边<br />     .计次循环首 (到整数 (子文本替换 (到文本 (距离), “-”, “”, , , 真)) ÷ 10, n)<br />         标签2.左边 ＝ 标签2.左边 － 10<br />         处理事件 ()<br />         延迟 (1)<br />     .计次循环尾 ()<br />     .如果真 (是否已创建 (集_临时缓存标签))<br />         标签2.左边 ＝ 集_临时缓存标签.左边<br />     .如果真结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> 退出许可区 (集_许可证)<br /> <br /> .子程序 __启动窗口_可否被关闭, 逻辑型<br /> <br /> 强制结束线程 (集_句柄)<br /> <br /> .子程序 _高级选择夹1_子夹头被点燃<br /> .参数 子夹索引, 整数型<br /> <br /> 高级选择夹1.现行子夹 ＝ 子夹索引

无限软件

[Warning]线程处理部分存在非最优写法，结束线程应通过线程内ExitThread来退出，否则会有残留，尤其是这种使用频率高的滑动处理。

kyo9766

帝释天2017 发表于 2017-4-4 16:06
上传源码可好？单代码需要自己搞组件

我补个附件。复制LZ的源码
[易源码分享] [分享源码] [新手例程][界面类]仿HTML滑动门和导航栏.e (6.81 KB, 下载次数: 30)

2017-4-4 16:54 上传

点击文件名下载附件