展开跟收缩有示例吗

你是我的眼哦

假如收缩回来是个小小的正方形，点击展开就是一个正常的程序

熬夜

11111.e (2.82 KB, 下载次数: 9)

2025-8-20 23:13 上传

点击文件名下载附件

yuzhong

收缩扩展窗口尺寸

走一回

直接用  窗口的长和宽就行了。

qcby

加一个控件 点击事件里面写 个判断 当窗口宽度高度=xxxx 就将高宽度=xxx 否则缩回xxx

cunanhai

弄成迅雷那样的不就可以了

frankiy

用线程方式调用。

  

子程序名	返回值类型	公开	备 注
窗口显示隐藏控制_其他窗口

变量名	类 型	静态	数组	备 注
Hwnd	整数型
坐标1	精易_坐标
高度1	整数型
延时显示	整数型

_启动窗口.高度 ＝ 1
_启动窗口.宽度 ＝ 1
_启动窗口.可视 ＝ 假
其他窗口1.顶边 ＝ 0
其他窗口1.左边 ＝ 0
Hwnd ＝ 其他窗口1.取窗口句柄 ()
判断循环首 (窗口_句柄是否有效 (Hwnd))
坐标1 ＝ 鼠标_取窗口坐标 (Hwnd)
如果真 (其他窗口1.高度 ＝ 24)
如果真 (禁止界面调整 ＝ 假)
如果真 (坐标1.纵 ≤ 24 且 坐标1.横 ＜ 80)
其他窗口1.高度 ＝ 312
其他窗口1.宽度 ＝ 690
其他窗口1.主按钮.可视 ＝ 假



如果真 (其他窗口1.高度 ＝ 312)
如果真 (坐标1.纵 ＞ 312 或 坐标1.横 ＞ 690)
其他窗口1.高度 ＝ 24
其他窗口1.宽度 ＝ 80
其他窗口1.主按钮.可视 ＝ 真


程序_延时 (100)
判断循环尾 ()

.版本 2<br /> <br /> .子程序 窗口显示隐藏控制_其他窗口<br /> .局部变量 Hwnd, 整数型<br /> .局部变量 坐标1, 精易_坐标<br /> .局部变量 高度1, 整数型<br /> .局部变量 延时显示, 整数型<br /> <br /> <br /> <br /> _启动窗口.高度 ＝ 1<br /> _启动窗口.宽度 ＝ 1<br /> _启动窗口.可视 ＝ 假<br /> <br /> 其他窗口1.顶边 ＝ 0<br /> 其他窗口1.左边 ＝ 0<br /> <br /> Hwnd ＝ 其他窗口1.取窗口句柄 ()<br /> <br /> .判断循环首 (窗口_句柄是否有效 (Hwnd))<br />     坐标1 ＝ 鼠标_取窗口坐标 (Hwnd)<br /> <br /> <br />     .如果真 (其他窗口1.高度 ＝ 24)<br />         .如果真 (禁止界面调整 ＝ 假)<br />             .如果真 (坐标1.纵 ≤ 24 且 坐标1.横 ＜ 80)<br />                 其他窗口1.高度 ＝ 312<br />                 其他窗口1.宽度 ＝ 690<br />                 其他窗口1.主按钮.可视 ＝ 假<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br /> <br />     .如果真 (其他窗口1.高度 ＝ 312)<br />         .如果真 (坐标1.纵 ＞ 312 或 坐标1.横 ＞ 690)<br />             其他窗口1.高度 ＝ 24<br />             其他窗口1.宽度 ＝ 80<br />             其他窗口1.主按钮.可视 ＝ 真<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> <br />     程序_延时 (100)<br /> .判断循环尾 ()