关于窗体收缩
收缩按钮点击无效另外窗体靠边隐藏只能在桌面有效 有没其他代码能提供学习下 请帮忙下#Region#AutoIt3Wrapper_Icon=
#AutoIt3Wrapper_OutFile=
#AutoIt3Wrapper_Res_LegalCopyright=
#EndRegion
#RequireAdmin
#NoTrayIcon
#include <IE.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("MouseCoordMode",0);相对激活窗口的坐标
Opt("WinTitleMatchMode",2);标题的任意子串皆可匹配
Opt("GUICloseOnESC",0);在按下 ESC 时不退出
Opt("CaretCoordMode", 1);设置成绝对坐标
Opt("GUIOnEventMode", 1);启用ONEVENT函数
Opt("GUIResizeMode", 802);控件位置不变
OnAutoItExitRegister("quit")
#Region ### START Koda GUI section ### Form1=
$Form1 = GUICreate("常用工具箱",300, 600, -1,-1,BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS))
$group2=GUICtrlCreateGroup("扩展功能",0,300,300,300)
$gdgn=GUICtrlCreateButton("收缩↑",5,270,50,25,0x01)
$tqyb=GUICtrlCreateCheckbox("天气预报",230,270,65,25)
$shousuo = _GUICtrlStatusBar_Create($Form1)
$group1 = GUICtrlCreateGroup("常用功能", 0, 0, 300, 300)
GUISetState(@SW_SHOW)
$XY=ControlGetPos($Form1,"常用工具箱",$group1)
$X0=$XY
$Y0=$XY
$Hide="0"
$mouseON=False
GUIRegisterMsg($WM_SIZE, "WM_SIZE")
GUISetOnEvent($tqyb,"tqyb")
GUISetOnEvent($gui_event_close,"quit")
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form2=
$form2=GUICreate("天气预报",265,200,-1,-1,$WS_POPUP,$WS_EX_TOOLWINDOW)
$oIE = _IECreateEmbedded()
GUICtrlCreateObj($oIE, 0, 0, 265, 200)
_IENavigate($oIE,"http://www.soso.com/tb.q")
GUICtrlSetOnEvent($tqyb,"tqyb")
GUISetState(@SW_DISABLE,$form2)
AdlibRegister("_Resize_and_Other",50)
#EndRegion ### END Koda GUI section ###
While 1
$nmsg=GUIGetMsg()
Switch $nmsg
Case $gdgn
If GUICtrlRead($gdgn)="收缩↑" Then
WinMove($Form1,"",Default,Default,Default,300)
GUICtrlSetData($gdgn,"更多↓")
ElseIf GUICtrlRead($gdgn)="更多↓" Then
WinMove($Form1,"",Default,Default,Default,600)
GUICtrlSetData($gdgn,"收缩↑")
EndIf
EndSwitch
WEnd
While 2
Sleep (100)
WEnd
Func WM_SIZE($hWnd, $Msg, $wParam, $lParam)
_GUICtrlStatusBar_Resize($shousuo)
Return $GUI_RUNDEFMSG
EndFunc
Func tqyb()
Local $Form1Pos=WinGetPos($Form1)
If GUICtrlRead($tqyb)=$GUI_CHECKED Then
WinMove($form2,"天气预报",$Form1Pos+$Form1Pos,$Form1Pos)
GUISetState(@SW_SHOW,$form2)
Else
GUISetState(@SW_HIDE,$form2)
EndIf
EndFunc
Func _Resize_and_Other()
_MouseOutGui_and_WriteFile()
Local $Xmax=@DesktopWidth
Local $XY=ControlGetPos($Form1,"",$group1)
Local $Wxy=WinGetPos($Form1)
Local $K=$Wxy/500
Local $Iy=500
Local $Ix=Int($Wxy/$K)
Local $Xn
if $XY<>$X0 Or $XY<>$Y0 Then
$X0=$XY
$Y0=$XY
ControlMove($Form1,"",$group1,0,0,$X0,$Y0)
EndIf
If $Wxy<=20 And $Hide="0" And $mouseON=False Then
For $i=1 To $Ix
If $Wxy<0 Then
$Xn=$Wxy-Int($Wxy/$Ix*$I)
Else
$Xn=0-Int($Wxy/$Ix*$I)
EndIf
WinMove($Form1,"",$Xn,$Wxy)
If $Xn<=-$Wxy Then ExitLoop
Next
$Hide="LEFT"
WinSetOnTop($Form1,"",1)
EndIf
If $Xmax-($Wxy+$Wxy)<=20 And $Hide="0" And $mouseON=False Then
For $i=1 To $Ix
If $Xmax-($Wxy+$Wxy)<=0 Then
$Xn=$Wxy+Int($Wxy/$Ix*$I)
Else
$Xn=$Xmax-$Wxy+Int($Wxy/$Ix*$I)
EndIf
WinMove($Form1,"",$Xn,$Wxy)
If $Xn>=$Xmax+1 Then ExitLoop
Next
$Hide="RIGHT"
WinSetOnTop($Form1,"",1)
EndIf
If $Wxy<=20 And $Hide="0" And $mouseON=False Then
For $i=1 To $Iy
If $Wxy>0 Then
$Xn=0-Int($Wxy/$Iy*$I)
Else
$Xn=$Wxy-Int($Wxy/$Iy*$I)
EndIf
WinMove($Form1,"",$Wxy,$Xn)
If $Xn+$Wxy<=0 then ExitLoop
Next
$Hide="UP"
WinSetOnTop($Form1,"",1)
EndIf
Local $MouseXY=MouseGetPos()
If $MouseXY<$Wxy+$Wxy And $MouseXY>$Wxy And $MouseXY=0 And $Hide="LEFT" Then
For $i=1 To $Ix
Local $Xn=int($Wxy/$Ix*$I)-$Wxy
WinMove($Form1,"",$Xn,$Wxy)
Next
$Hide="0"
WinSetOnTop($Form1,"",0)
EndIf
If $MouseXY<$Wxy+$Wxy And $MouseXY>$Wxy And $MouseXY=$Xmax-1 And $Hide="RIGHT" Then
For $i=1 To $Ix
Local $Xn=$Xmax-int($Wxy/$Ix*$I)
WinMove($Form1,"",$Xn,$Wxy)
Next
$Hide="0"
WinSetOnTop($Form1,"",0)
EndIf
If $MouseXY<$Wxy+$Wxy And $MouseXY>$Wxy And $MouseXY=0 And $Hide="UP" Then
For $i=1 To $Iy
Local $Xn=-$Wxy+int($Wxy/$Iy*$I)
WinMove($Form1,"",$Wxy,$Xn)
Next
$Hide="0"
WinSetOnTop($Form1,"",0)
EndIf
EndFunc
Func _MouseOutGui_and_WriteFile()
Local $Wxy=WinGetPos($Form1)
Local $MouseXY=MouseGetPos()
If $MouseXY<=$Wxy+$Wxy And $MouseXY>=$Wxy And $MouseXY<=$Wxy+$Wxy And $MouseXY>=$Wxy Then
$mouseON=True
Else
$mouseON=False
EndIf
EndFunc
Func quit()
Exit
EndFunc http://www.autoitx.com/forum.php?mod=viewthread&tid=13262&highlight=png 搜索窗口自动停靠
页:
[1]