易语言模块 事件接收器.ec
模块名称：事件接收器 BY:路过已错过
版本：1.0
用于建立对象事件源之间的链接.
可以获取对象事件.
BY:路过已错过
2011-09-10
------------------------------
.版本 2
.子程序 Ansi2Unicode, 字节集, 公开
.参数 ByteStr, 文本型, 参考
.子程序 CLSIDToString, 文本型, 公开
.参数 CLSID, 字节集
.子程序 CLSIDToString_Point, 文本型, 公开
.参数 Point, 整数型
.子程序 PointToCLSID, 字节集, 公开
.参数 Point, 整数型
.子程序 StringToCLSID, 字节集, 公开
.参数 String, 文本型
.子程序 Unicode2Ansi, 文本型, 公开
.参数 CharStr, 字节集, 参考
.子程序 Unicode2Ansi_Point, 文本型, 公开
.参数 CharStr, 整数型
.子程序 枚举事件点, 整数型, 公开, 枚举当前对象所支持的事件，返回支持链接点的数量
.参数 目标对象, 对象, , 进行枚举的对象.
.参数 事件接口DIID, 文本型, 参考 数组, 返回的事件接口DIID数组
.子程序 取文本型指针, 整数型, 公开
.参数 文本, 文本型
.子程序 取整数型指针, 整数型, 公开
.参数 整数, 整数型, 参考
.子程序 取字节集指针, 整数型, 公开
.参数 字节集, 字节集
.子程序 指针到变体型, 变体型, 公开
.参数 变体型指针, 整数型
.程序集 事件接收器, , 公开
.子程序 更改附加参数, , 公开, 修改当前附加参数.
.参数 附加参数, 整数型, 可空, 本成员值将传递给回调子程序作为第一个参数.如果[挂接事件]中没有传递本参数值或为值为0,本次修改[附加参数]将忽略.
.子程序 挂接事件, 逻辑型, 公开, 建立事件源,获取事件.
.参数 事件标识, 整数型, , 当事件ID为指定的标识,将通知回调地址.
.参数 回调地址, 子程序指针, , 参数数量必须符合约定,如果有返回值,请返回返回值,如果没有,可不返回,如果有指定附加参数,请将添加第一个参数为整数型控件标识,后续为原定参数.
.子程序 开始挂接, 逻辑型, 公开, 用作临时暂停后继续接收事件.
.子程序 取消挂接, 逻辑型, 公开, 用作临时暂停接收事件.
.子程序 是否已挂接, 逻辑型, 公开, 检查当前是否已链接上事件源.
.子程序 释放, , 公开, 在被挂接的对象释放前要调用本方法.
.子程序 依附, 逻辑型, 公开
.参数 目标对象, 对象, , 进行挂接的对象.
.参数 事件接口IID, 文本型, 可空, 例如：浏览器事件接口DIID_DWebBrowserEvents2。如果为空，则默认为第一个事件源。
.参数 附加参数, 整数型, 可空, 本成员值将传递给回调子程序作为第一个参数,如果为0,将不用添加第一个参数控件标识.例如,有多个控件共用一个回调子程序时,用于标识某个预定控件,
.DLL命令 CoInitialize, 整数型, "ole32.dll", "CoInitialize", 公开
.参数 pvReserved, 整数型
.DLL命令 CoUninitialize, , "ole32.dll", "CoUninitialize", 公开
.DLL命令 IsEqualGUID, 逻辑型, "ole32.dll", "IsEqualGUID", 公开
.参数 rguid1, 整数型
.参数 rguid2, 字节集
.图片 CallCOM_Object, 公开, 在子程序中置入本代码,第一个参数为对象,然后为参数,第一个局部变量为方法索引.
.图片 CallCOM_This, 公开, 在子程序中置入本代码,第一个参数为This,然后为参数,第一个局部变量为方法索引.
页:
[1]