找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 这种效果如何实现,请各位大大指教
123下一页
返回列表 发新帖

[AU3基础] 这种效果如何实现,请各位大大指教

 火... [复制链接]
wsfda
发表于 2011-2-13 12:27:59 | 显示全部楼层
回复 14# ywq111


    同感，希望能更好
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
chenronting
发表于 2011-2-14 11:28:27 | 显示全部楼层
回复 10# ceoguang


    如果按你说的， 拖动时的灰框要怎么表达？
回复

举报

 楼主| 发表于 2011-2-14 13:32:04 | 显示全部楼层
回复 17# chenronting

怎么表达是我的事情，我要问的是【如何达到效果】，请不要为如何使用表达担心
回复

举报

chenronting
发表于 2011-2-14 18:53:28 | 显示全部楼层
回复 18# 专业的门外汉笨


    虽然不想回复， 但我问的不是你~
回复

举报

发表于 2011-2-16 16:32:02 | 显示全部楼层
#include <GUIConstants.au3>
#include <StaticConstants.au3>

$GUI = GUICreate("..Drag Test..")
GUISetBkColor(0x0000ff)
$item1 = GUICtrlCreateButton("         Drag Me", 100, 100, 200, 50)
;~DRAG CONTROLS
Local $LastClick, $SquareResizers[7], $Hover = -1337
$DragOverlay = GUICtrlCreateLabel("", -99, -99, 1, 1, $SS_BLACKFRAME)
$SquareResizers[1] = GUICtrlCreateLabel("", 0, 0, 5, 5)
GUICtrlSetCursor(-1, 12)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1,$GUI_HIDE)
$SquareResizers[2] = GUICtrlCreateLabel("", 0, 0, 5, 5)
GUICtrlSetCursor(-1, 10)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1,$GUI_HIDE)
$SquareResizers[3] = GUICtrlCreateLabel("", 0, 0, 5, 5)
GUICtrlSetCursor(-1, 10)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1,$GUI_HIDE)
$SquareResizers[4] = GUICtrlCreateLabel("", 0, 0, 5, 5)
GUICtrlSetCursor(-1, 12)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1,$GUI_HIDE)
$SquareResizers[5] = GUICtrlCreateLabel("", 0, 0, 5, 5)
GUICtrlSetCursor(-1, 11)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1,$GUI_HIDE)
$SquareResizers[6] = GUICtrlCreateLabel("", 0, 0, 5, 5)
GUICtrlSetCursor(-1, 11)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1,$GUI_HIDE)
GUISetState()

While 1
        Sleep(15)
        $msg = GUIGetMsg()
        Select
                Case $msg = $GUI_EVENT_CLOSE
                        Exit
                Case $msg = $SquareResizers[1]
                        _GUICtrlResizeNE()
                Case $msg = $SquareResizers[2]
                        _GUICtrlResizeNW()
                Case $msg = $SquareResizers[3]
                        _GUICtrlResizeSE()
                Case $msg = $SquareResizers[4]
                        _GUICtrlResizeSW()
                Case $msg = $SquareResizers[5]
                        _GUICtrlResizeN()
                Case $msg = $SquareResizers[6]
                        _GUICtrlResizeS()
        EndSelect
        _GUICtrlDrag($Hover)
        _GUICtrlDragOverlay()
WEnd

Func _GUICtrlDragOverlay()
        $cursor = GUIGetCursorInfo()
        If IsArray($cursor) Then
                If $cursor[4] <> 0 Then
                        If $cursor[4] <> $SquareResizers[1] AND $cursor[4] <> $SquareResizers[2] AND $cursor[4] <> $SquareResizers[3] AND $cursor[4] <> $SquareResizers[4] AND $cursor[4] <> $SquareResizers[5] AND $cursor[4] <> $SquareResizers[6] Then
                                $pos = ControlGetPos($GUI, "", $cursor[4])
                                $pos2 = ControlGetPos($GUI, "", $DragOverlay)
                                If $pos[0] <> $pos2[0]+1 AND $pos[1] <> $pos2[1]+1 AND $pos[2] <> $pos2[2]-2 AND $pos[3] <> $pos2[3]-2 Then
                                        GUICtrlSetPos($DragOverlay, $pos[0]-1, $pos[1]-1, $pos[2]+2, $pos[3]+2)
                                        GUICtrlSetState($DragOverlay, $GUI_SHOW)
                                        GUICtrlSetState($cursor[4], $GUI_DISABLE)
                                        $Hover = $cursor[4]
                                EndIf
                        EndIf
                Else
                        GUICtrlSetState($Hover, $GUI_ENABLE)
                        $Hover = -1337
                        GUICtrlSetPos($DragOverlay, -99, -99, 1, 1)
                EndIf
        EndIf
EndFunc

Func _GUICtrlResizeS()
        GUISetCursor(11)
        GUICtrlSetCursor($LastClick, 10)
        GUICtrlSetState($DragOverlay, $GUI_HIDE)
        $pos = ControlGetPos($GUI, "", $LastClick)
        Do
                Sleep(5)
                $cursor = GUIGetCursorInfo()
                GUICtrlSetPos($LastClick, $pos[0], $pos[1], $pos[2], ($cursor[1]-$pos[1]))
                $pos = ControlGetPos($GUI, "", $LastClick)
                GUICtrlSetPos($SquareResizers[3], $pos[0]-3, $pos[1]+$pos[3])
                GUICtrlSetPos($SquareResizers[4], ($pos[0]+$pos[2])-2, $pos[1]+$pos[3])
                GUICtrlSetPos($SquareResizers[6], (($pos[0]+$pos[2])-($pos[2]/2)), $pos[1]+$pos[3])
        Until $cursor[2] = 0
        GUICtrlSetCursor($LastClick, 2)
        GUISetCursor(2)
EndFunc

Func _GUICtrlResizeN()
        GUISetCursor(11)
        GUICtrlSetCursor($LastClick, 11)
        GUICtrlSetState($DragOverlay, $GUI_HIDE)
        $pos = ControlGetPos($GUI, "", $LastClick)
        Do
                Sleep(5)
                $cursor = GUIGetCursorInfo()
                GUICtrlSetPos($LastClick, $pos[0], $pos[1]-($pos[1]-$cursor[1]), $pos[2], $pos[3]+($pos[1]-$cursor[1]))
                $pos = ControlGetPos($GUI, "", $LastClick)
                GUICtrlSetPos($SquareResizers[1], $pos[0]-2, $pos[1]-5)
                GUICtrlSetPos($SquareResizers[2], ($pos[0]+$pos[2])-2, $pos[1]-5)
                GUICtrlSetPos($SquareResizers[5], (($pos[0]+$pos[2])-($pos[2]/2)), $pos[1]-5)
        Until $cursor[2] = 0
        GUICtrlSetCursor($LastClick, 2)
        GUISetCursor(2)
EndFunc

Func _GUICtrlResizeSE()
        GUISetCursor(10)
        GUICtrlSetCursor($LastClick, 10)
        GUICtrlSetState($DragOverlay, $GUI_HIDE)
        $pos = ControlGetPos($GUI, "", $LastClick)
        Do
                Sleep(5)
                $cursor = GUIGetCursorInfo()
                GUICtrlSetPos($LastClick, $pos[0]-($pos[0]-$cursor[0]), $pos[1], ($pos[0]-$cursor[0])+$pos[2], ($cursor[1]-$pos[1]))
                $pos = ControlGetPos($GUI, "", $LastClick)
                GUICtrlSetPos($SquareResizers[1], $pos[0]-2, $pos[1]-5)
                GUICtrlSetPos($SquareResizers[3], $pos[0]-3, $pos[1]+$pos[3])
                GUICtrlSetPos($SquareResizers[4], ($pos[0]+$pos[2])-2, $pos[1]+$pos[3])
                GUICtrlSetPos($SquareResizers[5], (($pos[0]+$pos[2])-($pos[2]/2)), $pos[1]-5)
                GUICtrlSetPos($SquareResizers[6], (($pos[0]+$pos[2])-($pos[2]/2)), $pos[1]+$pos[3])
        Until $cursor[2] = 0
        GUICtrlSetCursor($LastClick, 2)
        GUISetCursor(2)
EndFunc

Func _GUICtrlResizeNW()
        GUISetCursor(10)
        GUICtrlSetCursor($LastClick, 10)
        GUICtrlSetState($DragOverlay, $GUI_HIDE)
        $pos = ControlGetPos($GUI, "", $LastClick)
        Do
                Sleep(5)
                $cursor = GUIGetCursorInfo()
                GUICtrlSetPos($LastClick, $pos[0], $pos[1]-($pos[1]-$cursor[1]), $cursor[0]-$pos[0], $pos[3]+($pos[1]-$cursor[1]))
                $pos = ControlGetPos($GUI, "", $LastClick)
                GUICtrlSetPos($SquareResizers[1], $pos[0]-2, $pos[1]-5)
                GUICtrlSetPos($SquareResizers[2], ($pos[0]+$pos[2])-2, $pos[1]-5)
                GUICtrlSetPos($SquareResizers[3], $pos[0]-3, $pos[1]+$pos[3])
                GUICtrlSetPos($SquareResizers[4], ($pos[0]+$pos[2])-2, $pos[1]+$pos[3])
                GUICtrlSetPos($SquareResizers[5], (($pos[0]+$pos[2])-($pos[2]/2)), $pos[1]-5)
                GUICtrlSetPos($SquareResizers[6], (($pos[0]+$pos[2])-($pos[2]/2)), $pos[1]+$pos[3])
        Until $cursor[2] = 0
        GUICtrlSetCursor($LastClick, 2)
        GUISetCursor(2)
EndFunc

Func _GUICtrlResizeNE()
        GUISetCursor(12)
        GUICtrlSetCursor($LastClick, 12)
        GUICtrlSetState($DragOverlay, $GUI_HIDE)
        $pos = ControlGetPos($GUI, "", $LastClick)
        $XStayPos = $pos[0]+$pos[2]
        $YStayPos = $pos[1]+$pos[3]
        Do
                Sleep(5)
                $cursor = GUIGetCursorInfo()
                If $cursor[0] > $XStayPos Then $cursor[0] = $XStayPos
                If $cursor[1] > $YStayPos Then $cursor[1] = $YStayPos
                GUICtrlSetPos($LastClick, $cursor[0], $cursor[1], $XStayPos-$cursor[0], $YStayPos-$cursor[1])
                $pos = ControlGetPos($GUI, "", $LastClick)
                GUICtrlSetPos($SquareResizers[1], $pos[0]-2, $pos[1]-5)
                GUICtrlSetPos($SquareResizers[2], ($pos[0]+$pos[2])-2, $pos[1]-5)
                GUICtrlSetPos($SquareResizers[3], $pos[0]-3, $pos[1]+$pos[3])
                GUICtrlSetPos($SquareResizers[5], (($pos[0]+$pos[2])-($pos[2]/2)), $pos[1]-5)
                GUICtrlSetPos($SquareResizers[6], (($pos[0]+$pos[2])-($pos[2]/2)), $pos[1]+$pos[3])
        Until $cursor[2] = 0
        GUICtrlSetCursor($LastClick, 2)
        GUISetCursor(2)
EndFunc

Func _GUICtrlResizeSW()
        GUISetCursor(12)
        GUICtrlSetCursor($LastClick, 12)
        GUICtrlSetState($DragOverlay, $GUI_HIDE)
        $pos = ControlGetPos($GUI, "", $LastClick)
        Do
                Sleep(5)
                $cursor = GUIGetCursorInfo()
                GUICtrlSetPos($LastClick, $pos[0], $pos[1], $cursor[0]-$pos[0], $cursor[1]-$pos[1])
                $pos = ControlGetPos($GUI, "", $LastClick)
                GUICtrlSetPos($SquareResizers[4], ($pos[0]+$pos[2])-2, $pos[1]+$pos[3])
                GUICtrlSetPos($SquareResizers[2], ($pos[0]+$pos[2])-2, $pos[1]-5)
                GUICtrlSetPos($SquareResizers[3], $pos[0]-3, $pos[1]+$pos[3])
                GUICtrlSetPos($SquareResizers[5], (($pos[0]+$pos[2])-($pos[2]/2)), $pos[1]-5)
                GUICtrlSetPos($SquareResizers[6], (($pos[0]+$pos[2])-($pos[2]/2)), $pos[1]+$pos[3])
        Until $cursor[2] = 0
        GUICtrlSetCursor($LastClick, 2)
        GUISetCursor(2)
EndFunc

Func _GUICtrlDrag($Control, $GridScale = 0)
        Select
                Case $msg = $DragOverlay
                        For $i = 0 To UBound($SquareResizers)-1
                                GUICtrlSetState($SquareResizers[$i], $GUI_HIDE)
                        Next
                        GUICtrlSetState($DragOverlay, $GUI_HIDE)
                        GUICtrlSetCursor($Control, 9)
                        $pos = ControlGetPos($GUI, "", $Control)
                        $cursor = GUIGetCursorInfo()
                        $XStayPos = $cursor[0]-$pos[0]
                        $YStayPos = $cursor[1]-$pos[1]
                        Do
                                Sleep(5)
                                $cursor = GUIGetCursorInfo()
                                $sX = $cursor[0]-$XStayPos
                                $sY = $cursor[1]-$YStayPos
                                If $GridScale <> 0 Then
                                        $sX = Round($sX/$GridScale)*$GridScale
                                        $sY = Round($sY/$GridScale)*$GridScale
                                EndIf
                                GUICtrlSetPos($Control, $sX, $sY)
                        Until $cursor[2] = 0
                        GUICtrlSetCursor($Control, 2)
                        GUICtrlSetPos($SquareResizers[1], $sX-3, $sY-5)
                        GUICtrlSetPos($SquareResizers[2], ($sX+$pos[2])-2, $sY-5)
                        GUICtrlSetPos($SquareResizers[3], $sX-3, $sY+$pos[3])
                        GUICtrlSetPos($SquareResizers[4], ($sX+$pos[2])-2, $sY+$pos[3])
                        GUICtrlSetPos($SquareResizers[5], (($sX+$pos[2])-($pos[2]/2)), $sY-5)
                        GUICtrlSetPos($SquareResizers[6], (($sX+$pos[2])-($pos[2]/2)), $sY+$pos[3])
                        For $i = 0 To UBound($SquareResizers)-1
                                GUICtrlSetState($SquareResizers[$i], $GUI_SHOW)
                        Next
                        $pos = ControlGetPos($GUI, "", $cursor[4])
                        GUICtrlSetPos($DragOverlay, $pos[0]-1, $pos[1]-1, $pos[2]+2, $pos[3]+2)
                        GUICtrlSetState($DragOverlay, $GUI_SHOW)
                        $LastClick = $Control
        EndSelect
EndFunc


不知道是不是这种效果
回复

举报

 楼主| 发表于 2011-2-16 17:22:09 | 显示全部楼层
#include
#include
#include <GUIConstants.au3>
#include <StaticConstants.au3>

$GUI = GUICreate("..Drag Test..")
GUISetBkColor(0x0000ff)
$item1 = GUICtrlCreateButton("         Drag Me", 100, 100, 200, 50)
;~DRAG CONTROLS
Local $LastClick, $SquareResizers[7], $Hover = -1337
$DragOverlay = GUICtrlCreateLabel("", -99, -99, 1, 1, $SS_BLACKFRAME)
$SquareResizers[1] = GUICtrlCreateLabel("", 0, 0, 5, 5)
GUICtrlSetCursor(-1, 12)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1,$GUI_HIDE)
$SquareResizers[2] = GUICtrlCreateLabel("", 0, 0, 5, 5)
GUICtrlSetCursor(-1, 10)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1,$GUI_HIDE)
$SquareResizers[3] = GUICtrlCreateLabel("", 0, 0, 5, 5)
GUICtrlSetCursor(-1, 10)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1,$GUI_HIDE)
$SquareResizers[4] = GUICtrlCreateLabel("", 0, 0, 5, 5)
GUICtrlSetCursor(-1, 12)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1,$GUI_HIDE)
$SquareResizers[5] = GUICtrlCreateLabel("", 0, 0, 5, 5)
GUICtrlSetCursor(-1, 11)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1,$GUI_HIDE)
$SquareResizers[6] = GUICtrlCreateLabel("", 0, 0, 5, 5)
GUICtrlSetCursor(-1, 11)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1,$GUI_HIDE)
GUISetState()

While 1
        Sleep(15)
        $msg = GUIGetMsg()
        Select
                Case $msg = $GUI_EVENT_CLOSE
                        Exit
                Case $msg = $SquareResizers[1]
                        _GUICtrlResizeNE()
                Case $msg = $SquareResizers[2]
                        _GUICtrlResizeNW()
                Case $msg = $SquareResizers[3]
                        _GUICtrlResizeSE()
                Case $msg = $SquareResizers[4]
                        _GUICtrlResizeSW()
                Case $msg = $SquareResizers[5]
                        _GUICtrlResizeN()
                Case $msg = $SquareResizers[6]
                        _GUICtrlResizeS()
        EndSelect
        _GUICtrlDrag($Hover)
        _GUICtrlDragOverlay()
WEnd

Func _GUICtrlDragOverlay()
        $cursor = GUIGetCursorInfo()
        If IsArray($cursor) Then
                If $cursor[4] <> 0 Then
                        If $cursor[4] <> $SquareResizers[1] AND $cursor[4] <> $SquareResizers[2] AND $cursor[4] <> $SquareResizers[3] AND $cursor[4] <> $SquareResizers[4] AND $cursor[4] <> $SquareResizers[5] AND $cursor[4] <> $SquareResizers[6] Then
                                $pos = ControlGetPos($GUI, "", $cursor[4])
                                $pos2 = ControlGetPos($GUI, "", $DragOverlay)
                                If $pos[0] <> $pos2[0]+1 AND $pos[1] <> $pos2[1]+1 AND $pos[2] <> $pos2[2]-2 AND $pos[3] <> $pos2[3]-2 Then
                                        GUICtrlSetPos($DragOverlay, $pos[0]-1, $pos[1]-1, $pos[2]+2, $pos[3]+2)
                                        GUICtrlSetState($DragOverlay, $GUI_SHOW)
                                        GUICtrlSetState($cursor[4], $GUI_DISABLE)
                                        $Hover = $cursor[4]
                                EndIf
                        EndIf
                Else
                        GUICtrlSetState($Hover, $GUI_ENABLE)
                        $Hover = -1337
                        GUICtrlSetPos($DragOverlay, -99, -99, 1, 1)
                EndIf
        EndIf
EndFunc

Func _GUICtrlResizeS()
        GUISetCursor(11)
        GUICtrlSetCursor($LastClick, 10)
        GUICtrlSetState($DragOverlay, $GUI_HIDE)
        $pos = ControlGetPos($GUI, "", $LastClick)
        Do
                Sleep(5)
                $cursor = GUIGetCursorInfo()
                GUICtrlSetPos($LastClick, $pos[0], $pos[1], $pos[2], ($cursor[1]-$pos[1]))
                $pos = ControlGetPos($GUI, "", $LastClick)
                GUICtrlSetPos($SquareResizers[3], $pos[0]-3, $pos[1]+$pos[3])
                GUICtrlSetPos($SquareResizers[4], ($pos[0]+$pos[2])-2, $pos[1]+$pos[3])
                GUICtrlSetPos($SquareResizers[6], (($pos[0]+$pos[2])-($pos[2]/2)), $pos[1]+$pos[3])
        Until $cursor[2] = 0 
        GUICtrlSetCursor($LastClick, 2)
        GUISetCursor(2)
EndFunc

Func _GUICtrlResizeN()
        GUISetCursor(11)
        GUICtrlSetCursor($LastClick, 11)
        GUICtrlSetState($DragOverlay, $GUI_HIDE)
        $pos = ControlGetPos($GUI, "", $LastClick)
        Do
                Sleep(5)
                $cursor = GUIGetCursorInfo()
                GUICtrlSetPos($LastClick, $pos[0], $pos[1]-($pos[1]-$cursor[1]), $pos[2], $pos[3]+($pos[1]-$cursor[1]))
                $pos = ControlGetPos($GUI, "", $LastClick)
                GUICtrlSetPos($SquareResizers[1], $pos[0]-2, $pos[1]-5)
                GUICtrlSetPos($SquareResizers[2], ($pos[0]+$pos[2])-2, $pos[1]-5)
                GUICtrlSetPos($SquareResizers[5], (($pos[0]+$pos[2])-($pos[2]/2)), $pos[1]-5)
        Until $cursor[2] = 0 
        GUICtrlSetCursor($LastClick, 2)
        GUISetCursor(2)
EndFunc

Func _GUICtrlResizeSE()
        GUISetCursor(10)
        GUICtrlSetCursor($LastClick, 10)
        GUICtrlSetState($DragOverlay, $GUI_HIDE)
        $pos = ControlGetPos($GUI, "", $LastClick)
        Do
                Sleep(5)
                $cursor = GUIGetCursorInfo()
                GUICtrlSetPos($LastClick, $pos[0]-($pos[0]-$cursor[0]), $pos[1], ($pos[0]-$cursor[0])+$pos[2], ($cursor[1]-$pos[1]))
                $pos = ControlGetPos($GUI, "", $LastClick)
                GUICtrlSetPos($SquareResizers[1], $pos[0]-2, $pos[1]-5)
                GUICtrlSetPos($SquareResizers[3], $pos[0]-3, $pos[1]+$pos[3])
                GUICtrlSetPos($SquareResizers[4], ($pos[0]+$pos[2])-2, $pos[1]+$pos[3])
                GUICtrlSetPos($SquareResizers[5], (($pos[0]+$pos[2])-($pos[2]/2)), $pos[1]-5)
                GUICtrlSetPos($SquareResizers[6], (($pos[0]+$pos[2])-($pos[2]/2)), $pos[1]+$pos[3])
        Until $cursor[2] = 0 
        GUICtrlSetCursor($LastClick, 2)
        GUISetCursor(2)
EndFunc

Func _GUICtrlResizeNW()
        GUISetCursor(10)
        GUICtrlSetCursor($LastClick, 10)
        GUICtrlSetState($DragOverlay, $GUI_HIDE)
        $pos = ControlGetPos($GUI, "", $LastClick)
        Do
                Sleep(5)
                $cursor = GUIGetCursorInfo()
                GUICtrlSetPos($LastClick, $pos[0], $pos[1]-($pos[1]-$cursor[1]), $cursor[0]-$pos[0], $pos[3]+($pos[1]-$cursor[1]))
                $pos = ControlGetPos($GUI, "", $LastClick)
                GUICtrlSetPos($SquareResizers[1], $pos[0]-2, $pos[1]-5)
                GUICtrlSetPos($SquareResizers[2], ($pos[0]+$pos[2])-2, $pos[1]-5)
                GUICtrlSetPos($SquareResizers[3], $pos[0]-3, $pos[1]+$pos[3])
                GUICtrlSetPos($SquareResizers[4], ($pos[0]+$pos[2])-2, $pos[1]+$pos[3])
                GUICtrlSetPos($SquareResizers[5], (($pos[0]+$pos[2])-($pos[2]/2)), $pos[1]-5)
                GUICtrlSetPos($SquareResizers[6], (($pos[0]+$pos[2])-($pos[2]/2)), $pos[1]+$pos[3])
        Until $cursor[2] = 0 
        GUICtrlSetCursor($LastClick, 2)
        GUISetCursor(2)
EndFunc

Func _GUICtrlResizeNE()
        GUISetCursor(12)
        GUICtrlSetCursor($LastClick, 12)
        GUICtrlSetState($DragOverlay, $GUI_HIDE)
        $pos = ControlGetPos($GUI, "", $LastClick)
        $XStayPos = $pos[0]+$pos[2]
        $YStayPos = $pos[1]+$pos[3]
        Do
                Sleep(5)
                $cursor = GUIGetCursorInfo()
                If $cursor[0] > $XStayPos Then $cursor[0] = $XStayPos
                If $cursor[1] > $YStayPos Then $cursor[1] = $YStayPos
                GUICtrlSetPos($LastClick, $cursor[0], $cursor[1], $XStayPos-$cursor[0], $YStayPos-$cursor[1])
                $pos = ControlGetPos($GUI, "", $LastClick)
                GUICtrlSetPos($SquareResizers[1], $pos[0]-2, $pos[1]-5)
                GUICtrlSetPos($SquareResizers[2], ($pos[0]+$pos[2])-2, $pos[1]-5)
                GUICtrlSetPos($SquareResizers[3], $pos[0]-3, $pos[1]+$pos[3])
                GUICtrlSetPos($SquareResizers[5], (($pos[0]+$pos[2])-($pos[2]/2)), $pos[1]-5)
                GUICtrlSetPos($SquareResizers[6], (($pos[0]+$pos[2])-($pos[2]/2)), $pos[1]+$pos[3])
        Until $cursor[2] = 0
        GUICtrlSetCursor($LastClick, 2)
        GUISetCursor(2)
EndFunc

Func _GUICtrlResizeSW()
        GUISetCursor(12)
        GUICtrlSetCursor($LastClick, 12)
        GUICtrlSetState($DragOverlay, $GUI_HIDE)
        $pos = ControlGetPos($GUI, "", $LastClick)
        Do
                Sleep(5)
                $cursor = GUIGetCursorInfo()
                GUICtrlSetPos($LastClick, $pos[0], $pos[1], $cursor[0]-$pos[0], $cursor[1]-$pos[1])
                $pos = ControlGetPos($GUI, "", $LastClick)
                GUICtrlSetPos($SquareResizers[4], ($pos[0]+$pos[2])-2, $pos[1]+$pos[3])
                GUICtrlSetPos($SquareResizers[2], ($pos[0]+$pos[2])-2, $pos[1]-5)
                GUICtrlSetPos($SquareResizers[3], $pos[0]-3, $pos[1]+$pos[3])
                GUICtrlSetPos($SquareResizers[5], (($pos[0]+$pos[2])-($pos[2]/2)), $pos[1]-5)
                GUICtrlSetPos($SquareResizers[6], (($pos[0]+$pos[2])-($pos[2]/2)), $pos[1]+$pos[3])
        Until $cursor[2] = 0
        GUICtrlSetCursor($LastClick, 2)
        GUISetCursor(2)
EndFunc

Func _GUICtrlDrag($Control, $GridScale = 0)
        Select
                Case $msg = $DragOverlay
                        For $i = 0 To UBound($SquareResizers)-1
                                GUICtrlSetState($SquareResizers[$i], $GUI_HIDE)
                        Next
                        GUICtrlSetState($DragOverlay, $GUI_HIDE)
                        GUICtrlSetCursor($Control, 9)
                        $pos = ControlGetPos($GUI, "", $Control)
                        $cursor = GUIGetCursorInfo()
                        $XStayPos = $cursor[0]-$pos[0]
                        $YStayPos = $cursor[1]-$pos[1]
                        Do
                                Sleep(5)
                                $cursor = GUIGetCursorInfo()
                                $sX = $cursor[0]-$XStayPos
                                $sY = $cursor[1]-$YStayPos
                                If $GridScale <> 0 Then
                                        $sX = Round($sX/$GridScale)*$GridScale
                                        $sY = Round($sY/$GridScale)*$GridScale
                                EndIf
                                GUICtrlSetPos($Control, $sX, $sY)
                        Until $cursor[2] = 0
                        GUICtrlSetCursor($Control, 2)
                        GUICtrlSetPos($SquareResizers[1], $sX-3, $sY-5)
                        GUICtrlSetPos($SquareResizers[2], ($sX+$pos[2])-2, $sY-5)
                        GUICtrlSetPos($SquareResizers[3], $sX-3, $sY+$pos[3])
                        GUICtrlSetPos($SquareResizers[4], ($sX+$pos[2])-2, $sY+$pos[3])
                        GUICtrlSetPos($SquareResizers[5], (($sX+$pos[2])-($pos[2]/2)), $sY-5)
                        GUICtrlSetPos($SquareResizers[6], (($sX+$pos[2])-($pos[2]/2)), $sY+$pos[3])
                        For $i = 0 To UBound($SquareResizers)-1
                                GUICtrlSetState($SquareResizers[$i], $GUI_SHOW)
                        Next
                        $pos = ControlGetPos($GUI, "", $cursor[4])
                        GUICtrlSetPos($DragOverlay, $pos[0]-1, $pos[1]-1, $pos[2]+2, $pos[3]+2)
                        GUICtrlSetState($DragOverlay, $GUI_SHOW)
                        $LastClick = $Control
        EndSelect
EndFunc
$GUI = GUICreate("..Drag Test..")
GUISetBkColor(0x0000ff)
$item1 = GUICtr ...
不要叫我帅哥 发表于 2011-2-16 16:32



对对对,神,就是这种效果,没错
回复

举报

hzxymkb
发表于 2011-2-17 10:38:52 | 显示全部楼层
回复 20# 不要叫我帅哥


    哇，那位大神用我的马甲，一发就是精品？
回复

举报

chenronting
发表于 2011-2-17 11:25:21 | 显示全部楼层
20楼 细看还是有差， 而且会闪， 我觉得用AU3 再做一个这样的， 真是NC
回复

举报

 楼主| 发表于 2011-2-17 11:36:42 | 显示全部楼层
20楼 细看还是有差， 而且会闪， 我觉得用AU3 再做一个这样的， 真是NC
chenronting 发表于 2011-2-17 11:25


nc？？？？？,但是人家能弄出来个,您这个不nc的,能弄什么？？？？？？？？
回复

举报

chenronting
发表于 2011-2-17 12:43:19 | 显示全部楼层
回复 24# 专业的门外汉笨


    可能我觉得有KODA就够了吧，不会去想类似的东西。纯个人想法。你这个真是吃力不讨好 。
回复

举报

水木子
发表于 2011-2-17 13:00:51 | 显示全部楼层
本帖最后由 水木子 于 2011-2-17 13:08 编辑

回复 25# chenronting

你这种想法违背了积极、进取、追求、探索、等XXX思想，满足于现状是无法进步的。

有句话是这样说的：“站在巨人的肩上，可以看得更远”，KODA固然是很不错，但肯定也有不尽人意之处，楼主若能通过自己的不懈努力，做出比KODA更方便、更强大的设计工具，这不是很好吗！
即便楼主最终是失败的，但在制作和学习的过程中，相信他也能学到很多新的东西，我相信这才是最重要的。

我个人的观点，祝楼主早日成功。
回复

举报

chenronting
发表于 2011-2-17 14:06:02 | 显示全部楼层
回复 26# 水木子


     只能说我的能力不够吧，没法对KODA有任何改进
回复

举报

nxbigdaddy
发表于 2011-2-17 14:46:51 | 显示全部楼层
真的不知道你写的是什么意思
回复

举报

 楼主| 发表于 2011-2-17 15:05:59 | 显示全部楼层
回复  chenronting

你这种想法违背了积极、进取、追求、探索、等XXX思想，满足于现状是无法进步的。

有句话是这样说的：“站在巨人的肩上，可以看得更远”，KODA固然是很不错，但肯定也有不尽人意之处，楼主若能通过自己的不懈努力，做出比KODA更方便、更强大的设计工具，这不是很好吗！
即便楼主最终是失败的，但在制作和学习的过程中，相信他也能学到很多新的东西，我相信这才是最重要的。

我个人的观点，祝楼主早日成功。
...
水木子 发表于 2011-2-17 13:00




我對於您的這幾句話好感動，我真的是很感動，感激涕零
回复

举报

zcx880517
发表于 2011-2-17 15:15:34 | 显示全部楼层
真不大明白。。
回复

举报

下一页 »
123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-5-8 17:22 , Processed in 0.080613 second(s), 14 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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