Autoit 伸縮視窗演示

bunnie

我自己也寫了一個伸縮窗口,
窗口是從上方往下滑出.

<滑出前>

<已滑出>

----------------------------------------------------------------------------------

1. HotKeySet("{ESC}", "_Ex")
   
2. #include <WindowsConstants.au3>
   
3. #include <GUIConstantsEx.au3>
   
4. #include <EditConstants.au3>
   
5. #include <GUIStatusBar.au3>
   
6. #include <Array.au3>
   
7. 
   
8. $wait = 1 * Sleep(10)
   
9. $dll = DllOpen("user32.dll")
   
10. $topWin = GUICreate("我是伸縮視窗", 200, 255, -1, -1, -1, $WS_EX_TOPMOST)
    
11. Global $LEFT_in = False
    
12. Global $RIGHT_in = False
    
13. Global $BOTTOM_in = False
    
14. Global $topWin_in = False
    
15. _winOut($topWin, "out", "top")
    
16. $editWin = GUICtrlCreateEdit("", 0, 0, 200, 235, $ES_READONLY)
    
17. GUICtrlSetBkColor(-1, 0xFFE0E8)
    
18. GUICtrlSetData(-1, "I" & @CRLF &"Love" & @CRLF &"Microduo!!")
    
    
19. GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
    
20. GUICtrlSetColor(-1, 0xff0000)
    
21. Local $sTxt[1] = ["By Bunnie"]
    
22. $byMe = _GUICtrlStatusBar_Create($topWin, 522, $sTxt)
    
23. GUISetState(@SW_SHOWNOACTIVATE, $topWin)
    
24. 
    
25. While $wait
    
26.     $nMsg = GUIGetMsg(1)
    
27.     Select
    
28.         Case $nMsg[0] = -3
    
29.             _Ex()
    
30. 
    
31.         Case _mouseToHovered($topWin, $dll)
    
32.             If Not $topWin_in Then
    
33.                 _winOut($topWin, "in", "top")
    
34.                 $topWin_in = True
    
35.             EndIf
    
36. 
    
37.         Case Else
    
38.             Select
    
39.                 Case $topWin_in
    
40.                     _winOut($topWin, "out", "top")
    
41.                     $topWin_in = False
    
42.             EndSelect
    
43.     EndSelect
    
44. WEnd
    
45. 
    
46. Func _mouseToHovered($hWnd, $vDLL = "User32.dll") ;==>滑鼠碰到就滑出
    
47.     Local $result
    
48.     Local $wPos = WinGetPos($hWnd)
    
49.     Local $mPos = MouseGetPos()
    
50.     Local $rect = DllStructCreate("int Left;int Top;int Right;int Bottom")
    
51.     Local $left = $wPos[0], $top = $wPos[1], $iWidth = $wPos[2], $iHeight = $wPos[3]
    
    
52.     Local $iX = $mPos[0], $iY = $mPos[1]
    
53.     DllStructSetData($rect, "Left", $left)
    
54.     DllStructSetData($rect, "Top", $top)
    
55.     DllStructSetData($rect, "Right", $left + $iWidth)
    
56.     DllStructSetData($rect, "Bottom", $top + $iHeight)
    
57.     $result = DllCall($vDLL, "int", "PtInRect", "ptr", DllStructGetPtr($rect), "int", $iX, "int", $iY)
    
58.     If @error Then
    
59.         Return SetError(@error, 0, False)
    
60.     EndIf
    
61.     Return $result[0] <> 0
    
62. EndFunc
    
63. 
    
64. Func _winOut($hWnd, $mode, $side) ;==>視窗滑出
    
65.     Local $h = 0 - ($side = "left") + ($side = "right"), $v = 0 - ($side = "top") + ($side = "bottom")
    
66.     Local $wPos = WinGetPos($hWnd), $m = 0 - ($mode = "in") + ($mode = "out")
    
67.     Local $screen_Rs = WinGetPos(WinGetHandle("Program Manager"))
    
68. 
    
69.     WinMove($hWnd, "", _
    
70.             $screen_Rs[0] - (($h = -1) * ($m = -1) * ($wPos[2] - 10)) _
    
71.              + (($h = 1) * (($h = 1) * $screen_Rs[2] - (10 * ($m = -1)) - ($m <> -1) * $wPos[2])) _
    
72.              + (($h = 0) * (($h = 0) * ($screen_Rs[2] / 2) - ($wPos[2] / 2))) _
    
73.             , _
    
74.         $screen_Rs[1] - (($v = -1) * ($m = -1) * ($wPos[3] - 10)) _
    
75.              + (($v = 1) * (($v = 1) * $screen_Rs[3] - (10 * ($m = -1)) - ($m <> -1) * $wPos[3])) _
    
    
76.              + (($v = 0) * (($v = 0) * ($screen_Rs[3] / 2) - ($wPos[3] / 2))) _
    
77.             )
    
78.     $wPos = WinGetPos($hWnd)
    
79. 
    
80.     Switch $side
    
81.         Case "top", "bottom"
    
82.             Local $STEP = (((($v = 1) And ($m = 1)) Or (($v = -1) And ($m = -1))) _
    
83.                      - ((($v = -1) And ($m = 1)) Or (($v = 1) And ($m = -1)))) * 10
    
84.             Local $FROM = $wPos[1], $TO = $wPos[1] _
    
85.                      + (((($v = 1) And ($m = 1)) Or (($v = -1) And ($m = -1))) * ($wPos[3])) _
    
86.                      - (((($v = 1) And ($m = -1)) Or (($v = -1) And ($m = 1))) * ($wPos[3])) - $STEP
    
87.             For $i = $wPos[1] To $TO Step $STEP
    
88.                 WinMove($hWnd, "", $wPos[0], $i)
    
89.                 Sleep(10)
    
90.             Next
    
91. 
    
92.         Case "right", "left"
    
93.             Local $STEP = (((($h = 1) And ($m = 1)) Or (($h = -1) And ($m = -1))) _
    
94.                      - ((($h = -1) And ($m = 1)) Or (($h = 1) And ($m = -1)))) * 10
    
95.             Local $FROM = $wPos[0], $TO = $wPos[0] _
    
    
96.                      + (((($h = 1) And ($m = 1)) Or (($h = -1) And ($m = -1))) * ($wPos[2])) _
    
97.                      - (((($h = 1) And ($m = -1)) Or (($h = -1) And ($m = 1))) * ($wPos[2])) - $STEP
    
98.             For $i = $wPos[0] To $TO Step $STEP
    
99.                 WinMove($hWnd, "", $i, $wPos[1])
    
100.                 Sleep(10)
     
101.             Next
     
102.     EndSwitch
     
103. EndFunc
     
104. 
     
105. Func _Ex() ;==>離開
     
106.     DllClose($dll)
     
107.     Exit
     
108. EndFunc

複製代碼

gary8349

原來您也通此道~
真是厲害啊~!!
小弟佩服

bunnie

gary8349 發表於 2013-2-14 09:26
原來您也通此道~
真是厲害啊~!!
小弟佩服

小妹的程式能力還很菜..
還要跟噹噹板主學習呢...

rictirse

bunnie 發表於 2013-2-14 09:51
小妹的程式能力還很菜..
還要跟噹噹板主學習呢...

您太抬舉我了
我都快看不懂你在寫什麼了 Orz

我只會簡單的程式撰寫而已..太複雜的沒辦法xd
這是兩段式的，滑鼠移動過去會先露出一部份
如果滑鼠沒移動走250ms後才會彈出全部視窗
減少錯誤觸發


[code=autoit]#include <GUIConstants.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)

Dim $FormName = "伸縮視窗"
Dim $Float_FormWidth = 130
Dim $Float_FormHeight = 115

$WinForm1 = GUICreate ( "", $Float_FormWidth, $Float_FormHeight, @DeskTopWidth, 20, $WS_POPUP, $WS_EX_TOOLWINDOW)

GUISetOnEvent ( $GUI_EVENT_CLOSE, "_Exit")

GUISetState (@SW_SHOW, $WinForm1)

WinSetOnTop ( $WinForm1, "", 1)

While True
  _GetPos($WinForm1)
  Sleep (50)
WEnd

Func _GetPos($Form)
  $FormPos = WinGetPos($Form)
  $MousePos = MouseGetPos()

  If $MousePos[0] >= (@DeskTopWidth-2) And $MousePos[1] >= $FormPos[1] And ($FormPos[1]+$FormPos[3]) >= $MousePos[1] Then
    Sleep (250)
    If $MousePos[0] >= $FormPos[0] And $MousePos[1] >= $FormPos[1] And ($FormPos[1]+$FormPos[3]) >= $MousePos[1] Then
      WinMove ($Form,"", @DeskTopWidth-$Float_FormWidth-1, 20,Default,Default,2)
    Else
      WinMove ($Form,"", @DeskTopWidth-5, 20,Default,Default,2)
    EndIf
  ElseIf $MousePos[0] < $FormPos[0] Or $MousePos[1] < $FormPos[1] Or ($FormPos[1]+$FormPos[3]) < $MousePos[1] Then
    WinMove ($Form,"", @DeskTopWidth, 20,Default,Default,2)
  EndIf
EndFunc

Func _Exit()
  Exit
EndFunc[/code]

bunnie

rictirse 發表於 2013-2-14 14:22
您太抬舉我了
我都快看不懂你在寫什麼了 Orz

我的技術還很菜,
我很喜歡噹噹的教學,
我很多東西還是必須要向你學習的,
有一次無意間在網上被我發現這個地方,
台灣難得有一個這麼漂亮,
這麼有制度的論壇,
可以讓我好好學習,
這真是我的榮幸,
我真的很開心 :-)
彼此多多交流,
教學相長嘛～

gary8349

rictirse 發表於 2013-2-14 14:22
您太抬舉我了
我都快看不懂你在寫什麼了 Orz

疑 (?
這個好像可以整人耶 (嘿嘿...
謝謝噹噹~!!

rictirse

gary8349 發表於 2013-2-14 20:17
疑 (?
這個好像可以整人耶 (嘿嘿...
謝謝噹噹~!!

整人QQ 怎麼說XDD?

gary8349

rictirse 發表於 2013-2-14 22:19
整人QQ 怎麼說XDD?

哈哈
阿就設計一下
就可以把對電腦不熟的朋友整得團團轉啦~XDDD