精易论坛
标题: [新手例程][界面类]仿HTML滑动门和导航栏 [打印本页]
作者: 七夜网 时间: 2017-4-4 15:21
标题: [新手例程][界面类]仿HTML滑动门和导航栏
模仿HTML的滑动门和导航栏效果，滑动条可以根据自己需要完善，新手例程，大神绕道
代码：
| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | | | |
| 变量名 | 类 型 | 数组 | 备 注 |
| 标签_ | 标签 | 0 |
| 集_临时缓存标签 | 标签 | |
| 集_句柄 | 整数型 | |
计次循环首 (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
].文本颜色 ＝
#黑色 
计次循环尾 () 强制结束线程 (集_句柄
)启动线程 (&处理移动距离, 集_临时缓存标签.左边 － 标签2.左边, 集_句柄
) 高级选择夹1.现行子夹 ＝
到整数 (标签.标记
)| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| n | 整数型 | | |
| 临_距离 | 整数型 | | |
调试输出 (距离, 集_临时缓存标签.左边
)判断 (距离 ＞ 0
) 临_距离 ＝ 标签2.左边
计次循环首 (距离, n
)标签2.左边 ＝ 标签2.左边 ＋ 1
处理事件 ()延迟 (1
)
计次循环尾 ()
判断 (距离 ＜ 0
) 
临_距离 ＝ 标签2.左边
计次循环首 (到整数 (子文本替换 (到文本 (距离
),
“-”,
“”, , ,
真)), n
)标签2.左边 ＝ 标签2.左边 － 1
处理事件 ()延迟 (1
)计次循环尾 ()
强制结束线程 (集_句柄
)高级选择夹1.现行子夹 ＝ 子夹索引
-
QQ截图20170404151858.png
(18.11 KB, 下载次数: 5)
作者: 帝释天2017 时间: 2017-4-4 16:06
上传源码可好？单代码需要自己搞组件
作者: kyo9766 时间: 2017-4-4 16:54
我补个附件。复制LZ的源码
[易源码分享] [分享源码] [新手例程][界面类]仿HTML滑动门和导航栏.e
(6.81 KB, 下载次数: 30)
作者: 无限软件 时间: 2017-4-4 17:09
[Warning]线程处理部分存在非最优写法，结束线程应通过线程内ExitThread来退出，否则会有残留，尤其是这种使用频率高的滑动处理。
作者: 七夜网 时间: 2017-4-4 17:28
| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | | | |
| 变量名 | 类 型 | 数组 | 备 注 |
| 标签_ | 标签 | 0 |
| 集_临时缓存标签 | 标签 | |
| 集_句柄 | 整数型 | |
| 集_许可证 | 整数型 | |
计次循环首 (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
].文本颜色 ＝
#黑色 
计次循环尾 () 退出许可区 (集_许可证
)删除进入许可证 (集_许可证
)强制结束线程 (集_句柄
)集_许可证 ＝
创建进入许可证 ()启动线程 (&处理移动距离, 集_临时缓存标签.左边 － 标签2.左边, 集_句柄
) 高级选择夹1.现行子夹 ＝
到整数 (标签.标记
)| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| n | 整数型 | | |
| 临_距离 | 整数型 | | |
进入许可区 (集_许可证
)调试输出 (“移动距离:” ＋
到文本 (距离
),
“标签左边:” ＋
到文本 (集_临时缓存标签.左边
),
“标记:” ＋ 集_临时缓存标签.标记
)判断 (距离 ＞ 0
) 临_距离 ＝ 标签2.左边
计次循环首 (距离 ÷ 10, n
)标签2.左边 ＝ 标签2.左边 ＋ 10
处理事件 ()延迟 (1
)计次循环尾 ()如果真 (是否已创建 (集_临时缓存标签
))
标签2.左边 ＝ 集_临时缓存标签.左边
判断 (距离 ＜ 0
) 
临_距离 ＝ 标签2.左边
计次循环首 (到整数 (子文本替换 (到文本 (距离
),
“-”,
“”, , ,
真)) ÷ 10, n
)标签2.左边 ＝ 标签2.左边 － 10
处理事件 ()延迟 (1
)计次循环尾 ()如果真 (是否已创建 (集_临时缓存标签
))
标签2.左边 ＝ 集_临时缓存标签.左边
退出许可区 (集_许可证)强制结束线程 (集_句柄
)高级选择夹1.现行子夹 ＝ 子夹索引
作者: 七夜网 时间: 2017-4-4 17:28
| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | | | |
| 变量名 | 类 型 | 数组 | 备 注 |
| 标签_ | 标签 | 0 |
| 集_临时缓存标签 | 标签 | |
| 集_句柄 | 整数型 | |
| 集_许可证 | 整数型 | |
计次循环首 (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
].文本颜色 ＝
#黑色 计次循环尾 () 退出许可区 (集_许可证
)删除进入许可证 (集_许可证
)强制结束线程 (集_句柄
)集_许可证 ＝
创建进入许可证 ()启动线程 (&处理移动距离, 集_临时缓存标签.左边 － 标签2.左边, 集_句柄
) 高级选择夹1.现行子夹 ＝
到整数 (标签.标记
)| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| n | 整数型 | | |
| 临_距离 | 整数型 | | |
进入许可区 (集_许可证
)调试输出 (“移动距离:” ＋
到文本 (距离
),
“标签左边:” ＋
到文本 (集_临时缓存标签.左边
),
“标记:” ＋ 集_临时缓存标签.标记
)判断 (距离 ＞ 0
) 临_距离 ＝ 标签2.左边
计次循环首 (距离 ÷ 10, n
)标签2.左边 ＝ 标签2.左边 ＋ 10
处理事件 ()延迟 (1
)计次循环尾 ()如果真 (是否已创建 (集_临时缓存标签
))
标签2.左边 ＝ 集_临时缓存标签.左边
判断 (距离 ＜ 0
) 临_距离 ＝ 标签2.左边
计次循环首 (到整数 (子文本替换 (到文本 (距离
),
“-”,
“”, , ,
真)) ÷ 10, n
)标签2.左边 ＝ 标签2.左边 － 10
处理事件 ()延迟 (1
)计次循环尾 ()如果真 (是否已创建 (集_临时缓存标签
))
标签2.左边 ＝ 集_临时缓存标签.左边
退出许可区 (集_许可证)强制结束线程 (集_句柄
)高级选择夹1.现行子夹 ＝ 子夹索引
作者: 15887059803 时间: 2017-4-5 10:12
支持开源感谢分享
作者: 溪冉 时间: 2017-4-13 20:55
支持开源~！感谢分享
作者: chen5310 时间: 2017-4-27 08:26
提示: 作者被禁止或删除 内容自动屏蔽
作者: japen2 时间: 2017-5-15 01:02
进来学习一下，好像没试用了
作者: 筱顺 时间: 2018-8-3 21:27
你这还不如直接写HTML了 
| 欢迎光临 精易论坛 (https://125.confly.eu.org/) |
Powered by Discuz! X3.4 |
