读取磁盘里所有模块,能下载支持库和自绘皮肤

易语言 2020-08-17 18:15:15

读取磁盘里所有模块,能下载支持库和自绘皮肤

可获取模块,可下载支持库(调用的是易语言资源网的支持库下载)

源码双击可直接打开到易程序,相信很多没都没调试过用软件打开易程序吧,易程序不是一个可执行文件,只有特殊的办法才能打开的。

置皮肤 (, #图片1, , #紫色, #背景图_缩放)
置控件皮肤 (真, 0, 假) ' --第2个参数不为空,让windows通用组件也具有透明
加入窗口 (_启动窗口.取窗口句柄 (), 110, 真, 真, 假, 真, 真, 假, 17, , , , , , ) ' 状态栏数组传入最后一个参数
加入面板 (高级选择夹1.取窗口句柄 (), , , , 真)
置窗口标题字体 (取窗口句柄 (), , , #黑色)
加入图形钮 (按钮1.取窗口句柄 (), #h5, , , , “搜索源码”)

a = 到文本 (读入文件 (取运行目录 () + “\取易语言源码.txt”))
.判断开始 (a = “”)
处理事件 ()
搜寻 (“D:\易语言”)
.默认
fgnr = 分割文本 (a, #换行符, )
sz = 取数组成员数 (fgnr)
.计次循环首 (sz, i)
.如果真 (fgnr [i] ≠ “”)
lbk.插入项目 (, , )
lbk.置数据 (lbk.取表项数 (), , 文件_取文件名 (fgnr [i], ), #图片2)
加入成员 (d, fgnr [i])
.如果真结束
置状态栏数据 (取窗口句柄 (), 1, “易源码:” + 到文本 (lbk.取表项数 ()) + “条/正在读取,请稍等.....”, , )
.计次循环尾 ()
置状态栏数据 (取窗口句柄 (), 1, “易源码:” + 到文本 (lbk.取表项数 ()) + “条/读取完毕,谢谢使用.....”)
lbk.刷新显示 ()
_启动窗口.刷新显示 ()