找回密码  加入

AUTOIT CN

搜索
查看: 123941|回复: 184

[特效] 一些GUI效果,蛮不错的~参考一下

[复制链接]
发表于 2009-5-4 05:49:22 | 显示全部楼层 |阅读模式
  1. #include <GUIConstants.au3>
  2. #include "GUIEnhance.au3"

  3. Opt("GUIOnEventMode", 1)
  4. $GUI = GUICreate("", 350, 150)
  5. $btnTL = GUICtrlCreateButton("Test Button", -80, -25, 80, 25)
  6. GUICtrlSetResizing(-1, $GUI_DOCKALL)
  7. $btnTR = GUICtrlCreateButton("Test Button", 600, -25, 80, 25)
  8. GUICtrlSetResizing(-1, $GUI_DOCKALL)
  9. $btnBL = GUICtrlCreateButton("Test Button", -80, 500, 80, 25)
  10. GUICtrlSetResizing(-1, $GUI_DOCKALL)
  11. $btnBR = GUICtrlCreateButton("Test Button", 600, 500, 80, 25)
  12. GUICtrlSetResizing(-1, $GUI_DOCKALL)
  13. $label1 = GUICtrlCreateLabel("This is a label for demonstration purposes.", 10, 30)
  14. GUICtrlSetResizing(-1, $GUI_DOCKALL)
  15. $label2 = GUICtrlCreateLabel("This is a label for demonstration purposes.", 10, 30)
  16. GUICtrlSetResizing(-1, $GUI_DOCKALL)
  17. $label3 = GUICtrlCreateLabel("This is a label for demonstration purposes.", 10, 60)
  18. GUICtrlSetResizing(-1, $GUI_DOCKALL)
  19. $label4 = GUICtrlCreateLabel("This is a label for demonstration purposes.", 10, 90, -1, 16)
  20. GUICtrlSetResizing(-1, $GUI_DOCKALL)

  21. _GUIEnhanceAnimateWin ($GUI, 1000, $GUI_EN_ANI_FADEIN)
  22. GUISetState()
  23. GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
  24. Local $aiTemp[2] = [0, 0]
  25. ClientToScreen($GUI, $aiTemp[0], $aiTemp[1])
  26. Global $bgcolor = PixelGetColor($aiTemp[0], $aiTemp[1])
  27. ConsoleWrite($bgcolor & @CRLF)
  28. GUICtrlSetColor($label1, $bgcolor)
  29. _GUIEnhanceAnimateTitle ($GUI, "GUI Enhance UDF Test :: RazerM", $GUI_EN_TITLE_DROP)
  30. Sleep(1000)
  31. _GUIEnhanceAnimateTitle ($GUI, "GUI Enhance UDF Test :: RazerM", $GUI_EN_TITLE_SLIDE)
  32. Sleep(1000)
  33. _GUIEnhanceCtrlDrift ($GUI, $label4, 10, 120)
  34. _GUIEnhanceCtrlDrift ($GUI, $label3, 10, 90)
  35. _GUIEnhanceCtrlDrift ($GUI, $label2, 10, 60)
  36. _GUIEnhanceCtrlFade ($label1, 3000, True, False, $bgcolor, 0x000000)
  37. Local $aLabels[2] = [$label2, $label3]
  38. _GUIEnhanceCtrlFade ($aLabels, 1500, True, False, 0x000000, $bgcolor)
  39. _GUIEnhanceCtrlDrift ($GUI, $label4, 10, 60)
  40. _GUIEnhanceCtrlFade ($label4, 1000, False, True, $bgcolor, 0x000000)
  41. _GUIEnhanceCtrlFade ($label4, 1000, True, False, 0x000000, 0xFF0000)
  42. _GUIEnhanceCtrlFade ($label4, 1000, False, True, 0x000000, $bgcolor)

  43. _GUIEnhanceScaleWin ($GUI, 250, 350, True, 10, 25) ;add 250 to width, add 350 to height, centre win: true

  44. _GUiEnhanceCtrlDrift ($GUI, $btnTL, 305, 255, 2)
  45. _GUiEnhanceCtrlDrift ($GUI, $btnTR, 215, 255, 4)
  46. _GUiEnhanceCtrlDrift ($GUI, $btnBL, 305, 220, 6)
  47. _GUiEnhanceCtrlDrift ($GUI, $btnBR, 215, 220, 8)

  48. While 1
  49.         Sleep(5000)
  50. WEnd

  51. Func ClientToScreen($hwnd, ByRef $x, ByRef $y)
  52.         Local $stPoint = DllStructCreate("int;int")

  53.         DllStructSetData($stPoint, 1, $x)
  54.         DllStructSetData($stPoint, 2, $y)

  55.         DllCall("user32.dll", "int", "ClientToScreen", "hwnd", $hwnd, "ptr", DllStructGetPtr($stPoint))

  56.         $x = DllStructGetData($stPoint, 1)
  57.         $y = DllStructGetData($stPoint, 2)
  58.         ; release Struct not really needed as it is a local
  59.         $stPoint = 0
  60. EndFunc   ;==>ClientToScreen

  61. Func _exit()
  62.         _GUIEnhanceAnimateWin ($GUI, 700, $GUI_EN_ANI_FADEOUT)
  63.         Exit
  64. EndFunc   ;==>_exit
复制代码

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?加入

x

评分

参与人数 3金钱 +101 贡献 +10 收起 理由
lixiaolong + 31 很好
Duvet + 20 + 5
afan + 50 + 5

查看全部评分

发表于 2009-5-4 10:56:49 | 显示全部楼层
上个图就更爽拉!
发表于 2009-5-4 11:37:30 | 显示全部楼层
顶一个,谢了...
发表于 2009-5-4 12:20:58 | 显示全部楼层
dddddddddddddddddddd
发表于 2009-5-4 13:54:07 | 显示全部楼层
支持!!!!!!
发表于 2009-5-4 14:01:06 | 显示全部楼层
来顶一个,不错
发表于 2009-5-4 16:03:29 | 显示全部楼层
顶顶顶顶顶顶
发表于 2009-5-4 16:31:13 | 显示全部楼层
有图就好了 可以先看看
发表于 2009-5-4 16:31:19 | 显示全部楼层
以后最好发个贴图,不过这次还顶一下!
发表于 2009-5-4 17:13:48 | 显示全部楼层
玩得好开心啊你
发表于 2009-5-9 23:26:28 | 显示全部楼层
ddddddddddd
发表于 2009-5-11 20:31:01 | 显示全部楼层
发表于 2009-5-12 22:54:16 | 显示全部楼层
不好意思,分不够,谢谢!!
发表于 2009-5-12 22:54:29 | 显示全部楼层
不好意思,分不够,谢谢!!
发表于 2009-5-12 22:54:31 | 显示全部楼层
不好意思,分不够,谢谢!!
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|小黑屋|手机版|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2021-3-7 13:59 , Processed in 0.203125 second(s), 20 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表