问个菜单的问题

xpban2006

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

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

liongodmien

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

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

xpban2006

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

liongodmien

原帖由 xpban2006 于 2008-10-3 20:34 发表
选择菜单退出选项了，还要等sleep完，用什么办法结束sleep好呢？

直接把那条ＳＬＥＥＰ删除！