精易论坛

标题: 自动更换自绘界面和鼠标指针 [打印本页]

---

作者: 易学菜鸟    时间: 2013-11-30 00:44
标题: 自动更换自绘界面和鼠标指针

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集1
   
4. .程序集变量 随机, 整数型
   
5. 
   
6. .子程序 __启动窗口_创建完毕
   
7. 
   
8. 置随机数种子 ()
   
9. 随机 ＝ 取随机数 (0, 8)
   
10. .如果真 (随机 ＝ 0)
    
11. _启动窗口.鼠标指针 ＝ #_启动窗口_鼠标指针0
    
12. .如果真结束
    
13. .如果真 (随机 ＝ 1)
    
14. _启动窗口.鼠标指针 ＝ #_启动窗口_鼠标指针1
    
15. .如果真结束
    
16. .如果真 (随机 ＝ 2)
    
17. _启动窗口.鼠标指针 ＝ #_启动窗口_鼠标指针2
    
18. .如果真结束
    
19. .如果真 (随机 ＝ 3)
    
20. _启动窗口.鼠标指针 ＝ #_启动窗口_鼠标指针3
    
21. .如果真结束
    
22. .如果真 (随机 ＝ 4)
    
23. _启动窗口.鼠标指针 ＝ #_启动窗口_鼠标指针4
    
24. .如果真结束
    
25. .如果真 (随机 ＝ 5)
    
26. _启动窗口.鼠标指针 ＝ #_启动窗口_鼠标指针5
    
27. .如果真结束
    
28. .如果真 (随机 ＝ 6)
    
29. _启动窗口.鼠标指针 ＝ #_启动窗口_鼠标指针6
    
30. .如果真结束
    
31. .如果真 (随机 ＝ 7)
    
32. _启动窗口.鼠标指针 ＝ #_启动窗口_鼠标指针7
    
33. .如果真结束
    
34. .如果真 (随机 ＝ 8)
    
35. _启动窗口.鼠标指针 ＝ #_启动窗口_鼠标指针8
    
36. .如果真结束
    
37. 
    
38. 
    
39. 置随机数种子 ()
    
40. 随机 ＝ 取随机数 (1, 9)
    
41. .如果真 (随机 ＝ 1)
    
42. _启动窗口.底图 ＝ #背景1
    
43. .如果真结束
    
44. .如果真 (随机 ＝ 2)
    
45. _启动窗口.底图 ＝ #背景2
    
46. .如果真结束
    
47. .如果真 (随机 ＝ 3)
    
48. _启动窗口.底图 ＝ #背景3
    
49. .如果真结束
    
50. .如果真 (随机 ＝ 4)
    
51. _启动窗口.底图 ＝ #背景4
    
52. .如果真结束
    
53. .如果真 (随机 ＝ 5)
    
54. _启动窗口.底图 ＝ #背景5
    
55. .如果真结束
    
56. .如果真 (随机 ＝ 6)
    
57. _启动窗口.底图 ＝ #背景6
    
58. .如果真结束
    
59. .如果真 (随机 ＝ 7)
    
60. _启动窗口.底图 ＝ #背景7
    
61. .如果真结束
    
62. .如果真 (随机 ＝ 8)
    
63. _启动窗口.底图 ＝ #背景8
    
64. .如果真结束
    
65. .如果真 (随机 ＝ 9)
    
66. _启动窗口.底图 ＝ #背景9
    
67. .如果真结束
    
68. 
    

复制代码

[/hide]学习论坛教程，修改的代码

2.jpg (23.21 KB, 下载次数: 0)

下载附件

2013-11-30 00:41 上传

1.jpg (15 KB, 下载次数: 1)

下载附件

2013-11-30 00:42 上传

---

作者: 易语言易崩溃    时间: 2013-11-30 11:18
不懂自绘额..只会模块搞起

---

作者: 易学菜鸟    时间: 2013-11-30 14:00
这个里面有代码

---

作者: 宇智波·佐助    时间: 2013-12-8 12:53
好吧            

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4