GUIGetMsg()重复怎么破?

l4ever

下面是官方的例子
运行之后鼠标狂点  Button1
等下弹出一大堆的msgbox
这是BUG么?
即便是弹出了msgbox,你不管他,接着点 Button1 ,然后你得关闭一大堆msgbox

后来试了试换个思路,用 GUICtrlSetOnEvent
还是官方的例子,居然还是酱紫.
autoit 版本:3.3.9.21

大家麻烦试试是不是这样的?

1. #include <GUIConstantsEx.au3>
   
2. 
   
3. Example()
   
4. 
   
5. ;-------------------------------------------------------------------------------------
   
6. ; Example - Press the button to see the value of the radio boxes
   
7. ; The script also detects state changes (closed/minimized/timeouts, etc).
   
8. Func Example()
   
9.         Local $button_1, $radio_1, $radio_3
   
10.         Local $radioval1, $msg
    
11. 
    
12.         Opt("GUICoordMode", 1)
    
13.         GUICreate("Radio Box Demo", 400, 280)
    
14. 
    
15.         ; Create the controls
    
16.         $button_1 = GUICtrlCreateButton("B&utton 1", 30, 20, 120, 40)
    
17.         GUICtrlCreateGroup("Group 1", 30, 90, 165, 160)
    
18.         GUIStartGroup()
    
19.         $radio_1 = GUICtrlCreateRadio("Radio &0", 50, 120, 70, 20)
    
20.         GUICtrlCreateRadio("Radio &1", 50, 150, 60, 20)
    
21.         $radio_3 = GUICtrlCreateRadio("Radio &2", 50, 180, 60, 20)
    
22. 
    
23.         ; Init our vars that we will use to keep track of GUI events
    
24.         $radioval1 = 0 ; We will assume 0 = first radio button selected, 2 = last button
    
25. 
    
26.         ; Show the GUI
    
27.         GUISetState()
    
28. 
    
29.         ; In this message loop we use variables to keep track of changes to the radios, another
    
30.         ; way would be to use GUICtrlRead() at the end to read in the state of each control
    
31.         While 1
    
32.                 $msg = GUIGetMsg()
    
33.                 Select
    
34.                         Case $msg = $GUI_EVENT_CLOSE
    
35.                                 MsgBox(4096, "", "Dialog was closed")
    
36.                                 Exit
    
37.                         Case $msg = $GUI_EVENT_MINIMIZE
    
38.                                 MsgBox(4096, "", "Dialog minimized", 2)
    
39.                         Case $msg = $GUI_EVENT_MAXIMIZE
    
40.                                 MsgBox(4096, "", "Dialog restored", 2)
    
41. 
    
42.                         Case $msg = $button_1 and $msg <> ""
    
43.                                 $msg = ""
    
44.                                 MsgBox(4096, "Default button clicked", "Radio " & $radioval1)
    
45. 
    
46.                         Case $msg >= $radio_1 And $msg <= $radio_3
    
47.                                 $radioval1 = $msg - $radio_1
    
48. 
    
49.                 EndSelect
    
50.                 sleep(100)
    
51.         WEnd
    
52. EndFunc   ;==>Example
    

复制代码

shqf

程序设计的就是点Button1，就会运行msgbox,弹出一个对话框。
你点Button1 N下，就会弹出N个窗口，只是窗口会一个一个显示出来而已。即关闭前一个后才显示下一个，总之点击事件程序是已经接收到了。
你狂点Button1，还想让程序做什么反应呢？

kk_lee69

回复 1# l4ever

彈出前 要先把 GUI 凍結  那就不會造成 一跳出問題

lxwlxwayy

帮顶

tvzml

你弄过GUI替代 maXBOX不就完事了，msgbox会中断程序，尽量少使用把。

pcbar

#include <GUIConstantsEx.au3>

Example()

;-------------------------------------------------------------------------------------
; Example - Press the button to see the value of the radio boxes
; The script also detects state changes (closed/minimized/timeouts, etc).
Func Example()
        Local $button_1, $radio_1, $radio_3
        Local $radioval1, $msg

        Opt("GUICoordMode", 1)
        GUICreate("Radio Box Demo", 400, 280)

        ; Create the controls
        $button_1 = GUICtrlCreateButton("B&utton 1", 30, 20, 120, 40)
        GUICtrlCreateGroup("Group 1", 30, 90, 165, 160)
        GUIStartGroup()
        $radio_1 = GUICtrlCreateRadio("Radio &0", 50, 120, 70, 20)
        GUICtrlCreateRadio("Radio &1", 50, 150, 60, 20)
        $radio_3 = GUICtrlCreateRadio("Radio &2", 50, 180, 60, 20)

        ; Init our vars that we will use to keep track of GUI events
        $radioval1 = 0 ; We will assume 0 = first radio button selected, 2 = last button

        ; Show the GUI
        GUISetState()

        ; In this message loop we use variables to keep track of changes to the radios, another
        ; way would be to use GUICtrlRead() at the end to read in the state of each control
        While 1
                $msg = GUIGetMsg()
                Select
                        Case $msg = $GUI_EVENT_CLOSE
                                MsgBox(4096, "", "Dialog was closed")
                                Exit
                        Case $msg = $GUI_EVENT_MINIMIZE
                                MsgBox(4096, "", "Dialog minimized", 2)
                        Case $msg = $GUI_EVENT_MAXIMIZE
                                MsgBox(4096, "", "Dialog restored", 2)

                        Case $msg = $button_1
                                GUICtrlSetState($button_1, $gui_disable)
                                MsgBox(4096, "Default button clicked", "Radio " & $radioval1)
                                GUICtrlSetState($button_1, $gui_enable)
                        Case $msg >= $radio_1 And $msg <= $radio_3
                                $radioval1 = $msg - $radio_1

                EndSelect
               
        WEnd
EndFunc   ;==>Example

seniors

这是官方的例子吗？不象啊，
官方例子不会出现sleep(100)
和Case $msg = $button_1 and $msg <> ""
                                $msg = ""
的低级问题的

afan

这是官方的例子吗？不象啊，
官方例子不会出现sleep(100)
和Case $msg = $button_1 and $msg  ""
       ...
seniors 发表于 2014-6-25 19:30

    确实…

haijie1223

这段代码蛋疼得很~

qsy666888

像我这种菜中菜只有看到的份