_启动窗口.高度 修改失败

qmt601536840

原计划是做一个窗口，类似于企鹅，靠近屏幕边缘就隐藏起来，结果发现，窗口会缩小一瞬间，然后又自动放大，改变尺寸。（并非100%触发，但是80%出现）
一开始是以为调用的频率太高了，又尝试了减缓修改次数。还是会有这种情况出现。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
__启动窗口_位置被改变

' 方法1
鼠标_监视_安装 (&监视)
' 方法2
. ' 如果 (_启动窗口.顶边 ≤ 30)
' _启动窗口.高度 ＝ 30
' 调试输出 (“30”, _启动窗口.顶边)
' _启动窗口.高度 ＝ 500
' 调试输出 (“31”, _启动窗口.顶边)

子程序名	返回值类型	公开	备 注
监视
参数名	类 型	参考	可空	数组	备 注
按键	整数型
状态	整数型
句柄及坐标	整数型

如果真 (按键 ＝ 1 且 状态 ＝ 2)
如果 (_启动窗口.顶边 ≤ 30)
_启动窗口.高度 ＝ 30
调试输出 (“30”, _启动窗口.顶边, 按键, 状态, 句柄及坐标)
_启动窗口.高度 ＝ 500
调试输出 (“31”, _启动窗口.顶边, 按键, 状态, 句柄及坐标)
鼠标_监视_卸载 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 __启动窗口_位置被改变<br /> <br /> ' 方法1<br /> 鼠标_监视_安装 (&监视)<br /> <br /> ' 方法2<br /> .' 如果 (_启动窗口.顶边 ≤ 30)<br />     ' _启动窗口.高度 ＝ 30<br />     ' 调试输出 (“30”, _启动窗口.顶边)<br /> .否则<br />     ' _启动窗口.高度 ＝ 500<br />     ' 调试输出 (“31”, _启动窗口.顶边)<br /> .如果结束<br /> <br /> <br /> .子程序 监视<br /> .参数 按键, 整数型<br /> .参数 状态, 整数型<br /> .参数 句柄及坐标, 整数型<br /> <br /> .如果真 (按键 ＝ 1 且 状态 ＝ 2)<br />     .如果 (_启动窗口.顶边 ≤ 30)<br />         _启动窗口.高度 ＝ 30<br />         调试输出 (“30”, _启动窗口.顶边, 按键, 状态, 句柄及坐标)<br />     .否则<br />         _启动窗口.高度 ＝ 500<br />         调试输出 (“31”, _启动窗口.顶边, 按键, 状态, 句柄及坐标)<br />     .如果结束<br />     鼠标_监视_卸载 ()<br /> .如果真结束

妙转人生

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_位置被改变

如果真 (_启动窗口.顶边 ≤ 30)
_启动窗口.高度 ＝ 30
如果真 (_启动窗口.顶边 ＞ 30)
_启动窗口.高度 ＝ 500
.如果真结束[url=]图片[/url]

子程序名	返回值类型	公开	备 注
__启动窗口_尺寸被改变

如果真 (_启动窗口.顶边 ≤ 30)
_启动窗口.高度 ＝ 30
如果真 (_启动窗口.顶边 ＞ 30)
_启动窗口.高度 ＝ 500

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_位置被改变<br /> <br /> .如果真 (_启动窗口.顶边 ≤ 30)<br />     _启动窗口.高度 ＝ 30<br /> <br /> .如果真结束<br /> .如果真 (_启动窗口.顶边 ＞ 30)<br />     _启动窗口.高度 ＝ 500<br /> <br /> .如果真结束[url=]图片[/url]<br /> <br /> <br /> .子程序 __启动窗口_尺寸被改变<br /> <br /> .如果真 (_启动窗口.顶边 ≤ 30)<br />     _启动窗口.高度 ＝ 30<br /> <br /> .如果真结束<br /> .如果真 (_启动窗口.顶边 ＞ 30)<br />     _启动窗口.高度 ＝ 500

解决方法：在 事件处理子程序  __启动窗口_尺寸被改变  中  重复写入缩放启动窗口的代码。

hongqingfeng

你想写窗口靠边隐藏对吗？

qmt601536840

hongqingfeng 发表于 2025-9-13 17:26
你想写窗口靠边隐藏对吗？

不完全隐藏，留5-10个像素左右