TC官方合作论坛

标题: 下边易语言回调函数如何转成TC ？？？？ [打印本页]

作者: jushunhe 时间: 2017-9-14 04:43
标题: 下边易语言回调函数如何转成TC ？？？？
本帖最后由 jushunhe 于 2017-9-14 04:45 编辑

.子程序 _Monitor_WndCallBack, 整数型, , TKMONITOR,Monitor:**
.参数 hWnd, 整数型
.参数 uMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型
.局部变量 dwRet, 整数型
.局部变量 lpCopy, COPYDATASTRUCT
.局部变量 sByte, 字节集
.局部变量 Str, 文本型

.判断开始 (uMsg ＝ 74) ' 74 (#4a) 当一个应用程序传递数据给另一个应用程序时发送此消息
sByte ＝指针到字节集 (lParam, 1024)
lpCopy.dwData ＝取字节集数据 (sByte, #整数型, 1)
lpCopy.cbData ＝取字节集数据 (sByte, #整数型, 5)
lpCopy.lpData ＝取字节集数据 (sByte, #整数型, 9)
Str ＝指针到文本 (lpCopy.lpData)
Str ＝取文本左边 (Str, lpCopy.cbData)
_AddLog1 (wParam, Str)
dwRet ＝ 0
.默认
dwRet ＝ _CallWindowProc (OldProc, hWnd, uMsg, wParam, lParam) ' 是将消息信息传送给指定的窗口过程的函数 hWnd:当前的程序窗口句柄
.判断结束
返回 (dwRet)
//-----------------------------------------------//
.数据类型 COPYDATASTRUCT
.成员 dwData, 整数型
.成员 cbData, 整数型
.成员 lpData, 整数型

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)