子程序绑定参数

jixun66

源码用汇编 + API写的，请自行保证参数数目正确。

模块_绑定参数 By Jixun.rar (5.45 KB, 下载次数: 7)

2015-5-28 22:01 上传

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

举个栗子：

  

窗口程序集名	保 留	保 留	备 注
程序集

子程序名	返回值类型	公开	备 注
_启动子程序	整数型

变量名	类 型	静态	数组	备 注
参数	整数型		4
新的地址	整数型

参数 [1] ＝ 222221
参数 [2] ＝ 111112
参数 [3] ＝ 333333
' 如果需要在该子程序结束后调用非整数型内容 (如多线程)
' 请确保文本内容写出到全局内存。因为易语言在子程序完毕后会自动释放变量。
' 例如使用 GlobalAlloc 申请的内存区域内。
参数 [4] ＝ 取文本指针 (“文字也是可以的, ”)
新的地址 ＝ 绑定参数 (&回调子程序, 参数)
输出调试文本 (调用子程序 (新的地址, 取文本指针 (“Call 的时候还可以继续叠加参数哦~”)))
返回 (0)

子程序名	返回值类型	公开	备 注
调用子程序	整数型		by:易语言我吃了
参数名	类 型	参考	可空	数组	备 注
子程序地址
参数1
参数2
参数3
参数4
参数5
参数6
参数7
参数8
参数9
参数10
参数11
参数12
参数13
参数14
参数15

置入代码 ({ 86, 190, 15, 0, 0, 0, 141, 77, 8, 141, 76, 241, 252, 139, 65, 4, 133, 192, 116, 2, 255, 49, 78, 131, 233, 8, 133, 246, 117, 239, 255, 85, 8, 94, 201, 194, 124, 0 })
返回 (0)

子程序名	返回值类型	公开	备 注
取文本指针	整数型
参数名	类 型	参考	可空	数组	备 注
变量	文本型

置入代码 ({ 139, 69, 8, 139, 0, 139, 229, 93, 194, 4, 0 })
返回 (0)

子程序名	返回值类型	公开	备 注
回调子程序	整数型
参数名	类 型	参考	可空	数组	备 注
a1	整数型
a2	整数型
a3	整数型
a4	文本型
a5	文本型

输出调试文本 (a4 ＋ a5)
返回 (a1 ＋ a2 ＋ a3)

.版本 2<br /> <br /> .程序集 程序集<br /> <br /> .子程序 _启动子程序, 整数型<br /> .局部变量 参数, 整数型, , "4"<br /> .局部变量 新的地址, 整数型<br /> <br /> 参数 [1] ＝ 222221<br /> 参数 [2] ＝ 111112<br /> 参数 [3] ＝ 333333<br /> <br /> ' 如果需要在该子程序结束后调用非整数型内容 (如多线程)<br /> ' 请确保文本内容写出到全局内存。因为易语言在子程序完毕后会自动释放变量。<br /> ' 例如使用 GlobalAlloc 申请的内存区域内。<br /> 参数 [4] ＝ 取文本指针 (“文字也是可以的, ”)<br /> <br /> 新的地址 ＝ 绑定参数 (&回调子程序, 参数)<br /> 输出调试文本 (调用子程序 (新的地址, 取文本指针 (“Call 的时候还可以继续叠加参数哦~”)))<br /> 返回 (0)<br /> <br /> .子程序 调用子程序, 整数型, , by:易语言我吃了<br /> .参数 子程序地址<br /> .参数 参数1, , 可空<br /> .参数 参数2, , 可空<br /> .参数 参数3, , 可空<br /> .参数 参数4, , 可空<br /> .参数 参数5, , 可空<br /> .参数 参数6, , 可空<br /> .参数 参数7, , 可空<br /> .参数 参数8, , 可空<br /> .参数 参数9, , 可空<br /> .参数 参数10, , 可空<br /> .参数 参数11, , 可空<br /> .参数 参数12, , 可空<br /> .参数 参数13, , 可空<br /> .参数 参数14, , 可空<br /> .参数 参数15, , 可空<br /> <br /> 置入代码 ({ 86, 190, 15, 0, 0, 0, 141, 77, 8, 141, 76, 241, 252, 139, 65, 4, 133, 192, 116, 2, 255, 49, 78, 131, 233, 8, 133, 246, 117, 239, 255, 85, 8, 94, 201, 194, 124, 0 })<br /> 返回 (0)<br /> <br /> .子程序 取文本指针, 整数型<br /> .参数 变量, 文本型, 参考<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 0, 139, 229, 93, 194, 4, 0 })<br /> 返回 (0)<br /> <br /> .子程序 回调子程序, 整数型<br /> .参数 a1, 整数型<br /> .参数 a2, 整数型<br /> .参数 a3, 整数型<br /> .参数 a4, 文本型<br /> .参数 a5, 文本型<br /> <br /> 输出调试文本 (a4 ＋ a5)<br /> 返回 (a1 ＋ a2 ＋ a3)

输出内容：

1. * 文字也是可以的, Call 的时候还可以继续叠加参数哦~
   
2. * 666666

复制代码

另外一个栗子在压缩包内，对精易模块的「文件拖放」类进行了魔改，现在不需要声明全局变量了。


不支持多线程调用绑定参数后的程序 (堆栈数据不同)。多线程带上一串参数调用请参考另外一个帖子：多参调用线程

花诗雨露

完全看不懂。不知道是干什么用的