发个纯api级子线程刷新主线程的demo吧

suck007

没有做成类，取地址的时候，总是提示找不到地址，有点郁闷，做了个程序集，能用，多窗体需要改，略丑，将就看看吧

1. .版本 2
   
2. 
   
3. .程序集 UI子线程刷新程序集
   
4. .程序集变量 _hwnd, 整数型, , , 需要支持子线程更新ui的窗口句柄
   
5. .程序集变量 _oldWindowProc, 长整数型
   
6. .程序集变量 _triggerMsgId, 整数型, , , 发送消息进行ui同步的时候的msg id
   
7. .程序集变量 _uiCallBack, 子程序指针, , , ui回调函数
   
8. 
   
9. .子程序 setMsgId, , 公开
   
10. .参数 triggerMsgId, 整数型
    
11. 
    
12. _triggerMsgId ＝ triggerMsgId
    
13. 
    
14. 
    
15. .子程序 setUiCallBackProc, , 公开
    
16. .参数 uiCallBack, 子程序指针
    
17. 
    
18. _uiCallBack ＝ uiCallBack
    
19. 
    
20. 
    
21. .子程序 initWithWindow, , 公开
    
22. .参数 hwnd, 整数型
    
23. 
    
24. _hwnd ＝ hwnd
    
25. _oldWindowProc ＝ GetWindowLongA (_hwnd, -4)
    
26. SetWindowLongA (_hwnd, -4, val (&newWindowProc))
    
27. 
    
28. 
    
29. .子程序 newWindowProc, 整数型
    
30. .参数 hwnd, 整数型
    
31. .参数 msg, 整数型
    
32. .参数 wparam, 整数型
    
33. .参数 lparam, 整数型
    
34. 
    
35. .if (msg ＝ _triggerMsgId)
    
36.     调用子程序_ (val (_uiCallBack), , , , , , , , , , , , , , , )
    
37. .如果真结束
    
38. return (CallWindowProcA (_oldWindowProc, hwnd, msg, wparam, lparam))
    
39. 
    
40. 
    
41. 
    
42. 
    
43. .子程序 notifyUIUpdate, , 公开
    
44. 
    
45. PostMessageA (_hwnd, _triggerMsgId, 0, 0)
    
46. 
    
47. 
    
48. 
    
49. 
    
50. .子程序 waitUIUpdate
    
51. 
    
52. SendMessageA (_hwnd, _triggerMsgId, 0, 0)
    

复制代码

测试调用

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集_启动窗口
   
4. 
   
5. .子程序 __启动窗口_创建完毕
   
6. 
   
7. initWithWindow (_启动窗口.GetHWnd ())
   
8. setMsgId (5555)
   
9. setUiCallBackProc (&触发ui回调)
   
10. 
    
11. .子程序 _按钮1_被单击
    
12. 
    
13. 线程_启动 (&测试触发, , )
    
14. 
    
15. 
    
16. 
    
17. .子程序 测试触发
    
18. 
    
19. notifyUIUpdate ()
    
20. 
    
21. .子程序 触发ui回调
    
22. 
    
23. MsgBox (“bbbb”, 0, , )

复制代码

duanyijun

很不错的样子，支持，支持

阿顺

感谢分享

sinewtec

支持开源

suck007

更新了一波，测试程序如下

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集_启动窗口
   
4. .程序集变量 ui, UI子线程刷新类
   
5. 
   
6. .子程序 __启动窗口_创建完毕
   
7. 
   
8. ui.initWithWindow (_启动窗口.GetHWnd ())
   
9. ui.setUiUpdateProc (&触发ui回调)
   
10. 
    
11. .子程序 _按钮1_被单击
    
12. 
    
13. 线程_启动 (&子线程通知, , )
    
14. 
    
15. 
    
16. .子程序 子线程通知
    
17. 
    
18. ui.notifyUIUpdate ()
    
19. 
    
20. 
    
21. .子程序 触发ui回调
    
22. 
    
23. MsgBox (“触发ui回调”, 0, , )

复制代码

程序集模式改成类模式

1. .版本 2
   
2. 
   
3. .程序集 UI子线程刷新类
   
4. .程序集变量 _hwnd, 整数型, , , 需要支持子线程更新ui的窗口句柄
   
5. .程序集变量 _oldWindowProc, 长整数型
   
6. .程序集变量 _uiUpdateCallBack, 子程序指针, , , ui回调函数
   
7. .程序集变量 _triggerMsgId, 整数型, , , 通知ui线程的消息id，默认有个值
   
8. 
   
9. .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用
   
10. 
    
11. _triggerMsgId ＝ 9876
    
12. 
    
13. 
    
14. .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用
    
15. 
    
16. 
    
17. 
    
18. ' 依赖精易模块
    
19. ' 如果这个方法改位置了，SetWindowLongA的最后一个参数也需要改
    
20. 
    
21. .子程序 newWindowProc, 整数型
    
22. .参数 hwnd, 整数型
    
23. .参数 msg, 整数型
    
24. .参数 wparam, 整数型
    
25. .参数 lparam, 整数型
    
26. 
    
27. .if (msg ＝ _triggerMsgId)
    
28.     调用子程序_ (val (_uiUpdateCallBack), , , , , , , , , , , , , , , )
    
29. .如果真结束
    
30. return (CallWindowProcA (_oldWindowProc, hwnd, msg, wparam, lparam))
    
31. 
    
32. 
    
33. .子程序 setUiUpdateProc, , 公开
    
34. .参数 uiUpdateCallBack, 子程序指针
    
35. 
    
36. _uiUpdateCallBack ＝ uiUpdateCallBack
    
37. 
    
38. 
    
39. .子程序 notifyUIUpdate, , 公开
    
40. 
    
41. PostMessageA (_hwnd, _triggerMsgId, 0, 0)
    
42. 
    
43. 
    
44. ' 可以不调用
    
45. 
    
46. .子程序 setTriggerMsgId, , 公开
    
47. .参数 triggerMsgId, 整数型
    
48. 
    
49. _triggerMsgId ＝ triggerMsgId
    
50. 
    
51. 
    
52. .子程序 waitUIUpdate
    
53. 
    
54. SendMessageA (_hwnd, _triggerMsgId, 0, 0)
    
55. 
    
56. 
    
57. 
    
58. .子程序 initWithWindow, , 公开
    
59. .参数 hwnd, 整数型
    
60. 
    
61. _hwnd ＝ hwnd
    
62. _oldWindowProc ＝ GetWindowLongA (_hwnd, -4)
    
63. SetWindowLongA (_hwnd, -4, 类回调_取类地址 (3, 4, , ))
    

复制代码