精易论坛

标题: 【一周一训练NO.0064】超级列表框生成图片 [打印本页]

作者: 小牛大大 时间: 2017-8-6 14:45
标题: 【一周一训练NO.0064】超级列表框生成图片
本帖最后由漩涡鸣人于 2018-5-2 18:32 编辑

需要掌握的内容：

熟悉超级列表框、画板、通用对话框的简单应用及锻炼数学计算能力

要求：

动态生成超级列表框数据
根据超级列表框内容生成图片，文字在表格内居中。排列不整齐或不居中(居左不烧脑，不好玩)为不合格
导出图片

创新亮点提示：

示例中超级列表框固定4列，如果能动态生成列，可加分
如不用画板组件生成图片，可加分
其他更牛逼的方案自行脑补

示例效果图：

示例：

超级列表框生成图片.zip (286.23 KB, 下载次数: 142)
满分100分，达到60及格线即可获得奖励，60分以下鼓励奖，作业请用源码形式提交，与作业无关内容将受到处罚。

注意：作业请用附件形式上传，不要回复跟作业无关的内容。

1.gif (427.11 KB, 下载次数: 64)

超级列表框生成图片.e

87.19 KB, 下载次数: 50, 下载积分: 精币 -2 枚

作者: 阿仁同学 时间: 2017-8-6 14:52
坐个前面

作者: 小牛大大 时间: 2017-8-6 14:53

作者: 循环不计次 时间: 2017-8-6 16:18

打印.rar (1.63 MB, 下载次数: 16) 随手就是一张CD 听听我们那时候的爱情

作者: 狂拽霸气炫 时间: 2017-8-6 18:26
没弄颜色,,,

cj.gif (2.05 MB, 下载次数: 62)

gif

超级列表框画图.e

10.07 KB, 下载次数: 15, 下载积分: 精币 -2 枚

超级列表框画图.e

作者: 狂拽霸气炫 时间: 2017-8-6 19:18
刚刚设置画板高度的时候出了问题,现在改过来了...

gif.gif (2.3 MB, 下载次数: 62)

超级列表框画图.e

9.74 KB, 下载次数: 3, 下载积分: 精币 -2 枚

作者: hanyuhang1995 时间: 2017-8-6 19:49

超级列表框生成图片.e (640.21 KB, 下载次数: 9)
Ps：忘记设置帖子权限了吧……

作者: 请让我三行代码 时间: 2017-8-6 20:58
本帖最后由请让我三行代码于 2017-8-6 21:00 编辑

超级列表框And画板.e (647.31 KB, 下载次数: 11)
第一次作业~~~，有点激动！

作者: cherles 时间: 2017-8-7 01:22
怎么没有设置权限

作业.e

9.41 KB, 下载次数: 3, 下载积分: 精币 -2 枚

作者: onefish 时间: 2017-8-7 20:00
可以来个excel的吗

作者: asdd222 时间: 2017-8-8 16:43
有点问题不知道能不能及格

新建易程序 (8).e

9.32 KB, 下载次数: 2, 下载积分: 精币 -2 枚

作者: Meds 时间: 2017-8-8 18:42
GDI!!!!!!!

内存画板.e

78.9 KB, 下载次数: 3, 下载积分: 精币 -2 枚

内存画板_画表格.e

34.8 KB, 下载次数: 8, 下载积分: 精币 -2 枚

作者: 然后 时间: 2017-8-9 11:34
本帖最后由然后于 2017-8-9 11:47 编辑

好长时间没有碰易语言了，有点生疏，感觉做的还可以

2017-8-64次.e

8.23 KB, 下载次数: 2, 下载积分: 精币 -2 枚

作者: coolx 时间: 2017-8-9 22:05
作业。。。

易程序（作业）.e

643.28 KB, 下载次数: 1, 下载积分: 精币 -2 枚

作者: 时光飞逝0 时间: 2017-8-9 22:42
超级列表框生成图片

列表框生成图片.e

625.32 KB, 下载次数: 27, 下载积分: 精币 -2 枚

作者: xintian 时间: 2017-8-10 10:52
基本完成！只是问我画板写的字居中是如何实现的。估计我的是笨方法，我是在画板里面打字填满格子后算出来的。不知道其他大神是怎么算了。数学早还给老师了。

超级列表框简单应用.rar

3.63 KB, 下载次数: 3, 下载积分: 精币 -2 枚

作者: cxysyfl 时间: 2017-8-10 11:33
.版本 2
.支持库 iext
.支持库 eGrid

.程序集窗口程序集_启动窗口
.程序集变量行数, 整数型
.程序集变量次数, 整数型
.程序集变量列数, 整数型

.子程序 _按钮1_被单击
.局部变量 a, 整数型, , , 行
.局部变量 b, 整数型, , , 列

超级列表框1.全部删除 ()
行数＝到数值 (编辑框1.内容)
列数＝到数值 (编辑框2.内容)
.计次循环首 (列数＋ 1, 次数)
超级列表框1.删除列 (0)
.计次循环尾 ()
.计次循环首 (列数, 次数)
.如果真 (次数－ 1 ＝ 0)
      超级列表框1.插入列 (, “序号”, , , , )

.如果真结束
超级列表框1.插入列 (, “第” ＋到文本 (次数) ＋ “列”, , , , )

.计次循环尾 ()
.如果真 (a ＝ 0)  ' 第0列，按数序输入
.计次循环首 (行数, a)
      超级列表框1.插入表项 (, , , , , )
      超级列表框1.置标题 (a － 1, 0, 到文本 (a))
      超级列表框1.删除表项 (行数＋ 1)
.计次循环尾 ()
' 开始第一列，输入双位，并随机输入

.如果真结束
' 意思套循环，一行一行循环
.计次循环首 (行数, a)
.如果真 (a ≤ 列数)
      .计次循环首 (列数, b)
         超级列表框1.置标题 (a － 1, b, 随机数 (b))

         超级列表框1.删除表项 (行数＋ 1)
      .计次循环尾 ()

.如果真结束

.计次循环尾 ()

.子程序 _按钮2_被单击, , , 画图
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 c, 整数型
.局部变量颜色值, 整数型

高级表格1.重画 ()
高级表格1.清空数据 ()
高级表格1.可视＝真
高级表格1.行数＝行数＋ 1
高级表格1.列数＝列数＋ 1
高级表格1.高度＝高级表格1.行高 × (高级表格1.行数＋ 0.2)
高级表格1.宽度＝高级表格1.宽度 × (高级表格1.列数＋ 0.2)
高级表格1.置对齐方式 (0, 0, 高级表格1.行数, 高级表格1.列数, #表格常量.居中对齐)
.计次循环首 (行数, 次数)
.如果真 (次数－ 1 ＝ 0)
      高级表格1.置数据 (0, 次数－ 1, 1, “序号”)

.如果真结束
高级表格1.置数据 (0, 次数, 1, “第” ＋到文本 (次数) ＋ “列”)
高级表格1.置数据 (次数, 0, 1, 到文本 (次数))

.计次循环尾 ()

.计次循环首 (行数, a)
.如果真 (a ≤ 列数)
      .计次循环首 (列数, b)
         高级表格1.置数据 (a, b, 1, 超级列表框1.取标题 (a － 1, b))

      .计次循环尾 ()
.如果真结束
高级表格1.删除列 (列数＋ 1)
.计次循环尾 ()
.计次循环首 (行数, 列数)
颜色值＝取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
高级表格1.置单元格文字颜色 (1, 列数－ 1, 行数, 列数, 颜色值)
高级表格1.置单元格背景颜色 (0, 列数－ 1, 0, 列数, 颜色值)

.计次循环尾 ()

.子程序 _高级表格1_被双击, 逻辑型
.参数横向位置, 整数型
.参数纵向位置, 整数型
.参数功能键状态, 整数型
.局部变量 i, 整数型
.局部变量 a, 字节集

.如果真 (通用对话框1.打开 ())
i ＝高级表格1.取窗口句柄 ()
a ＝快照 (i, , )
写到文件 (通用对话框1.文件名, a)
返回 ()
.如果真结束

.子程序随机数, 文本型
.参数位数, 整数型
.局部变量返回的数据, 文本型
.局部变量数值1, 整数型

返回的数据＝到文本 (取随机数 (1, 9))
.计次循环首 (位数, 次数)

数值1 ＝取随机数 (0, 9)

返回的数据＝返回的数据＋到文本 (数值1)

.计次循环尾 ()

返回 (返回的数据)

作者: 墓志铭 时间: 2017-8-12 10:47
本帖最后由墓志铭于 2017-8-12 11:52 编辑

妈的，总算在最后一天做完了

作业.rar (8.69 KB, 下载次数: 4)

作者: liu751077210 时间: 2017-8-19 16:18
源码还没公布吗？

作者: 1203423491 时间: 2017-8-21 14:16
66666666666666666

作者: 秀才遇到兵 时间: 2017-8-22 22:16
可以增加列，用动画框写的哦

超级列表框生成图片.e

11.14 KB, 下载次数: 7, 下载积分: 精币 -2 枚

作者: 我信耶稣 时间: 2017-9-3 00:59
厉害的不要不要的、

作者: 来此一游 时间: 2017-9-17 07:10
怎么没有源码

作者: zjghjs 时间: 2017-9-20 10:57
下载学习学习

作者: 墓志铭 时间: 2017-10-12 19:52
好不容易写完作业上来一次......给点奖励吗

作者: 羊羽子 时间: 2017-11-30 10:45
结束了页补上吧

超级列表框生成图片.e

8.83 KB, 下载次数: 17, 下载积分: 精币 -2 枚

作者: aodi1997 时间: 2018-10-16 17:18
666666666666666666

作者: ybg813 时间: 2018-10-31 23:38
不错，可惜是要模块

作者: qwf169 时间: 2019-4-18 08:11
不错不错

作者: 大牛来了 时间: 2022-4-6 22:24
过来学习一下

作者: lemonlly 时间: 2025-4-19 07:59
学习一下

作者: lemonlly 时间: 2025-4-26 16:16
谢谢，学习一下

欢迎光临精易论坛 (https://125.confly.eu.org/)