超级列表框双击可以修改内容

易语言2018

这是近在眼前的例子，用了DLL命令等。看不懂....
要求纯源码双击可以修改内容

金哥专用

将允许编辑设置为真。或者用高级表格吧。

易语言2018

希望有人解答！！！

exit11

近大侠的源码都不能帮你解决问题，我就更不能了

exit11

需要修改的，就用高级表格吧

易语言2018

能解决的话精B不是问题！！！

乜汻╮還恠噫

我能帮你解决  

elang136

我帮你,精币看着给吧,三个是不多,我自己写的很强劲的例子,自己看看.连接数据库双机修改,并保存到数据库.不过是要精币的啊,

柳叶飞

存源码，选我吧

1. .版本 2
   
2. 
   
3. .DLL命令 取表项坐标信息, 整数型, "user32", "SendMessageA", , 发送消息
   
4.     .参数 hwnd, 整数型
   
5.     .参数 wMsg, 整数型
   
6.     .参数 wParam, 整数型
   
7.     .参数 lParam, 坐标
   
8. 
   
9. .DLL命令 取表项结构信息, 整数型, "user32", "SendMessageA", , 发送消息
   
10.     .参数 hwnd, 整数型
    
11.     .参数 wMsg, 整数型
    
12.     .参数 wParam, 整数型
    
13.     .参数 lParam, 表项结构信息
    

复制代码

1. .版本 2
   
2. 
   
3. .数据类型 表项结构信息
   
4.     .成员 横向, 整数型
   
5.     .成员 纵向, 整数型
   
6.     .成员 flags, 整数型
   
7.     .成员 行, 整数型
   
8.     .成员 列, 整数型
   
9. 
   
10. .数据类型 坐标
    
11.     .成员 x
    
12.     .成员 y
    

复制代码

1. .版本 2
   
2. .支持库 iext
   
3. 
   
4. .程序集 窗口程序集1
   
5. .程序集变量 表项信息, 表项结构信息
   
6. .程序集变量 行高, 整数型
   
7. 
   
8. .子程序 __启动窗口_创建完毕
   
9. .局部变量 表项坐标, 坐标
   
10. .局部变量 初始高度
    
11. 
    
12. ' ' --------------------------方法1---------------------------------------
    
13. ' 取表项坐标信息 (超级列表框1.取窗口句柄 (), 4096 ＋ 16, 0, 表项坐标)
    
14. ' 初始高度 ＝ 表项坐标.y
    
15. ' 取表项坐标信息 (超级列表框1.取窗口句柄 (), 4096 ＋ 16, 1, 表项坐标)
    
16. ' 行高 ＝ 表项坐标.y － 初始高度
    
17. ' 编辑框1.高度 ＝ 行高
    
18. ' 输出调试文本 (行高)
    
19. ' ' ----------------------取得行项的高度，这方是动态取得。-----------------------------
    
20. ' ' --------------------------方法2---------------------------------------
    
21. 编辑框1.高度 ＝ 20  ' 自定义，一般表项都是固定这高度。
    
22. 
    
23. .子程序 _超级列表框1_被双击, 逻辑型
    
24. .参数 横向位置, 整数型
    
25. .参数 纵向位置, 整数型
    
26. .参数 功能键状态, 整数型
    
27. .局部变量 表项坐标, 坐标
    
28. .局部变量 i, 整数型
    
29. 
    
30. 表项信息.横向 ＝ 横向位置
    
31. 表项信息.纵向 ＝ 纵向位置
    
32. 取表项结构信息 (超级列表框1.取窗口句柄 (), 4153, 0, 表项信息)  ' 当前取表项行、列位置
    
33. 输出调试文本 (“行：” ＋ 到文本 (表项信息.行))
    
34. 输出调试文本 (“列：” ＋ 到文本 (表项信息.列))
    
35. 输出调试文本 (“----------------------------------”)
    
36. 
    
37. .如果真 (表项信息.行 ≠ -1)
    
38.     取表项坐标信息 (超级列表框1.取窗口句柄 (), 4096 ＋ 16, 表项信息.行, 表项坐标)  ' 取出当前表项行列坐标点
    
39.     编辑框1.顶边 ＝ 超级列表框1.顶边 ＋ 表项坐标.y ＋ 1
    
40.     编辑框1.左边 ＝ 表项坐标.x ＋ 超级列表框1.左边
    
41.     .如果真 (表项信息.列 ＝ 0)
    
42.         编辑框1.左边 ＝ 表项坐标.x ＋ 超级列表框1.左边
    
43.     .如果真结束
    
44.     .计次循环首 (表项信息.列, i)
    
45.         编辑框1.左边 ＝ 编辑框1.左边 ＋ 超级列表框1.取列宽 (i － 1)
    
46.     .计次循环尾 ()
    
47.     编辑框1.宽度 ＝ 超级列表框1.取列宽 (表项信息.列)
    
48.     编辑框1.内容 ＝ 超级列表框1.取标题 (表项信息.行, 表项信息.列)
    
49.     编辑框1.可视 ＝ 真
    
50.     超级列表框1.禁止重画 ()
    
51.     编辑框1.获取焦点 ()
    
52.     编辑框1.被选择字符数 ＝ -1  ' 全选中编辑框中的内容
    
53. .如果真结束
    
54. 
    
55. 
    
56. .子程序 _编辑框1_放开某键, 逻辑型
    
57. .参数 键代码, 整数型
    
58. .参数 功能键状态, 整数型
    
59. 
    
60. .如果真 (键代码 ＝ #回车键)
    
61.     _编辑框1_失去焦点 ()
    
62. .如果真结束
    
63. 
    
64. 
    
65. .子程序 _编辑框1_失去焦点
    
66. 
    
67. 超级列表框1.置标题 (表项信息.行, 表项信息.列, 编辑框1.内容)
    
68. 编辑框1.可视 ＝ 假
    
69. 超级列表框1.允许重画 ()
    

复制代码

shi6718298

我上次就不小心双击竟然可以修改超级列表框的内容啊！
不知道是不是BUG啊！