如何从循环中跳出？

pdp320921

回复 11# happytc

BitAND($wParam, 0xFFF0)

又是什么用意？
中断函数还是很模糊，AU3帮助是英文都看不懂的，汗

lixiaolong

回复 1# pdp320921

另一种方法

#include <GUIConstantsEx.au3>

$main = GUICreate("main", 600, 400, -1, -1)
$text = GUICtrlCreateLabel("hello,world", 0, 200)
GUISetState(@SW_SHOW) ;

AdlibRegister("close", 10)

;~ While 1
        For $i = 0 To 600 Step 20
                Sleep(500)
                ControlMove($main, "", 3, $i, 200)
        Next
;~ WEnd

Func close()
        If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit
EndFunc   ;==>close

lixiaolong

跳出循环有很多方法

#include <GUIConstantsEx.au3>

$main = GUICreate("main", 600, 400, -1, -1)
$text = GUICtrlCreateLabel("hello,world", 0, 200)
GUISetState(@SW_SHOW) ;

Global $a = 1

AdlibRegister("close", 10)

While 1
        For $i = 0 To 600 Step 20
                Sleep(500)
                ControlMove($main, "", 3, $i, 200)
                If Not $a Then ExitLoop
        Next
        If Not $a Then ExitLoop
WEnd

Func close()
        If GUIGetMsg() = $GUI_EVENT_CLOSE Then $a = 0
EndFunc   ;==>close

happytc

回复 16# pdp320921


    在WM_SYSCOMMAND消息中，wParam参数的低四位（four low-order bits）是被系统使用的，所以应用程序就必须把wParam值与0xFFF0按位运算后才能正确使用。

pdp320921

回复 19# happytc

    #include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <Misc.au3>
  Opt("GUIOnEventMode", 1)
        $main=GUICreate("My GUI",600,400,-1,-1) ; 创建一个居中显示的 GUI 窗口
        ;GUISetOnEvent($GUI_EVENT_CLOSE, "close")
        ;$Edit1 = GUICtrlCreateEdit("", 600, 00, -1,-1)
        
        $text = GUICtrlCreateLabel("美丽的心情"&@CRLF&@CRLF&"速度激情"&@CRLF&@CRLF&"go go go",250,30,400,600)

        $text2= GUICtrlCreateLabel("公告栏",250,10)
        GUICtrlSetFont(-1, 10, 800, 0, "宋体")
        $button =GUICtrlCreateButton("字体",20,20)
    GUICtrlSetOnEvent(-1,"OKPressed") 
        $button2 =GUICtrlCreateButton("颜色",20,50)
 GUIRegisterMsg($WM_SYSCOMMAND,"WM_SYSCOMMAND") 
    GUISetState(@SW_SHOW) ; 显示一个空白的窗口
        ok()

    ; 运行界面，直到窗口被关闭
    While 1
  $msg = GUIGetMsg()
        
        If $msg = $GUI_EVENT_CLOSE Then ExitLoop
                
        WEnd
Func ok()        
        For $i=30 To 400 Step 5
                $arr = ControlGetPos($main,"",3)
Sleep(500)
                ControlMove("My GUI","",3,250,$i)
                If $arr[1]>=390 Then
                        $i=30
                EndIf
        
                 
        Next
EndFunc        
Func OKPressed()
_ChooseFont("Arial", 8,"","","","",$text)

EndFunc
        

Func WM_SYSCOMMAND($hWndGUI, $MsgID, $WParam, $LParam)
        Local Const $sc_close = 0xF060
        If $hWndGUI = $main Then
        Switch BitAND($WParam,0xFFF0)
                Case $sc_close
                        Exit
                
EndSwitch
EndIf
        Return $GUI_RUNDEFMSG 
EndFunc

试了中断的方法去跳出循环，可是再使用Opt("GUIOnEventMode", 1)这种函数调用，当点击button后，再点击关闭主窗口发现窗口出现延时

huaisha1224

回答的相当精彩、、

天堂九队

菜鸟的我还是稀饭设个热键什么的~

紫色风林

我没搞明白，晕

zfyczyh

我也学习啦!

zfyczyh

原来au3还提供中断函数呀?