|
本帖最后由 2012qnmd 于 2013-7-10 07:18 编辑
下面代码出现问题: 颜色,前面提到了.
关键是: 执行后, 点"START " 会弹出一个菜单,这个没问题. 而
再点,应该收起菜单(原来版本一直是) .
现在新版,再点,只使"START"为当前状态, 需要再点一次,才能收起.
----------代码--------
ENVI &&bStart=0
_SUB WinMenu, L80T1W300H55
ENVI @this.bkcolor=0x4B0091
ITEM ITEM0,L10T2W50H30,Start, CALL OnStart //,%SystemRoot%\icon\1.ico
ENVI @ITEM0.bkcolor=0xDDB822
ENVI @WinMenu.MSG=%&WM_LBUTTONDOWN%:TEAM ENVI &bStart=0| KILL \start
_END
_SUB OnStart
ENVI &&s=%&bStart%
FIND $0=%&s%, TEAM ENVI &bStart=1| call @*start
FIND $1=%&s%, TEAM ENVI &bStart=0| KILL \start
_END
_SUB start, L80T56W200H200%,start
ENVI @this.bkcolor=0x006000
ENVI @start.MSG=%&WM_LBUTTONDOWN%:TEAM ENVI &bStart=0| KILL \
ITEM ITEM20,L10T10W110H30,开启explorer, TEAM ENVI &bStart=0| KILL @start| call kdesk ,,4
ENVI @ITEM20.bkcolor=0xC43CA9
_END
CALL WinMenu
|
|