|
发表于 2017-4-30 10:27:32
|
显示全部楼层
- .版本 2
- .程序集 程序集1
- .程序集变量 hShapeText, 整数型
- .程序集变量 hWindow, 整数型
- .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
- _临时子程序 () ' 在初始化代码执行完毕后调用测试代码
- 返回 (0) ' 可以根据您的需要返回任意数值
- .子程序 _临时子程序
- ' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
- XInitXCGUI ({ })
- hWindow = XWnd_Create (0, 0, 300, 200, L (“炫彩界面库- 窗口”), 0, #xc_window_style_default)
- hShapeText = XShapeText_Create (8, 30, 200, 20, L (“”), hWindow)
- XWnd_RegEventC (hWindow, #WM_USER + 100, 到整数 (&OnWndOther))
- CreateThread (0, 0, &线程, 0, 0, 0)
- XWnd_ShowWindow (hWindow, #SW_SHOW)
- XRunXCGUI ()
- XExitXCGUI ()
- .子程序 线程, 整数型
- .参数 参数, 整数型
- .局部变量 pBuffer, 整数型
- .局部变量 heap, 整数型
- heap = GetProcessHeap ()
- pBuffer = HeapAlloc (heap, #HEAP_ZERO_MEMORY, 4096) ‘申请一段内存
- .计次循环首 (1, )
- SendMessage (XWnd_GetHWND (hWindow), #WM_USER + 100, 取启动时间 (), pBuffer)
- 延时 (500)
- .计次循环尾 ()
- 输出调试文本 (指针到文本 (pBuffer))
- HeapFree (heap, #HEAP_ZERO_MEMORY, pBuffer)
- 返回 (0)
- .子程序 OnWndOther, 整数型, 公开, int CALLBACK OnWndOther(WPARAM wParam,LPARAM lParam,BOOL *pbHandled);
- .参数 wParam, 整数型
- .参数 lParam, 整数型
- .参数 pbHandled, 逻辑型, 参考
- .局部变量 内容, 文本型
- XShapeText_SetText (hShapeText, L (“启动时间” + 到文本 (wParam)))
- XWnd_RedrawWnd (hWindow, 假)
- 内容 = “我是一个段内容”
- CopyMemory (lParam, 内容, 取文本长度 (内容))
- 返回 (0)
复制代码
多写一个是因为给大家多一点参考,楼主可以参考我给你的这个例子,上面这个就只有一个回调了,没注册两个了。看看还有啥不懂的
|
|