本帖最后由 mdyblog 于 2022-9-12 16:41 编辑
开3个TIPS对比下试试:
------------------
IFEX %&CurFile%.LOG, LOGS --2 * %&CurFile%.LOG
TEAM ENVI^ ENVIMODE=1| ENVI^ FORCELOCAL=1
ENVI &::WM_TRAYNOTIFY=1109
SET ::WM_LBUTTONDOWN =0x0201
SET ::WM_RBUTTONDOWN =0x0204
CALL $--ret:&DPIA user32.dll,SetProcessDPIAware //设置dpi感知模式
SCRN -desk W,H,,,,dpiX,dpiY,scaleX,scaleY
WIN1
_SUB WIN1,#,,SET bRun=0,,,,-scale:%scaleX%
SET &WID0=%&__WinID%
SET &WID2=%&__WinID%
SET &WID3=%&__WinID%
TIPS* TT,11\n22\n33,5000,1,<ico><size:512><color:0xFFFFFF><font:385:微软雅黑**###>0
ENVI @this.MSG=_%&::WM_TRAYNOTIFY%::&&wp,&&lp,托盘图标 %&wp% %&lp%
ENVI @this.MSG=_%&WM_TaskbarRestart%::&&wp,&&lp,TEAM TIPS*|CS
TIME Timer1,1000, IFEX #%&bRun%=1,CS
SET#$ &V0=*4096 31 0
TIME -t:1 T2,0, CALL @*WS
TIME -t:1 T3,0, CALL @*WS2
SET &bRun=1
SET &A=1
SET &ID=1
_END
_SUB WS,#,,SET bRun=0,,,,-scale:%scaleX%
SET WID2=%&__WinID%
TIPS* ST,S1\nS2\nS3,5000,1,#1
ENVI @this.MSG=_%&::WM_TRAYNOTIFY%::&&wp,&&lp,托盘图标 %&wp% %&lp%
ENVI @this.MSG=_%&WM_TaskbarRestart%::&&wp,&&lp,TEAM TIPS*|SS
TIME Timer1,1000,IFEX #%&bRun%=1,SS
SET &A=1
SET &ID=2
_END
_SUB SS
CALC #&A=%&A% % 2 + 1
TIPS* ST,S1\n%&A%,5000,1,#%&A%
_END
_SUB WS2,#,,SET bRun=0,,,,-scale:%scaleX%
SET WID3=%&__WinID%
TIPS* TT,11\n22\n33,5000,1,<ico><size:512><color:0xFFFFFF><font:385:微软雅黑**###>0
ENVI @this.MSG=_%&::WM_TRAYNOTIFY%::&&wp,&&lp,托盘图标 %&wp% %&lp%
ENVI @this.MSG=_%&WM_TaskbarRestart%::&&wp,&&lp,TEAM TIPS*|SS2
TIME Timer1,1000,IFEX #%&bRun%=1,SS2
SET &A=1
SET &ID=3
_END
_SUB SS2
CALC #&A=%&A% % 9 + 1
TIPS* TT,11\n%&I%,5000,1,<ico><size:512><color:0xFFFFFF><font:385:微软雅黑**###>%A%
_END
_SUB CS
DATE A s
TIPS* TT,11\n%A%,5000,1,<ico><size:512><color:0xFFFFFF><font:385:微软雅黑**###>%A%
_END
_SUB 托盘图标
IFEX $%&::WM_LBUTTONDOWN%=%2,WIN2
IFEX $%&::WM_RBUTTONDOWN%=%2,CALL @--popmenu WIN3
_END
_SUB WIN2,W595H594,新窗口[%&ID%][%&A%],,,,,-scale:%scaleX%
ENVI @this.bkcolor=0x000000
ENVI @WIN2.MSG=0x001C:KILL \
IMAG Image1,L1T1W512H512,<img><size:512><color:0xFF><font:385:Segoe Fluent Icons**###0>\uE701
IMAG Image1,L350T256W256H256,<img><size:256><color:0xFFFFFF><font:185:Segoe Fluent Icons**###0>\uE72E
_END
_SUB WIN3
MENU 菜单,退出测试,TEAM TIPS*|KILL @@%&WID0%| KILL @@%&WID2%| KILL @@%&WID3% //*%&__PID%
_END
|