微剋多資訊

 找回密碼
 註冊

Login

Login

搜索
回覆 1則 瀏覽 1878篇

[碼源] AutoIt 伸縮視窗實際演練

該用戶從未簽到

發表於 2013-2-10 13:47 | 顯示全部樓層 |閱讀模式
本帖最後由 rictirse 於 2014-12-5 16:39 編輯

一開始GUI會先常駐在右上角
滑鼠移動過去後視窗會彈出
  1. #include <GUIConstants.au3>
  2. #include <WindowsConstants.au3>

  3. Opt("GUIOnEventMode", 1)

  4. Dim $FormName = "伸縮視窗"
  5. Dim $FormWidth = 130
  6. Dim $FormHeight = 115

  7. $WinForm1 = GUICreate ( $FormName, $FormWidth, $FormHeight, @DeskTopWidth-$FormWidth-1, 20, $WS_POPUP, $WS_EX_TOOLWINDOW)

  8. GUISetOnEvent ( $GUI_EVENT_CLOSE, "_Exit")

  9. GUISetState (@SW_SHOW, $WinForm1)
  10. WinSetOnTop ( $WinForm1, "", 1)

  11. While True
  12.   _GetPos()
  13.   Sleep (50)
  14. WEnd

  15. Func _GetPos()
  16.   $FormPos = WinGetPos($WinForm1)
  17.   $MousePos = MouseGetPos()
  18.   If $MousePos[0] >= $FormPos[0] And $MousePos[1] >= $FormPos[1] And ($FormPos[1]+$FormPos[3]) >= $MousePos[1] Then
  19.     WinMove ($WinForm1,"", @DeskTopWidth-$FormWidth-1, 20,Default,Default,2)
  20.   Else
  21.     WinMove ($WinForm1,"", @DeskTopWidth-$FormWidth+125, 20,Default,Default,2)
  22.   EndIf
  23. EndFunc

  24. Func _Exit()
  25.   Exit
  26. EndFunc
複製代碼

該用戶從未簽到

發表於 2013-5-30 16:56 | 顯示全部樓層
這個gui效果不錯!

剛好可以拿來作工具列之類的

不過源碼要慢慢消化就是了
回覆

使用道具 舉報

您需要登入後才可以回帖 登入 | 註冊

本版積分規則

小黑屋|Archiver|微剋多資訊(MicroDuo)

GMT+8, 2016-12-3 03:49

Discuz! X

© 2009-2016 Microduo

快速回覆 返回頂部 返回列表