易语言 制作桌面自动换背景小程序 我是菜鸟 大神勿喷

ganen1980

1. [e=3].版本 2
   
2. .支持库 eAPI
   
3. .支持库 spec
   
4. 
   
5. 
   
6. .程序集 窗口程序集_启动窗口
   
7. 
   
8. .子程序 __启动窗口_创建完毕
   
9. 
   
10. 图片框1.显示方式 ＝ 2
    
11. 
    
12. .子程序 _按钮1_被单击
    
13. .局部变量 浏览文件, 文本型
    
14. 
    
15. 编辑框1.内容 ＝ 浏览文件夹 (“请选择文件夹”, )
    
16. 浏览文件 ＝ 编辑框1.内容
    
17. 列表框1.清空 ()
    
18. 搜索文件 (浏览文件)
    
19. ' 浏览文件夹 (, )
    
20. 
    
21. 
    
22. 
    
23. .子程序 搜索文件
    
24. .参数 浏览文件, 文本型
    
25. .局部变量 寻找结果, 文本型
    
26. 
    
27. .如果真 (取文本左边 (浏览文件, 1) ≠ “\”)
    
28.     浏览文件 ＝ 浏览文件 ＋ “\”
    
29. .如果真结束
    
30. 寻找结果 ＝ 寻找文件 (浏览文件 ＋ “*.jpg”, )
    
31. .判断循环首 (寻找结果 ≠ “”)
    
32.     列表框1.加入项目 (寻找结果, )
    
33.     寻找结果 ＝ 寻找文件 (, )
    
34. .判断循环尾 ()
    
35. 
    
36. .子程序 _列表框1_列表项被选择
    
37. 
    
38. 图片框1.图片 ＝ 读入文件 (编辑框1.内容 ＋ “\” ＋ 列表框1.取项目文本 (列表框1.现行选中项))
    
39. 
    
40. .子程序 _按钮2_被单击
    
41. 
    
42. 设置桌面墙纸 (编辑框1.内容 ＋ “\” ＋ 列表框1.取项目文本 (列表框1.现行选中项), #接口常量.平铺)
    
43. 
    
44. 
    
45. 
    
46. .子程序 自动换墙纸
    
47. .局部变量 列表项目, 整数型
    
48. .局部变量 计次, 整数型
    
49. .局部变量 随机, 整数型
    
50. 
    
51. 列表项目 ＝ 列表框1.取项目数 ()
    
52. 置随机数种子 ()
    
53. .计次循环首 (列表项目, 计次)
    
54.     .判断开始 (选择框1.选中 ＝ 真)
    
55.         随机 ＝ 取随机数 (0, 列表项目 － 1)
    
56.     .默认
    
57.         随机 ＝ 计次 － 1
    
58.     .判断结束
    
59.     图片框1.图片 ＝ 读入文件 (编辑框1.内容 ＋ “\” ＋ 列表框1.取项目文本 (随机))
    
60.     设置桌面墙纸 (编辑框1.内容 ＋ “\” ＋ 列表框1.取项目文本 (随机), #接口常量.平铺)
    
61.     延迟 (到整数 (编辑框2.内容) × 1000)
    
62.     .如果真 (列表项目 ＝ 计次)
    
63.         自动换墙纸 ()
    
64.     .如果真结束
    
65.     .如果真 (按钮3.标题 ＝ “自动换景”)
    
66.         跳出循环 ()
    
67.     .如果真结束
    
68. 
    
69. .计次循环尾 ()
    
70. 
    
71. .子程序 _按钮3_被单击
    
72. 
    
73. .判断开始 (按钮3.标题 ＝ “自动换景”)
    
74.     按钮3.标题 ＝ “关闭换景”
    
75.     自动换墙纸 ()
    
76. .默认
    
77.     按钮3.标题 ＝ “自动换景”
    
78. .判断结束
    
79. 
    
80. 
    
81. .子程序 _编辑框2_内容被改变
    
82. .局部变量 删除, 文本型
    
83. 
    
84. 
    
85. .如果真 (取文本长度 (编辑框2.内容) ＞ 5)
    
86.     删除 ＝ 取文本左边 (编辑框2.内容, 1)
    
87.     编辑框2.内容 ＝ 子文本替换 (编辑框2.内容, 删除, , 1, 1, 假)
    
88.     编辑框2.起始选择位置 ＝ 编辑框2.起始选择位置 ＋ 5
    
89. .如果真结束
    
90. [/e]

复制代码

• 易语言 制作桌面自动换背景小程序 我是菜鸟 大神勿喷
• [media=x,500,375][/media]
  

[/e]

无孔不入

感谢楼主你的分享

坏涛

谢谢大神分享，

roybeat

谢谢大神分享，无私最可爱！

Qsong

小白，学习一下

kuaishou888