易语言运算小工具源码

易语言运算小工具源码

.版本 2
.支持库 iext3
.支持库 iext

.子程序 _窗口益算_创建完毕

' 插件启动 (“益算工具”)
' 窗口_置透明度 (窗口益算.取窗口句柄 (), #透明值, , 假)
高级选择夹4.隐藏表头 ＝ 真
子程序_读设置 ()
j金额编辑框1.内容 ＝ “100000”
计算 (j金额编辑框1.内容, 三月变量, 六月变量, 一年变量, 二年变量, 三年变量, 五年变量, 礼品变量)
j金额编辑框1.被选择字符数 ＝ 取文本长度 (j金额编辑框1.内容)
日期框1.今天 ＝ 到时间 (到文本 (取年份 (取现行时间 ())) ＋ “年” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “月” ＋ 到文本 (取日 (取现行时间 ()) － 1) ＋ “日”)
j金额编辑框1.获取焦点 ()
.如果 (是否已创建 (自定义公式窗口) ＝ 假)
    载入 (自定义公式窗口, 窗口益算, 假)

.否则

    自定义公式窗口.可视 ＝ 真
.如果结束
.如果 (高级选择夹1.现行子夹 ＝ 0)
    窗口益算.高度 ＝ 370

.否则

    窗口益算.高度 ＝ 302
.如果结束

.如果 (是否已创建 (自定义公式窗口) ＝ 真)
    自定义公式窗口.编辑框4.内容 ＝ 窗口益算.j金额编辑框1.内容
    自定义公式窗口._n按钮_批量计算_被单击 ()
    窗口益算.按钮7.标题 ＝ “自定义公式 公式 ” ＋ 到文本 (自定义公式窗口.超级列表框1.取表项数 ()) ＋ “ 个 ”

.否则

.如果结束

高级选择夹1.现行子夹 ＝ 0
编辑框_方便贷金额.内容 ＝ “50000”