.版本 2 .子程序 窗口_是否在屏幕内2, 逻辑型, 公开, 判断指定窗口是否在屏幕内，在屏幕内返回真，否则返回假 .参数 窗口句柄, 整数型, , 要判断的窗口句柄 .参数 是否自动校正, 逻辑型, , 如果窗口的左边、顶边小于0或大于屏蔽宽度或高度，将自动校正。 .参数 顶端保留, 整数型, 可空, 留空默认为窗口宽度，如果窗口在屏幕内的尺寸低于此尺寸视为不在屏幕内！ .参数 左边保留, 整数型, 可空, 留空默认为窗口高度，如果窗口在屏幕内的尺寸低于此尺寸视为不在屏幕内！ .局部变量 精易_矩形, 精易_位置和大小 .局部变量 局_成立, 逻辑型 .局部变量 屏幕宽度, 整数型 .局部变量 屏幕高度, 整数型 精易_矩形 ＝ 窗口_取位置和大小 (窗口句柄) 顶端保留 ＝ 选择 (是否为空 (顶端保留), 精易_矩形.高度, 顶端保留) 左边保留 ＝ 选择 (是否为空 (左边保留), 精易_矩形.宽度, 左边保留) .如果真 (精易_矩形.左边 ＜ 0 或 精易_矩形.顶边 ＜ 0) 局_成立 ＝ 真 .如果真结束 系统_取屏幕分辨率 (, , 屏幕宽度, 屏幕高度, ) .如果真 (精易_矩形.左边 ＋ 左边保留 ＞ 屏幕宽度 或 精易_矩形.顶边 ＋ 顶端保留 ＞ 屏幕高度) 局_成立 ＝ 真 .如果真结束 .如果真 (局_成立 且 是否自动校正) .如果真 (精易_矩形.左边 ＜ 0) 窗口_置位置和大小 (窗口句柄, 0, 精易_矩形.顶边, 精易_矩形.宽度, 精易_矩形.高度) .如果真结束 .如果真 (精易_矩形.顶边 ＜ 0) 窗口_置位置和大小 (窗口句柄, 精易_矩形.左边, 0, 精易_矩形.宽度, 精易_矩形.高度) .如果真结束 .如果真 (精易_矩形.左边 ＋ 左边保留 ＞ 屏幕宽度) 窗口_置位置和大小 (窗口句柄, 屏幕宽度 － 左边保留, 精易_矩形.顶边, 精易_矩形.宽度, 精易_矩形.高度) .如果真结束 .如果真 (精易_矩形.顶边 ＋ 顶端保留 ＞ 屏幕宽度) 窗口_置位置和大小 (窗口句柄, 精易_矩形.左边, 屏幕高度 － 顶端保留, 精易_矩形.宽度, 精易_矩形.高度) .如果真结束 .如果真结束 返回 (局_成立 ＝ 假)