Skrip 1 Posted June 11, 2006 (edited) #include <GuiConstants.au3> If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000 $size1 = 392 $size2 = 316 $i = 1 GuiCreate("MyGUI", $size1, $size2, (@DesktopWidth-392)/2, (@DesktopHeight-316)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) $Button_1 = GuiCtrlCreateButton("Resize", 150, 120, 90, 50) GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Button_1 Do WinMove("MyGUI", "", (@DesktopWidth-392)/2, (@DesktopHeight-316)/2, $size1 + 1, $size2 + 1) $i = $i + 1 Until $i = 20 EndSelect WEnd Exit It is supposed to slowly get bigger, but stay in the same place. Edited June 11, 2006 by Firestorm [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left] Share this post Link to post Share on other sites
SmOke_N 210 Posted June 11, 2006 #include <GuiConstants.au3> If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000 $size1 = 392 $size2 = 316 $i = 1 GuiCreate("MyGUI", $size1, $size2, (@DesktopWidth-392)/2, (@DesktopHeight-316)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) $Button_1 = GuiCtrlCreateButton("Resize", 150, 120, 90, 50) GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Button_1 Do WinMove("MyGUI", "", (@DesktopWidth-392)/2, (@DesktopHeight-316)/2, $size1 + 1, $size2 + 1) $i = $i + 1 Until $i = 20 EndSelect WEnd Exit It is supposed to slowly get bigger, but stay in the same place.Remove this line: If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000 SciTe will tell you the error. Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer. Share this post Link to post Share on other sites
Skrip 1 Posted June 11, 2006 It works, thanks. But the function for button1 deosn't work, it is supposed to make it slowly get bigger. [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left] Share this post Link to post Share on other sites
SmOke_N 210 Posted June 11, 2006 Not an exact fix... but just changed your code a tad#include <GuiConstants.au3> Local $size1 = 392, $size2 = 316, $i = 1 $MyGui = GuiCreate("MyGUI", $size1, $size2, (@DesktopWidth-392)/2, (@DesktopHeight-316)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) $Button_1 = GuiCtrlCreateButton("Resize", 150, 120, 90, 50) GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Button_1 Do WinMove($MyGui, "", (@DesktopWidth-392)/2, (@DesktopHeight-316)/2, $size1 + $i, $size2 + $i) Sleep(50) $i = $i + 1 Until $i = 20 $size1 = $size1 + $i $size2 = $size2 + $i $i = 1 EndSelect WEnd Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer. Share this post Link to post Share on other sites
Xenobiologist 47 Posted June 11, 2006 Hi, works as you did it for me. #include <GuiConstants.au3> ;If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000 $size1 = 392 $size2 = 316 $i = 1 GuiCreate("MyGUI", $size1, $size2, (@DesktopWidth-392)/2, (@DesktopHeight-316)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) $Button_1 = GuiCtrlCreateButton("Resize", 150, 120, 90, 50) GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Button_1 Do WinMove("MyGUI", "", (@DesktopWidth-392)/2, (@DesktopHeight-316)/2, $size1 + 150, $size2 + 150) $i = $i + 1 ConsoleWrite($i) Until $i = 20 $i=0 EndSelect WEnd Exit So long, Mega Scripts & functions Organize Includes Let Scite organize the include files Yahtzee The game "Yahtzee" (Kniffel, DiceLion) LoginWrapper Secure scripts by adding a query (authentication) _RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...) Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc. MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times Share this post Link to post Share on other sites
Skrip 1 Posted June 11, 2006 Not an exact fix... but just changed your code a tad#include <GuiConstants.au3> Local $size1 = 392, $size2 = 316, $i = 1 $MyGui = GuiCreate("MyGUI", $size1, $size2, (@DesktopWidth-392)/2, (@DesktopHeight-316)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) $Button_1 = GuiCtrlCreateButton("Resize", 150, 120, 90, 50) GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Button_1 Do WinMove($MyGui, "", (@DesktopWidth-392)/2, (@DesktopHeight-316)/2, $size1 + $i, $size2 + $i) Sleep(50) $i = $i + 1 Until $i = 20 $size1 = $size1 + $i $size2 = $size2 + $i $i = 1 EndSelect WEndThanks, that's what I wanted! [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left] Share this post Link to post Share on other sites