子程序指针

① 易语言 调用子程序

汗..最简单方法就是直接输入个
_按钮1_被单击
()
就行了
如果是在模块内部想调用外部输入子程序
可以用
调用子程序
(&_按钮1_被单击,
,
,
)
这个样子执行子程序指针

② 易语言数据类型

.版本 2
.局部变量 文本, 文本型
.局部变量 逻辑, 逻辑型
.局部变量 日期, 日期时间型
.局部变量 字节, 字节型
.局部变量 整数, 整数型
.局部变量 小数, 小数型
.局部变量 短整数, 短整数型
.局部变量 长整数, 长整数型
.局部变量 双精度小数, 双精度小数型
文本 ＝ “文本” ' 用作记录一段文本，文本由以字节 0 结束的一系列字符组成
逻辑 ＝ 真 ' 值只可能为“真”或“假”，尺寸为 4 个字节。“真”和“假”为系统预定义常量，其对应的英文常量名称为“true”和“false”
日期 ＝ 到时间 (“1973年11月15日12时30分25秒”) ' 用作记录日期及时间，尺寸为 8 个字节
字节 ＝ 255 ' 可容纳 0 到 255 之间的数值
整数 ＝ 999 ' 可容纳 -2,147,483,648 到 2,147,483,647 之间的数值，尺寸为 4 个字节
小数 ＝ 1.99 ' 可容纳 3.4E +/- 38 (7位小数) 之间的数值，尺寸为 4 个字节
短整数 ＝ 1 ' 可容纳 -32,768 到 32,767 之间的数值，尺寸为 2 个字节
长整数 ＝ 1 ' 可容纳 -9,223,372,036,854,775,808 到 9,223,372,036,854,775,807 之间的数值，尺寸为 8 个字节
双精度小数 ＝ 1.99 ' 可容纳 1.7E +/- 308 (15位小数) 之间的数值，尺寸为 8 个字节

③ 易语言DLL 呼叫窗口函数地址的例子

.版本 2

.程序集 窗口程序集1
.程序集变量 子程序指针_整数型, 整数型, , , 修改对应“lpPrevWndFunc”的类型
.程序集变量 子程序指针_指针型, 子程序指针, , , 修改对应“lpPrevWndFunc”的类型

.子程序 __启动窗口_创建完毕

子程序指针_整数型 ＝ 到整数 (&被调用的子程序_整数型指针)
子程序指针_指针型 ＝ &被调用的子程序_指针型指针

.子程序 被调用的子程序_整数型指针
.参数 hwnd, 文本型, , 数据类型可自定义
.参数 msg, 整数型, , 数据类型可自定义
.参数 wParam, 整数型, , 数据类型可自定义
.参数 lParam, 整数型, , 数据类型可自定义

' 注：参数必须有4个（无论你须不须要，少一个都会出错~~）
信息框 (hwnd, 0, )

.子程序 被调用的子程序_指针型指针
.参数 hwnd, 文本型, , 数据类型可自定义
.参数 msg, 整数型, , 数据类型可自定义
.参数 wParam, 整数型, , 数据类型可自定义
.参数 lParam, 整数型, , 数据类型可自定义

' 注：参数必须有4个（无论你须不须要，少一个都会出错~~）
信息框 (hwnd, 0, )

.子程序 _按钮1_被单击

CallWindowProc (子程序指针_整数型, “调用的子程序A”, 0, 0, 0)

.子程序 _按钮2_被单击

CallWindowProcA (子程序指针_指针型, “调用的子程序B”, 0, 0, 0)

.版本 2

.DLL命令 CallWindowProc, 整数型, "user32.dll", "CallWindowProcA", , 将消息传答窗口函数
.参数 lpPrevWndFunc, 整数型
.参数 hwnd, 文本型
.参数 msg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型

.DLL命令 CallWindowProcA, 整数型, "user32.dll", "CallWindowProcA", , 将消息传答窗口函数
.参数 lpPrevWndFunc, 子程序指针
.参数 hwnd, 文本型
.参数 msg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型

④ 易语言 子程序指针

比如 拦截到这个消息后要执行的程序 比如你有程序名称叫 子程序1 你如果拦截到消息后要执行这个程序 就得 &子程序1