开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 12943|回复: 6
打印 上一主题 下一主题
收起左侧

[火山安卓求助] 窗口组件复制,按钮单击事件问题

[复制链接]
结帖率:66% (38/58)
跳转到指定楼层
楼主
发表于 2017-8-23 11:36:27 | 只看该作者 |只看大图 回帖奖励 |正序浏览 |阅读模式   广东省深圳市
窗口组件复制,使用分页方式显示,按钮单击事件怎么写,请大神帮帮忙!



测试.e (625.13 KB, 下载次数: 22)
  
子程序名返回值类型公开备 注
子程序1  
变量名类 型静态数组备 注
局部_计次整数型 
a整数型 
' 程序集_数量 = 12
变量循环首 (取数组成员数 (程序集_外形组), 1, -1, 局部_计次)
如果真 (是否已创建 (程序集_外形组 [局部_计次]))
程序集_外形组 [局部_计次].销毁 ()

变量循环尾 ()
重定义数组 (程序集_外形组, 假, 每页数量)
重定义数组 (程序集_选择, 假, 每页数量)
重定义数组 (程序集_图片, 假, 每页数量)
重定义数组 (程序集_大小标签, 假, 每页数量)
重定义数组 (程序集_名称标签, 假, 每页数量)
重定义数组 (程序集_介绍标签, 假, 每页数量)
重定义数组 (程序集按钮1, 假, 每页数量)
重定义数组 (查看按钮, 假, 每页数量)
重定义数组 (程序集_地址标签, 假, 每页数量)
重定义数组 (透明标签_序号, 假, 每页数量)
重定义数组 (发布人标签, 假, 每页数量)
计次循环首 (每页数量, 局部_计次)
a = 当前页数 × 每页数量 + 局部_计次
如果真 (程序集_数量 ≥ a)
局_子分割 = 分割文本 (局_父分割 [局部_计次], “----”, )
' ----------------------------------组件-----------------------------------------------组件
复制窗口组件 (分组框_基本, 程序集_外形组 [局部_计次])
程序集_外形组 [局部_计次].可视 = 真
程序集_外形组 [局部_计次].顶边 = 分组框_基本.顶边 ��� (局部_计次 - 1) (分组框_基本.高度 + 5)
' ----------------------------------选择框-----------------------------------------------选择框
复制窗口组件 (选择框_基本, 程序集_选择 [局部_计次])
程序集_选择 [局部_计次].置父窗口 (程序集_外形组 [局部_计次])
程序集_选择 [局部_计次].可视 = 真
' ----------------------------------序号-----------------------------------------------序号
复制窗口组件 (透明标签序号, 透明标签_序号 [局部_计次])
透明标签_序号 [局部_计次].置父窗口 (程序集_外形组 [局部_计次])
透明标签_序号 [局部_计次].可视 = 真
透明标签_序号 [局部_计次].标题 = 到文本 (局部_计次)
' ----------------------------------文件名称-----------------------------------------------文件名称
复制窗口组件 (名称标签, 程序集_名称标签 [局部_计次])
程序集_名称标签 [局部_计次].置父窗口 (程序集_外形组 [局部_计次])
程序集_名称标签 [局部_计次].可视 = 真
程序集_名称标签 [局部_计次].标题 = Text [a]
程序集_名称标签 [局部_计次].标记 = 到文本 (局部_计次)
' ---------------------------------文件介绍-----------------------------------------------文件介绍
复制窗口组件 (介绍透明标签, 程序集_介绍标签 [局部_计次])
程序集_介绍标签 [局部_计次].置父窗口 (程序集_外形组 [局部_计次])
程序集_介绍标签 [局部_计次].可视 = 真
程序集_介绍标签 [局部_计次].标题 = Text11 [a]
' ----------------------------------文件大小-----------------------------------------------文件大小
复制窗口组件 (大小透明标签, 程序集_大小标签 [局部_计次])
程序集_大小标签 [局部_计次].置父窗口 (程序集_外形组 [局部_计次])
程序集_大小标签 [局部_计次].可视 = 真
程序集_大小标签 [局部_计次].标题 = 到文本 (取随机数 (100, 10000) ÷ 100)“ MB”
' ----------------------------------发布人-----------------------------------------------发布人
复制窗口组件 (发布标签, 发布人标签 [局部_计次])
发布人标签 [局部_计次].置父窗口 (程序集_外形组 [局部_计次])
发布人标签 [局部_计次].可视 = 真
发布人标签 [局部_计次].标题 = “”
' ----------------------------------图片框-----------------------------------------------图片框
复制窗口组件 (图片框_基本, 程序集_图片 [局部_计次])
程序集_图片 [局部_计次].置父窗口 (程序集_外形组 [局部_计次])
程序集_图片 [局部_计次].可视 = 真
程序集_图片 [局部_计次].图片 = {  }
' ---------------------------------查看按钮-----------------------------------------------查看按钮
复制窗口组件 (查看按钮1, 查看按钮 [局部_计次])
查看按钮 [局部_计次].置父窗口 (程序集_外形组 [局部_计次])
查看按钮 [局部_计次].可视 = 真
查看按钮 [局部_计次].标记 = 到文本 (局部_计次)
' ----------------------------------按钮-----------------------------------------------打开按钮
复制窗口组件 (按钮模版, 程序集按钮1 [局部_计次])
程序集按钮1 [局部_计次].置父窗口 (程序集_外形组 [局部_计次])
程序集按钮1 [局部_计次].可视 = 真
程序集按钮1 [局部_计次].标记 = 到文本 (局部_计次)
' ----------------------------------地址-----------------------------------------------地址
复制窗口组件 (地址标签, 程序集_地址标签 [局部_计次])
程序集_地址标签 [局部_计次].置父窗口 (程序集_外形组 [局部_计次])
程序集_地址标签 [局部_计次].可视 = 真
程序集_地址标签 [局部_计次].标题 = Text22 [a]

计次循环尾 ()
总页数 = 到整数 (取数组成员数 (Text11) ÷ 每页数量)取数组成员数 (Text11) % 每页数量
如果 (四舍五入 (取数组成员数 (Text11) ÷ 每页数量, )到整数 (取数组成员数 (Text11) ÷ 每页数量))
总页数 = 到整数 (取数组成员数 (Text11) ÷ 每页数量)取数组成员数 (Text11) % 每页数量
总页数 = 四舍五入 (取数组成员数 (Text11) ÷ 每页数量, )
标签1.标题 = 到文本 (当前页数 + 1)“\”到文本 (总页数)
如果 (当前页数 > 0)
按钮1.禁止 = 假
按钮1.禁止 = 真
如果 (当前页数 + 1 < 总页数)
按钮2.禁止 = 假
按钮2.禁止 = 真


i支持库列表   支持库注释   
iext扩展界面支持库一
  
子程序名返回值类型公开备 注
_按钮模版_被单击 打开按钮单击事件
局部按钮 = 取事件组件 ()
如果真 (是否已创建 (局部按钮))
如果真 (到数值 (局部按钮.标记) > 0 到数值 (局部按钮.标记)取数组成员数 (程序集_名称标签))
如果 (信息框 (“您确定要打开:  ” + 程序集_名称标签 [到数值 (名称标记)].标题, #是否钮, , )#是钮 )‘弹出对应行数的名称标签文件名称内容
' 调试输出地址标签内容





回答提醒:如果本帖被关闭无法回复,您有更好的答案帮助楼主解决,请发表至 资源分享区 可获得加分喔。
友情提醒:本版被采纳的主题可在 申请荣誉值 帖子申请荣誉值,获得 3点 荣誉值,荣誉值可兑换终身vip用户组哦。
快捷通道:申请荣誉值无答案申请取消悬赏投诉有答案未采纳为最佳
结帖率:66% (38/58)
地下
 楼主| 发表于 2017-8-23 14:19:17 | 只看该作者   广东省深圳市
村雨 发表于 2017-8-23 12:50
分页的话直接删掉上一页的按钮重绘不就得了。
用WebKit做不更简单

前辈,咋弄啊
回复 支持 反对

使用道具 举报

头像被屏蔽
结帖率:0% (0/1)
地板
发表于 2017-8-23 12:50:14 | 只看该作者   广东省广州市
分页的话直接删掉上一页的按钮重绘不就得了。
用WebKit做不更简单
回复 支持 反对

使用道具 举报

结帖率:66% (38/58)
板凳
 楼主| 发表于 2017-8-23 12:28:37 | 只看该作者   广东省佛山市
Cand 发表于 2017-8-23 11:43
不是很明白,你这个是正常的可用的

打开按钮用不了,第二页没反应

点评

我这里是可以等的呀   广东省深圳市  发表于 2017-8-23 14:31
回复 支持 反对

使用道具 举报

结帖率:100% (5/5)

签到天数: 3 天

沙发
发表于 2017-8-23 11:43:20 | 只看该作者   广东省深圳市
不是很明白,你这个是正常的可用的

点评

第二页按钮用不了   广东省深圳市  发表于 2017-8-23 15:44
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报QQ: 793400750,邮箱:[email protected]
网站简介:精易论坛成立于2009年,是一个程序设计学习交流技术论坛,隶属于揭阳市揭东区精易科技有限公司所有。
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表