leewger 发表于 2008-6-12 15:06:56

鼠标在GDI窗体上任何地方点一下,Progress1就停止运行,怎么才能做到

一个窗体上有radio1,radio2,Progress1和一个button1控件

运行后,Progress1可以自动运行,运行结束后执行BUTTON1

我的问题是
鼠标在窗体上任何地方点一下,Progress1立即停止自动运行

键盘的任何一键或者说是空格键,选择radio1,radio2的箭头键,一动作,Progress1也停止运行

这个怎么做到:face (38):

[ 本帖最后由 leewger 于 2008-6-14 10:52 编辑 ]

bing614 发表于 2008-6-13 00:45:10

我只能用系统消息来完成。希望能有更多方法.
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$WM_LBUTTONDOWN=0x0201
$Form1 = GUICreate("Form1", 300, 153, -1,-1,$WS_CLIPSIBLINGS)
GUIRegisterMsg ($WM_LBUTTONDOWN, "WM_LBUTTONDOWN" )
GUIRegisterMsg ($WM_KEYDOWN, "WM_KEYDOWN" )
GUISetState(@SW_SHOW)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
        EndSwitch
WEnd
Func WM_LBUTTONDOWN($hWndGUI, $MsgID, $WParam, $LParam)
        TrayTip("新鼠标事件","产生时间:" &@HOUR&":"&@MIN&":"&@SEC & @CRLF & $hWndGUI & " - " & $MsgID & " - " &$WParam& " - " & $LParam ,10)
        Return 1
EndFunc
Func WM_KEYDOWN($hWndGUI, $MsgID, $WParam, $LParam)
        TrayTip("新键盘事件","产生时间:" &@HOUR&":"&@MIN&":"&@SEC & @CRLF & $hWndGUI & " - " & $MsgID & " - " &$WParam& " - " & $LParam ,10)
        Return 1
EndFunc

leewger 发表于 2008-6-14 10:52:20

知道怎么用了,谢谢

19791111 发表于 2008-6-16 03:54:10

Case $Msg = $GUI_EVENT_PRIMARYDOWN
页: [1]
查看完整版本: 鼠标在GDI窗体上任何地方点一下,Progress1就停止运行,怎么才能做到