找回密码
 加入
搜索
查看: 2557|回复: 3

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

[复制链接]
发表于 2008-6-12 15:06:56 | 显示全部楼层 |阅读模式
一个窗体上有radio1,radio2,Progress1和一个button1控件

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

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

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

这个怎么做到

[ 本帖最后由 leewger 于 2008-6-14 10:52 编辑 ]
发表于 2008-6-13 00:45:10 | 显示全部楼层
我只能用系统消息来完成。希望能有更多方法.
[au3]#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[/au3]
 楼主| 发表于 2008-6-14 10:52:20 | 显示全部楼层
知道怎么用了,谢谢
发表于 2008-6-16 03:54:10 | 显示全部楼层
Case $Msg = $GUI_EVENT_PRIMARYDOWN
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-3-29 23:50 , Processed in 0.071522 second(s), 19 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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