
版本 2
支持库 eGrid
程序集 窗口程序集1
子程序 __启动窗口_创建完毕
高级表格1置列类型 (2, #表格常量列表型)
高级表格1插入下拉列表项 (1, “A”)
高级表格1插入下拉列表项 (1, “B”)
子程序 _高级表格1_列表项被选择
参数 行号, 整数型
参数 列号, 整数型
参数 被选择文本, 文本型
高级表格1置列类型 (2, 1) ' #表格常量文本型
高级表格1置列类型 (2, 4) ' #表格常量列表型
' 高级表格1清空下拉列表 () 此方法不能清空,所以换了一种方法
如果真 (行号 = 1 且 列号 = 1 且 被选择文本 = “B”) ' 插入项可用数组计次插入更为方便
高级表格1插入下拉列表项 (2, “B——1”)
高级表格1插入下拉列表项 (2, “B——2”)
如果真结束
如果真 (行号 = 1 且 列号 = 1 且 被选择文本 = “A”)
高级表格1插入下拉列表项 (2, “A——1”)
高级表格1插入下拉列表项 (2, “A——2”)
如果真结束
这个很简单嘛。你输入数字的时候需要手动按回车键换行吧?把换行一关,所有的数字就在一行了。比如说:
2376
3569
在没有换行的时候就是
23763569
这个时候在进行分段,每四个断开一段,分成2376/3569两段,然后分别求和。再判断求和的结果与你选择的数字匹不匹配就行了。源码的话自己写写练练,有问题可以继续问。满意请先采纳答案哦!有不懂可以追问
按键没限制在窗口内,可在任意窗口按键
---------------------------------------
子程序
__启动窗口_创建完毕
选中
=
注册热键
(_启动窗口取窗口句柄
(),
标签取窗口句柄
(),
0,
#F4键)
子程序
_标签_反馈事件,
整数型
参数
参数一,
整数型
参数
参数二,
整数型
如果
(参数一
=
选中)
如果
(选择框选择
=
真)
选择框选择
=
假
否则
选择框选择
=
真
如果结束
否则
如果结束
----------------------------------------
限制在窗口内按键
----------------------------------------
子程序
__启动窗口_按下某键,
逻辑型
参数
键代码,
整数型
参数
功能键状态,
整数型
如果真
(键代码
=
#回车键)
如果
(选择框选择
=
真)
选择框选择
=
假
否则
选择框选择
=
真
如果结束
-----------------------------------------
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)