以下是引用西狐888在2023-2-8 18:53:15的发言:
**主程序
oHandler=NEWOBJECT("MyHook")
BINDEVENT(_SCREEN,"Resize",oHandler,"Resize") &&绑定主窗口的Resize事件到oHandler对象的Resize事件
........
主程序结束
DEFINE CLASS MyHook AS Custom
PROCEDURE Resize &&随窗口大小调整Label1(Internet链接)的位置和背景图片大小
**在这里写screen resize 的代码
ENDPROC
ENDDEFINE
谢谢!完美解决。侧边菜单 form 的高度随主窗口高度改变。
DEFINE CLASS MyHook AS Custom
PROCEDURE Resize
&&随窗口大小调整Label1(Internet链接)的位置和背景图片大小
**在这里写screen resize 的代码
form_menu.Height = _screen.Height
ENDPROC
ENDDEFINE
************
但是
囫囵吞枣。没有真的理解,但看来其他“事件”如click 等应该也如此吧