|
楼主 |
发表于 2012-2-2 15:13:46
|
显示全部楼层
黑龙江省大兴安岭地区
302553755 发表于 2012-2-2 13:19
你直接把代码弄上来就是了
.版本 2
.支持库 eGrid
.程序集 窗口程序集1
.程序集变量 文本, 文本型, , "0"
.程序集变量 要找的内容, 文本型
.子程序 _按钮2_被单击
销毁 ()
.子程序 __启动窗口_创建完毕
要找的内容 = 编辑框1.内容
高级表格1.行高 = 18
高级表格1.列数 = 1
高级表格1.表头行数 = 1
高级表格1.表头列数 = 0
高级表格1.置对齐方式 (0, 0, 高级表格1.行数, 1, 2)
高级表格1.置列宽 (0, 40)
高级表格1.置数据 (0, 0, 1, “数据”)
高级表格1.置数据 (1, 0, 1, “0”)
高级表格1.置数据 (2, 0, 1, “1”) ' 上往下查找的第一个数,填色
高级表格1.置数据 (3, 0, 1, “2”) ' 上往下查找的第二个数,填色
高级表格1.置数据 (4, 0, 1, “5”) ' 上往下查找的第三个数,填色
高级表格1.置数据 (5, 0, 1, “9”) ' 上往下查找的第四个数,填色
高级表格1.置数据 (6, 0, 1, “2”)
高级表格1.置数据 (7, 0, 1, “3”)
高级表格1.置数据 (8, 0, 1, “5”)
高级表格1.置数据 (9, 0, 1, “6”)
高级表格1.置数据 (10, 0, 1, “8”)
高级表格1.置数据 (11, 0, 1, “9”) ' 下往上查找的第四个数,填色
高级表格1.置数据 (12, 0, 1, “5”) ' 下往上查找的第三个数,填色
高级表格1.置数据 (13, 0, 1, “2”) ' 下往上查找的第二个数,填色
高级表格1.置数据 (14, 0, 1, “1”) ' 下往上查找的第一个数,填色
高级表格1.置数据 (15, 0, 1, “0”)
高级表格1.置数据 (16, 0, 1, “8”)
高级表格1.置数据 (17, 0, 1, “4”)
高级表格1.置数据 (18, 0, 1, “7”)
高级表格1.置数据 (19, 0, 1, “2”)
高级表格1.置数据 (20, 0, 1, “5”)
高级表格1.置数据 (21, 0, 1, “6”)
高级表格1.置数据 (22, 0, 1, “1”)
高级表格1.置数据 (23, 0, 1, “2”)
高级表格1.置数据 (24, 0, 1, “3”)
高级表格1.置数据 (25, 0, 1, “0”)
高级表格1.置数据 (26, 0, 1, “5”)
高级表格1.置数据 (27, 0, 1, “8”)
高级表格1.置数据 (28, 0, 1, “6”)
高级表格1.置数据 (29, 0, 1, “0”)
高级表格1.置数据 (30, 0, 1, “2”)
高级表格1.置数据 (31, 0, 1, “0”)
高级表格1.置数据 (32, 0, 1, “1”)
高级表格1.置数据 (33, 0, 1, “2”)
高级表格1.置数据 (34, 0, 1, “4”)
高级表格1.置数据 (35, 0, 1, “9”)
高级表格1.置数据 (36, 0, 1, “4”)
高级表格1.置数据 (37, 0, 1, “5”)
高级表格1.置数据 (38, 0, 1, “1”)
高级表格1.置数据 (39, 0, 1, “0”)
高级表格1.置数据 (40, 0, 1, “6”)
高级表格1.置数据 (41, 0, 1, “9”)
高级表格1.置数据 (42, 0, 1, “6”)
高级表格1.置数据 (43, 0, 1, “0”)
高级表格1.置数据 (44, 0, 1, “1”) ' 上往下查找的第一个数,填色
高级表格1.置数据 (45, 0, 1, “2”) ' 上往下查找的第二个数,填色
高级表格1.置数据 (46, 0, 1, “5”) ' 上往下查找的第三个数,填色
高级表格1.置数据 (47, 0, 1, “9”) ' 上往下查找的第四个数,填色
.子程序 _按钮_上往下_被单击
.局部变量 b, 整数型
.局部变量 a, 整数型
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 表格数字, 文本型, , "0"
.局部变量 内容, 文本型, , "0"
x = 高级表格1.行数
y = 高级表格1.列数
文本 = 分割文本 (编辑框1.内容, “ ”, )
.计次循环首 (x, a)
.计次循环首 (y, b)
加入成员 (表格数字, 高级表格1.取数据 (a - 1, b - 1))
.计次循环尾 ()
.计次循环尾 ()
.计次循环首 (取数组成员数 (文本), x)
.如果真 (寻找文本 (要找的内容, 文本 [x], , 假) ≠ -1)
高级表格1.置单元格背景颜色 ((x - 1) ÷ 2 + 1, 0, (x - 1) ÷ 2 + 1 + 2, 0, #红色)
.如果真结束
.计次循环尾 ()
补充内容 (2012-2-2 15:20):
代码传上来了,一个是四个数(连续)的和高级表格取出的数比较,在一个就是把找到的在表格上填色。对谢你的帮助。 |
|