【一周一训练NO.0064】超级列表框生成图片

来此一游

怎么没有源码

我信耶稣

厉害的不要不要的、

秀才遇到兵

可以 增加列 ，用动画框写的哦

1203423491

66666666666666666

liu751077210

源码还没公布吗？

墓志铭

妈的，总算在最后一天做完了 作业.rar (8.69 KB, 下载次数: 4)

2017-8-12 11:52 上传

点击文件名下载附件
下载积分: 精币 -2 枚

cxysyfl

.版本 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)

.计次循环尾 ()




返回 (返回的数据)

xintian

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

时光飞逝0

超级列表框生成图片

coolx

作业。。。