仿QQ抖动效果（有过之而无不及）

原我能

分享易粹，你我同行！贴出原创，转载精华！

【功能子程序分享计划】之【窗口抖动】

子程序简介：对窗口执行三种类型的抖动操作。仿QQ聊天窗口的抖动功能。

1. .版本 2
   
2. 
   
3. .子程序 窗口抖动, 逻辑型, 公开, 对窗口执行三种类型的抖动操作。仿QQ聊天窗口的抖动功能。抖动完毕返回真。本命令仅依赖核心库。
   
4. .参数 抖动窗口, 窗口, , 欲抖动的窗口的名称。
   
5. .参数 抖动样式, 整数型, 可空, 0、四方形;1、三角形;2、横竖形。
   
6. .参数 抖动偏移, 整数型, 可空, 移动的距离就是偏移量。默认为20。
   
7. .参数 抖动间隔, 整数型, 可空, 每移动一次所需的间隔时间。默认为50毫秒每次。
   
8. .参数 抖动循环, 整数型, 可空, 完成一次特定形状的抖动描画之后,程序将按照本参数提供的数值决定重画次数,默认循环一次。
   
9. .局部变量 原来顶位置, 整数型
   
10. .局部变量 原来左位置, 整数型
    
11. .局部变量 循环计次, 整数型
    
12. 
    
13. .如果真 (抖动偏移 ＜ 1)
    
14. 抖动偏移 ＝ 20
    
15. .如果真结束
    
16. .如果真 (抖动间隔 ＜ 1)
    
17. 抖动间隔 ＝ 50
    
18. .如果真结束
    
19. .如果真 (抖动循环 ＜ 1)
    
20. 抖动循环 ＝ 1
    
21. .如果真结束
    
22. 原来顶位置 ＝ 抖动窗口.顶边
    
23. 原来左位置 ＝ 抖动窗口.左边
    
24. .计次循环首 (抖动循环, 循环计次) ' 重复指定形状的描画次数
    
25. .如果真 (抖动样式 ＝ 0) ' 四方形抖动
    
26. 抖动窗口.左边 ＝ 原来左位置 － 抖动偏移 ' 向左
    
27. 抖动窗口.顶边 ＝ 原来顶位置 ' 还原顶边
    
28. 歇 (抖动间隔)
    
29. 抖动窗口.左边 ＝ 原来左位置 ' 还原左边
    
30. 抖动窗口.顶边 ＝ 原来顶位置 ＋ 抖动偏移 ' 向下
    
31. 歇 (抖动间隔)
    
32. 抖动窗口.顶边 ＝ 原来顶位置 ' 还原顶边
    
33. 抖动窗口.左边 ＝ 原来左位置 ＋ 抖动偏移 ' 向右
    
34. 歇 (抖动间隔)
    
35. 抖动窗口.左边 ＝ 原来左位置 ' 还原左边
    
36. 抖动窗口.顶边 ＝ 原来顶位置 － 抖动偏移 ' 向上
    
37. 歇 (抖动间隔)
    
38. .如果真结束
    
39. .如果真 (抖动样式 ＝ 1) ' 三角形抖动
    
40. 抖动窗口.左边 ＝ 原来左位置 ' 还原左边
    
41. 抖动窗口.顶边 ＝ 原来顶位置 － 抖动偏移 ' 向上
    
42. 歇 (抖动间隔)
    
43. 抖动窗口.左边 ＝ 原来左位置 － 抖动偏移 ' 向左
    
44. 抖动窗口.顶边 ＝ 原来顶位置 ＋ 抖动偏移 ' 向下
    
45. 歇 (抖动间隔)
    
46. 抖动窗口.左边 ＝ 原来左位置 ＋ 抖动偏移 ' 向右
    
47. 歇 (抖动间隔)
    
48. .如果真结束
    
49. .如果真 (抖动样式 ＝ 2) ' 横竖形抖动
    
50. 抖动窗口.左边 ＝ 原来左位置 － 抖动偏移 ' 向左
    
51. 抖动窗口.顶边 ＝ 原来顶位置 ' 还原顶边
    
52. 歇 (抖动间隔)
    
53. 抖动窗口.左边 ＝ 原来左位置 ＋ 抖动偏移 ' 向右
    
54. 歇 (抖动间隔)
    
55. 抖动窗口.左边 ＝ 原来左位置 ' 还原左边
    
56. 抖动窗口.顶边 ＝ 原来顶位置 － 抖动偏移 ' 向上
    
57. 歇 (抖动间隔)
    
58. 抖动窗口.顶边 ＝ 原来顶位置 ＋ 抖动偏移 ' 向下
    
59. 歇 (抖动间隔)
    
60. .如果真结束
    
61. 
    
62. .计次循环尾 ()
    
63. 抖动窗口.左边 ＝ 原来左位置 ' 左边
    
64. 抖动窗口.顶边 ＝ 原来顶位置 ' 顶边
    
65. ' 还原位置
    
66. 返回 (真)
    
67. 
    
68. .子程序 歇, 逻辑型, 公开, 让代码暂停执行一段时间，然后再继续执行。可以全局暂停，也可以仅本序列暂停。
    
69. .参数 歇多久, , , 要停留多久。
    
70. .参数 挂起, 逻辑型, 可空, 是否挂起程序执行。为真则挂起，即全局暂停，整个程序将暂时得不到任何响应；为假则不挂起，即仅本序列暂停，不影响其他代码序列的执行。运行依赖库：核心支持库。
    
71. .局部变量 开始时间
    
72. .局部变量 当前时间
    
73. 
    
74. .如果真 (歇多久 ＜ 0)
    
75. 返回 (假)
    
76. .如果真结束
    
77. 开始时间 ＝ 取启动时间 ()
    
78. .判断循环首 (当前时间 ＜ 歇多久)
    
79. 当前时间 ＝ 取启动时间 () － 开始时间
    
80. 延时 (10)
    
81. .如果真 (挂起 ＝ 假)
    
82. 处理事件 ()
    
83. .如果真结束
    
84. 
    
85. .判断循环尾 ()
    
86. 返回 (真)

复制代码

复制上面两段子程序代码到易语言IDE代码框即可应用窗口抖动效果！

大家好呵呵

我饿  我试试去！