另类自绘游戏盒子-带翻页（6页）理论上没有上线

忧虑天使

ahvp 盒子系统V1.0 -  单页加载200项  翻页理论无上限，暂设6页 1400条
重要的事情说一遍，纯源码，共借鉴同进步。
功能：加载信息200/页
          翻页延续上一页读取新的信息
          暂设6页上限1400信息

适用： 游戏盒子
           资源盒子
           其他盒子
需要改进：
             消费已复制（上一页）复制组件
             鼠标进入显现特殊标识框（特效）
             优化加载速度（多线程可以搞搞）
             我还有动画框版你想要不？

目前盒子是1.0版期望各位拿去借鉴的同时更新一下它的功能。
需要增加1.1通讯模块（数据交互 客户Duan 服务端  上传中端）
需要增加1.2载入有效资源模块（缓存到本地）
需要增加1.3 索引模块 （索引关键字遍历所有信息读取并单独显示出来）

更多功能等你来战哟! （大神别批评，小白使劲夸我 哈哈哈哈）

  

子程序名	返回值类型	公开	备 注
初始化

进度条1.最大位置 ＝ 200
进度条1.位置 ＝ 0
i1 ＝ 200
页数 ＝ 1
调试输出 (到文本 (i))
数量 ＝ 200
纵向滚动条1.最大位置 ＝ 图片框1.高度 ＋ 20 × 500
图片框1.顶边 ＝ 分组框1.高度
重定义数组 (图片框, 假, i1)
重定义数组 (按钮, 假, i1)
重定义数组 (标签, 假, i1)
时钟1.时钟周期 ＝ 5
标签1.标题 ＝ 到文本 (页数)

子程序名	返回值类型	公开	备 注
_纵向滚动条1_位置被改变

图片框1.顶边 ＝ 分组框1.高度 － 纵向滚动条1.位置 × 2

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
a	按钮

a ＝ 取事件组件 ()
信息框 (“按钮” ＋ a.标记 ＋ “被按下了”, #确认钮, , _启动窗口)

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
s	整数型

信息框 (“东风吹,战鼓擂,嫩的名字不会是王大锤？”, 0, , )

子程序名	返回值类型	公开	备 注
_下一页_被单击

变量名	类 型	静态	数组	备 注
s	整数型
c
a

进度条1.最大位置 ＝ 200
进度条1.位置 ＝ 0
上一页.禁止 ＝ 真
下一页.禁止 ＝ 真
' a ＝ 页数 × 200 － 200
. ' 计次循环首 (200, s)
' a ＝ a ＋ 1
. ' 如果 (是否已创建 (按钮 [a]))
' 按钮 [a].销毁 ()
' 图片框 [a].销毁 ()
' 标签 [a].销毁 ()
' 调试输出 (“已清除” ＋ 到文本 (a))



. ' 计次循环尾 ()
页数 ＝ 页数 ＋ 1
i ＝ 页数 × 200 － 200
i1 ＝ 页数 × 200
如果真 (页数 ＝ 6)
下一页.禁止 ＝ 真
上一页.禁止 ＝ 假

标签1.标题 ＝ 到文本 (页数)
重定义数组 (图片框, 假, i1)
重定义数组 (按钮, 假, i1)
重定义数组 (标签, 假, i1)
时钟1.时钟周期 ＝ 5

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 初始化<br /> <br /> 进度条1.最大位置 ＝ 200<br /> 进度条1.位置 ＝ 0<br /> i1 ＝ 200<br /> 页数 ＝ 1<br /> 调试输出 (到文本 (i))<br /> 数量 ＝ 200<br /> 纵向滚动条1.最大位置 ＝ 图片框1.高度 ＋ 20 × 500<br /> 图片框1.顶边 ＝ 分组框1.高度<br /> <br /> 重定义数组 (图片框, 假, i1)<br /> 重定义数组 (按钮, 假, i1)<br /> 重定义数组 (标签, 假, i1)<br /> 时钟1.时钟周期 ＝ 5<br /> 标签1.标题 ＝ 到文本 (页数)<br /> <br /> .子程序 _纵向滚动条1_位置被改变<br /> <br /> 图片框1.顶边 ＝ 分组框1.高度 － 纵向滚动条1.位置 × 2<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 a, 按钮<br /> <br /> a ＝ 取事件组件 ()<br /> 信息框 (“按钮” ＋ a.标记 ＋ “被按下了”, #确认钮, , _启动窗口)<br /> <br /> <br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 s, 整数型<br /> <br /> 信息框 (“东风吹,战鼓擂,嫩的名字不会是王大锤？”, 0, , )<br /> <br /> <br /> .子程序 _下一页_被单击<br /> .局部变量 s, 整数型<br /> .局部变量 c<br /> .局部变量 a<br /> <br /> 进度条1.最大位置 ＝ 200<br /> 进度条1.位置 ＝ 0<br /> 上一页.禁止 ＝ 真<br /> 下一页.禁止 ＝ 真<br /> <br /> ' a ＝ 页数 × 200 － 200<br /> <br /> .' 计次循环首 (200, s)<br />     ' a ＝ a ＋ 1<br />     .' 如果 (是否已创建 (按钮 [a]))<br />         ' 按钮 [a].销毁 ()<br />         ' 图片框 [a].销毁 ()<br />         ' 标签 [a].销毁 ()<br />         ' 调试输出 (“已清除” ＋ 到文本 (a))<br /> <br />     .否则<br /> <br />     .如果结束<br /> <br /> .' 计次循环尾 ()<br /> <br /> <br /> <br /> <br /> 页数 ＝ 页数 ＋ 1<br /> i ＝ 页数 × 200 － 200<br /> i1 ＝ 页数 × 200<br /> <br /> .如果真 (页数 ＝ 6)<br />     下一页.禁止 ＝ 真<br />     上一页.禁止 ＝ 假<br /> .如果真结束<br /> <br /> <br /> <br /> 标签1.标题 ＝ 到文本 (页数)<br /> 重定义数组 (图片框, 假, i1)<br /> 重定义数组 (按钮, 假, i1)<br /> 重定义数组 (标签, 假, i1)<br /> 时钟1.时钟周期 ＝ 5

自绘盒子系统 图片框版.zip (146.35 KB, 下载次数: 15)

2023-10-12 17:04 上传

点击文件名下载附件 。




补充内容 (2023-10-16 10:12):
错别字  消费已复制  为：销毁已复制的组件。很简单

shaojiecn

感谢分享

像神一样飘渺

大佬牛呀 支持开源

sunhechao

大佬牛呀 支持开源

一指温柔

学习一下

豆豆灰常开心

感谢您对论坛的支持！

查过

全都是大佬~

夏亿

支持开源~！感谢分享

mengqiu

不错的思路

一指温柔

支持开源~！感谢分享