xpban2006 发表于 2008-10-3 16:43:04

问个菜单的问题

while 1
Opt("TrayMenuMode",1)    ; 默认菜单项目 (脚本暂停/退出) will not be shown.

TrayCreateItem("")
$aboutitem      = TrayCreateItem("关于")
TrayCreateItem("")
$exititem       = TrayCreateItem("退出")

TraySetState()
$begin = 1
While 1
    $msg = TrayGetMsg()
        $begin = $begin+1   
        if $begin=1000 then
                ExitLoop
        EndIf
    Select
      Case $msg = 0
            ContinueLoop
      Case $msg = $aboutitem
            Msgbox(64,"关于:",$begin)
      Case $msg = $exititem
            ExitLoop       
         
    EndSelect       
                               
WEnd

WEND

如果循环就会造成菜单的叠加，不知菜单循环一次怎么清除呢?谢谢

xpban2006 发表于 2008-10-3 16:59:25

再就是脚本在运行中的时候能不能选择菜单呢?感觉菜单必须点击后，才能继续后面的语句

liongodmien 发表于 2008-10-3 17:33:00


while 1
Opt("TrayMenuMode",1)    ; 默认菜单项目 (脚本暂停/退出) will not be shown.

$1 = TrayCreateItem("")
$aboutitem = TrayCreateItem("关于")
$2 = TrayCreateItem("")
$exititem = TrayCreateItem("退出")

TraySetState()
$begin = 1
While 1
    $msg = TrayGetMsg()
      $begin = $begin+1   
      if $begin=1000 then
                ExitLoop
      EndIf
    Select
      Case $msg = 0
            ContinueLoop
      Case $msg = $aboutitem
            Msgbox(64,"关于:",$begin)
      Case $msg = $exititem
            Exit      
         
    EndSelect      
                              
WEnd
TrayItemDelete($aboutitem)
TrayItemDelete($exititem)
TrayItemDelete($1)
TrayItemDelete($2)
WEND

xpban2006 发表于 2008-10-3 18:26:03

谢谢大哥好用，不过我的脚本最后有个sleep(1500)
sleep(1500)
wend
我选择退出，还要等sleep(1500)后才能退出，这是怎么回事呢？

xpban2006 发表于 2008-10-3 20:34:04

:face (32): 选择菜单退出选项了，还要等sleep完，用什么办法结束sleep好呢？

liongodmien 发表于 2008-10-3 21:39:32

原帖由 xpban2006 于 2008-10-3 20:34 发表 http://www.autoitx.com/images/common/back.gif
:face (32): 选择菜单退出选项了，还要等sleep完，用什么办法结束sleep好呢？

直接把那条ＳＬＥＥＰ删除！
页: [1]
查看完整版本: 问个菜单的问题