|
发表于 2017-6-17 15:06:21
|
显示全部楼层
浙江省温州市
DLL 里面的代码,
- .版本 2
- .程序集 程序集1
- .子程序 _启动子程序, 整数型, , 请在本子程序中放置动态链接库初始化代码
- _临时子程序 () ' 在初始化代码执行完毕后调用测试代码
- 返回 (0) ' 返回值被忽略。
- .子程序 _临时子程序
- ' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
- .子程序 通道, 整数型, 公开
- .参数 反馈地址, 整数型
- 全量_通道地址 = 反馈地址
- 返回 (全量_通道地址)
- .子程序 打开窗口, 逻辑型, 公开
- .如果真 (是否已创建 (窗口1))
- 返回 (假)
- .如果真结束
- 返回 (载入 (窗口1, , 假))
复制代码
DLL里面窗口里的代码
.版本 2
.支持库 spec
.程序集 窗口程序集_窗口1
.子程序 _按钮1_被单击
.局部变量 局量_返回值, 逻辑型
.如果真 (全量_通道地址 = 0)
返回 ()
.如果真结束
.如果真 (调用子程序 (全量_通道地址, , 局量_返回值, 编辑框1.内容))
主程序里面DLL列表
.版本 2
.DLL命令 打开窗口, 逻辑型, "dll.dll", "打开窗口"
.DLL命令 建立通道, 整数型, "dll.dll", "通道"
.参数 通道地址, 整数型
主程序里面窗口代码
.版本 2
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
.如果真 (打开窗口 ())
建立通道 (到整数 (&反馈文本))
.如果真结束
.子程序 反馈文本, 逻辑型
.参数 文本, 文本型
编辑框1.内容 = 文本
返回 (真)
|
|