易语言拖放问题源码分享

Ls60

承接我的上一个帖子：拖放组件问题https://bbs.125.la/forum.php?mod=viewthread&tid=14714820
在窗口中创建拖放对象1、时钟1、超级列表框1后，会发现，在zc拖放对象后，
如果子程序 时钟1_周期事件直接在该子程序下添加使用类_json变量会导致拖放事件失效，

如果子程序 时钟1_周期事件使用窗口程序变量添加使用类_json，拖放事件才不会失效

不知道是不是bug，研究的不深，有兴趣自己去测试一下
写入下面代码，调用了精易模块

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
Json1	类_json

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

拖放对象1.zc拖放控件 (超级列表框1.取窗口句柄 ())

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
Json2	类_json

Json1.解析 (编码_Utf8到Ansi (读入文件 (“D:\1.json”)))
' Json2.解析 (编码_Utf8到Ansi (读入文件 (“D:\1.json”)))

i支持库列表	支持库注释
edroptarget	拖放支持库

.版本 2<br /> .支持库 edroptarget<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 Json1, 类_json<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 拖放对象1.zc拖放控件 (超级列表框1.取窗口句柄 ())<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 Json2, 类_json<br /> <br /> Json1.解析 (编码_Utf8到Ansi (读入文件 (“D:\1.json”)))<br /> ' Json2.解析 (编码_Utf8到Ansi (读入文件 (“D:\1.json”)))

同学麻烦让让

可能你系统问题吧，我WIN10测试局部变量JSON对象也是正常的

q3499

没看懂

ghost12

新技能已get√

WeChat404

谢谢。。。。。。。

网海拾贝

谢谢。。。。。。。。。。。。。

7ian

这个论坛很多人都说过了，涉及到对象的用线程要先用 CoInitialize (0)，精益模块的Json在类启动时调用一次，所以你在时钟里用它时先调用下 CoInitialize (0)，结束记得卸载掉

冰棍好烫啊

精易模块有个类 "文件拖放"

lufanjingyi

没看懂写的啥意思

六度科技

换别的json模块试过么