|
|
- #code=936T950
- set^ EnviMode=1
- set^ ForceLocal=1
- set wm_traynotify=1109
- set wm_lbuttondown=0x0201
- set wm_rbuttondown=0x0204
- call @WinM
- _sub WinM,W320H280,,,,#-:,,
- set @this.msg=_%wm_traynotify%::wp,lp, call DoMenu %wp% %lp%
- IMAG MyCtr01,L0T0W68H68,#1
-
- tips* test,,,,shell32.dll#94
- _end
- _sub DoMenu
- //怎样点左键显示窗口呢??
- ifex $%wm_lbuttondown%=%2, envi @WinM.Visable=*3 //3最大化 4最小化
- ifex $%wm_rbuttondown%=%2, call @--popmenu MyMenu1
- _end
- _sub MyMenu1
- menu ,Help,Help
- menu -
- menu ,exit,kill \
- _end
复制代码 |
|