黑月模块(视图列表框)有问题?

stillness

代码有错?
插入没法刷新列表....

1. .版本 2
   
2. .支持库 eAPI
   
3. .支持库 EThread
   
4. .支持库 internet
   
5. 
   
6. .程序集 _Main
   
7. .程序集变量 集__MainForm, 对话框类, , , 窗体 object.rc
   
8. .程序集变量 集_Hwnd, 整数型, , , 句柄 int object Hwnd
   
9. .程序集变量 集_发音钮, 按钮类, , , Button object.rc
   
10. .程序集变量 集_搜索框, 组合框类, , , ComeBox object.rc
    
11. .程序集变量 集_TextBox, 编辑框类, , , TextBox object.rc
    
12. .程序集变量 集_分组框1, 分组框类
    
13. .程序集变量 集_分组框2, 分组框类
    
14. .程序集变量 集_分组框3, 分组框类
    
15. .程序集变量 集_Report, 超级列表框类, , , SysListView32
    
16. .程序集变量 集_菜单, 菜单类
    
17. .程序集变量 THwnd, 整数型
    
18. 
    
19. .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
    
20. 
    
21. Main ()
    
22. 返回 (0)  ' 可以根据您的需要返回任意数值
    
23. 
    
24. .子程序 Main
    
25. 
    
26. 集__MainForm.载入 (, #IDD_对话框1, &__MainForm_创建完毕, #ClassName, 真)
    
27. 
    
28. 
    
29. .子程序 __MainForm_创建完毕
    
30. .参数 Hwnd, 整数型
    
31. 
    
32. 集_Hwnd ＝ Hwnd
    
33. 绑定组件 ()
    
34. 注册事件 ()
    
35. 插入菜单 ()
    
36. 设置组件 ()
    
37. .如果真 (系统_是否已联网1 () ≠ 真)
    
38.     集__MainForm.信息框 (“未连接网络”, 64, “信息:”)
    
39.     集__MainForm.销毁 ()
    
40. .如果真结束
    
41. .如果真 (THwnd ≠ 0)
    
42.     终止进程 (THwnd)
    
43. .如果真结束
    
44. 启动线程 (&取数据, , THwnd)
    
45. 
    
46. .子程序 取数据
    
47. .局部变量 数据, 文本型
    
48. .局部变量 列表, 列表信息, , "0"
    
49. .局部变量 计次, 整数型
    
50. .局部变量 索引, 整数型
    
51. .局部变量 次数, 整数型
    
52. 
    
53. 数据 ＝ 到文本 (HTTP读文件 (#Url))
    
54. 匹配A (数据, 列表)
    
55. 次数 ＝ 取数组下标 (列表, )
    
56. .如果真 (次数 ≤ 0)
    
57.     返回 ()
    
58. .如果真结束
    
59. .计次循环首 (次数, 计次)
    
60.     索引 ＝ 集_Report.插入表项 (-1, 列表 [计次].名称, , , , )
    
61.     集_Report.置标题 (索引, 1, 列表 [计次].地址)
    
62.     集_Report.刷新显示 ()
    
63. .计次循环尾 ()
    
64. 
    
65. 
    
66. .子程序 匹配A, 整数型, , 本子程序采用【精易编程助手】生成。成功返回匹配的数量，失败返回0。
    
67. .参数 源文本, 文本型, , 欲被匹配的文本
    
68. .参数 返回列表, 列表信息, 数组
    
69. .局部变量 局_正则, 正则表达式类, , , 此类为精易模块里面的正则类，精易模块下载地址：www.3600gz.cn/thread-1177-1-1.html
    
70. .局部变量 局_匹配数, 整数型
    
71. .局部变量 局_计次, 整数型
    
72. .局部变量 局_列表信息, 列表信息
    
73. 
    
74. .如果真 (局_正则.创建 (#表达式1, 源文本, 假, 真, 真, 真) ＝ 假)
    
75.     返回 (0)
    
76. .如果真结束
    
77. 局_匹配数 ＝ 局_正则.取匹配数量 ()
    
78. .如果真 (局_匹配数 ＝ 0)
    
79.     返回 (0)
    
80. .如果真结束
    
81. .计次循环首 (局_匹配数, 局_计次)
    
82.     局_列表信息.名称 ＝ 局_正则.取子匹配文本 (局_计次, 2)
    
83.     局_列表信息.地址 ＝ #Url ＋ 局_正则.取子匹配文本 (局_计次, 1)
    
84.     加入成员 (返回列表, 局_列表信息)
    
85. .计次循环尾 ()
    
86. 返回 (局_匹配数)
    
87. 
    
88. .子程序 插入菜单
    
89. 
    
90. .如果真 (集_菜单.创建弹出菜单 () ＝ 真)
    
91.     集_菜单.添加项目 (“阅读(&R)”, #IDC_阅读)
    
92. .如果真结束
    
93. 
    
94. 
    
95. .子程序 设置组件
    
96. 
    
97. 集__MainForm.置窗口文本 (“Reader”)
    
98. 集_发音钮.置窗口文本 (“发音”)
    
99. 集_Report.插入列 (0, “章节”, 150, , , )
    
100. 集_Report.插入列 (1, “地址”, , , , )
     
101. 集__MainForm.添加风格 (#窗口扩展_三维边缘)
     
102. 
     
103. .子程序 注册事件
     
104. 
     
105. 集_发音钮.事件_被单击 (&_发音_被单击)
     
106. 集_搜索框.事件_编辑内容被改变 (&_搜索_编辑内容被改变)
     
107. 集_搜索框.事件_列表项被选择 (&_搜索_编辑内容被改变)
     
108. 集__MainForm.事件_首次激活 (&__MainForm_首次激活)
     
109. 集__MainForm.事件_将被销毁 (&__MainForm_将被销毁)
     
110. 集__MainForm.事件_可否被关闭 (&__MainForm_可否被关闭)
     
111. 集_Report.事件_双击表项 (&_Report_双击表项)
     
112. 集_Report.事件_右键单击表项 (&_Report_右键单击表项)
     
113. 集_Report.通用事件_鼠标右键被按下 (&_Report_鼠标右键被按下)
     
114. 集__MainForm.事件_菜单被单击 (&集_菜单_被选择)
     
115. 
     
116. .子程序 _Report_鼠标右键被按下, 整数型
     
117. .参数 横坐标, 整数型
     
118. .参数 纵坐标, 整数型
     
119. .参数 功能键状态, 整数型
     
120. 
     
121. 返回 (集_菜单.弹出菜单 (取鼠标水平位置 (), 取鼠标垂直位置 (), 集_Hwnd, ))
     
122. 
     
123. .子程序 _Report_右键单击表项
     
124. .参数 表项索引, 整数型
     
125. .参数 功能键状态, 整数型
     
126. 
     
127. 
     
128. 
     
129. .子程序 集_菜单_被选择
     
130. .参数 Hid, 整数型
     
131. 
     
132. .判断开始 (Hid ＝ #IDC_阅读)
     
133. 
     
134. .默认
     
135. 
     
136. .判断结束
     
137. 
     
138. 
     
139. .子程序 _Report_双击表项
     
140. 
     
141. 
     
142. 
     
143. .子程序 __MainForm_将被销毁
     
144. 
     
145. 
     
146. 
     
147. .子程序 __MainForm_可否被关闭, 整数型
     
148. 
     
149. 返回 (0)
     
150. 
     
151. .子程序 __MainForm_首次激活
     
152. 
     
153. 
     
154. 
     
155. .子程序 _搜索_项目被选择
     
156. 
     
157. 
     
158. 
     
159. .子程序 _搜索_编辑内容被改变
     
160. 
     
161. 
     
162. 
     
163. .子程序 _发音_被单击
     
164. 
     
165. 
     
166. 
     
167. .子程序 绑定组件
     
168. 
     
169. 集_发音钮.绑定 (集_Hwnd, #IDC_按钮1, )
     
170. 集_搜索框.绑定 (集_Hwnd, #IDC_组合框1, )
     
171. 集_TextBox.绑定 (集_Hwnd, #IDC_编辑框1, )
     
172. 集_分组框1.绑定 (集_Hwnd, #IDC_分组框1, )
     
173. 集_分组框2.绑定 (集_Hwnd, #IDC_分组框2, )
     
174. 集_分组框3.绑定 (集_Hwnd, #IDC_分组框3, )
     
175. 集_Report.绑定 (集_Hwnd, #IDC_视图列表框1, )
     
176. 集__MainForm.图标 (黑月载入图标 (#IDC_ICONA))
     

复制代码

宿海仁太

黑月 不怎么熟悉