通用对话框过滤器使用设置位置和大小

.子程序 设置通用对话框, , 公开,
.参数 对话框标题, 文本型, , 注意这里是通用打开框打开后的标题，不是通用对话框组件的名称。如果没有设置请输入：“”
.参数 左边位置, 整数型, 可空,, 要设置的左边位置，可空。
.参数 顶边位置, 整数型, 可空,, 要设置的顶边位置，可空。
.参数 新宽度, 整数型, 可空,, 要设置的宽度，可空。
.参数 新高度, 整数型, 可空,, 要设置的高度，可空。

.子程序 窗口_置位置和大小, 逻辑型, , 修改窗口的位置和大小
.参数 窗口句柄, 整数型, , 欲改变位置和大小的窗口句柄
.参数 左边位置, 整数型, 可空, 窗口新的顶边位置，留空不变；
.参数 顶边位置, 整数型, 可空, 窗口新的左边位置，留空不变；
.参数 新宽度, 整数型, 可空, 窗口的新宽度，留空不变；
.参数 新高度, 整数型, 可空, 窗口的新高度，留空不变；
.局部变量 位置大小, RECT

GetWindowRect (窗口句柄, 位置大小)
.如果真 (是否为空 (左边位置))
左边位置 ＝ 位置大小.Left
.如果真结束
.如果真 (是否为空 (顶边位置))
顶边位置 ＝ 位置大小.Top
.如果真结束
.如果真 (是否为空 (新宽度))
新宽度 ＝ 位置大小.Right － 位置大小.Left
.如果真结束
.如果真 (是否为空 (新高度))
新高度 ＝ 位置大小.Bottom － 位置大小.Top
.如果真结束
返回 (MoveWindow (窗口句柄, 左边位置, 顶边位置, 新宽度, 新高度, 1) ≠ 0)