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

破帽遮颜

1. #include <GUIConstants.au3>
   
2. #include "GUIEnhance.au3"
   
3. 
   
4. Opt("GUIOnEventMode", 1)
   
5. $GUI = GUICreate("", 350, 150)
   
6. $btnTL = GUICtrlCreateButton("Test Button", -80, -25, 80, 25)
   
7. GUICtrlSetResizing(-1, $GUI_DOCKALL)
   
8. $btnTR = GUICtrlCreateButton("Test Button", 600, -25, 80, 25)
   
9. GUICtrlSetResizing(-1, $GUI_DOCKALL)
   
10. $btnBL = GUICtrlCreateButton("Test Button", -80, 500, 80, 25)
    
11. GUICtrlSetResizing(-1, $GUI_DOCKALL)
    
12. $btnBR = GUICtrlCreateButton("Test Button", 600, 500, 80, 25)
    
13. GUICtrlSetResizing(-1, $GUI_DOCKALL)
    
14. $label1 = GUICtrlCreateLabel("This is a label for demonstration purposes.", 10, 30)
    
15. GUICtrlSetResizing(-1, $GUI_DOCKALL)
    
16. $label2 = GUICtrlCreateLabel("This is a label for demonstration purposes.", 10, 30)
    
17. GUICtrlSetResizing(-1, $GUI_DOCKALL)
    
18. $label3 = GUICtrlCreateLabel("This is a label for demonstration purposes.", 10, 60)
    
19. GUICtrlSetResizing(-1, $GUI_DOCKALL)
    
20. $label4 = GUICtrlCreateLabel("This is a label for demonstration purposes.", 10, 90, -1, 16)
    
21. GUICtrlSetResizing(-1, $GUI_DOCKALL)
    
22. 
    
23. _GUIEnhanceAnimateWin ($GUI, 1000, $GUI_EN_ANI_FADEIN)
    
24. GUISetState()
    
25. GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
    
26. Local $aiTemp[2] = [0, 0]
    
27. ClientToScreen($GUI, $aiTemp[0], $aiTemp[1])
    
28. Global $bgcolor = PixelGetColor($aiTemp[0], $aiTemp[1])
    
29. ConsoleWrite($bgcolor & @CRLF)
    
30. GUICtrlSetColor($label1, $bgcolor)
    
31. _GUIEnhanceAnimateTitle ($GUI, "GUI Enhance UDF Test :: RazerM", $GUI_EN_TITLE_DROP)
    
32. Sleep(1000)
    
33. _GUIEnhanceAnimateTitle ($GUI, "GUI Enhance UDF Test :: RazerM", $GUI_EN_TITLE_SLIDE)
    
34. Sleep(1000)
    
35. _GUIEnhanceCtrlDrift ($GUI, $label4, 10, 120)
    
36. _GUIEnhanceCtrlDrift ($GUI, $label3, 10, 90)
    
37. _GUIEnhanceCtrlDrift ($GUI, $label2, 10, 60)
    
38. _GUIEnhanceCtrlFade ($label1, 3000, True, False, $bgcolor, 0x000000)
    
39. Local $aLabels[2] = [$label2, $label3]
    
40. _GUIEnhanceCtrlFade ($aLabels, 1500, True, False, 0x000000, $bgcolor)
    
41. _GUIEnhanceCtrlDrift ($GUI, $label4, 10, 60)
    
42. _GUIEnhanceCtrlFade ($label4, 1000, False, True, $bgcolor, 0x000000)
    
43. _GUIEnhanceCtrlFade ($label4, 1000, True, False, 0x000000, 0xFF0000)
    
44. _GUIEnhanceCtrlFade ($label4, 1000, False, True, 0x000000, $bgcolor)
    
45. 
    
46. _GUIEnhanceScaleWin ($GUI, 250, 350, True, 10, 25) ;add 250 to width, add 350 to height, centre win: true
    
47. 
    
48. _GUiEnhanceCtrlDrift ($GUI, $btnTL, 305, 255, 2)
    
49. _GUiEnhanceCtrlDrift ($GUI, $btnTR, 215, 255, 4)
    
50. _GUiEnhanceCtrlDrift ($GUI, $btnBL, 305, 220, 6)
    
51. _GUiEnhanceCtrlDrift ($GUI, $btnBR, 215, 220, 8)
    
52. 
    
53. While 1
    
54.         Sleep(5000)
    
55. WEnd
    
56. 
    
57. Func ClientToScreen($hwnd, ByRef $x, ByRef $y)
    
58.         Local $stPoint = DllStructCreate("int;int")
    
59. 
    
60.         DllStructSetData($stPoint, 1, $x)
    
61.         DllStructSetData($stPoint, 2, $y)
    
62. 
    
63.         DllCall("user32.dll", "int", "ClientToScreen", "hwnd", $hwnd, "ptr", DllStructGetPtr($stPoint))
    
64. 
    
65.         $x = DllStructGetData($stPoint, 1)
    
66.         $y = DllStructGetData($stPoint, 2)
    
67.         ; release Struct not really needed as it is a local
    
68.         $stPoint = 0
    
69. EndFunc   ;==>ClientToScreen
    
70. 
    
71. Func _exit()
    
72.         _GUIEnhanceAnimateWin ($GUI, 700, $GUI_EN_ANI_FADEOUT)
    
73.         Exit
    
74. EndFunc   ;==>_exit

复制代码

zz999

上个图就更爽拉!

yangkaicheng

顶一个,谢了...

zhenglei

dddddddddddddddddddd

鸟人

支持！！！！！！

botanycc

来顶一个，不错

wher

顶顶顶顶顶顶

netbadbug

有图就好了 可以先看看

forestchi

以后最好发个贴图，不过这次还顶一下!

UID

玩得好开心啊你

ydpd

ddddddddddd

bland

lnlzh

不好意思,分不够,谢谢!!

lnlzh

不好意思,分不够,谢谢!!

lnlzh

不好意思,分不够,谢谢!!