请教，_screen的resize代码写哪里。 - 编程论坛

#2

西狐8882023-02-08 18:53

**主程序
oHandler=NEWOBJECT("MyHook")
BINDEVENT(_SCREEN,"Resize",oHandler,"Resize")  &&绑定主窗口的Resize事件到oHandler对象的Resize事件
........
主程序结束

DEFINE CLASS MyHook AS Custom
PROCEDURE Resize   &&随窗口大小调整Label1(Internet链接)的位置和背景图片大小
  **在这里写screen resize 的代码

ENDPROC
ENDDEFINE

#3

sam_jiang2023-02-08 19:33

好像设置一下所有控件的anchor属性就可以了！

#4

hdx602023-02-08 20:51

谢谢，二楼回答应该可以，我试试。
3楼回答应该是背景图

#5

hdx602023-02-09 07:46

以下是引用西狐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 等应该也如此吧