.版本 2 .子程序 自动隐藏, , 公开, 靠边自动隐藏,放置时钟事件下 .参数 窗口, 窗口, , 将要隐藏的窗口( _启动窗口 ) .局部变量 Y, 整数型 .局部变量 X, 整数型 处理事件 () Y ＝ 取鼠标水平位置 () X ＝ 取鼠标垂直位置 () .如果真 (Y ＜ 窗口.左边 或 Y ＞ 窗口.左边 ＋ 窗口.宽度 或 X ＜ 窗口.顶边 或 X ＞ 窗口.顶边 ＋ 窗口.高度) .如果真 (窗口.顶边 ≤ 0) 窗口.移动 (, 2 － 窗口.高度, , ) .如果真结束 返回 () .如果真结束 .如果真 (窗口.顶边 ≤ 0) 窗口.移动 (, 0, , ) .如果真结束 .如果真 (窗口.左边 ＜ 0) 窗口.左边 ＝ 0 .如果真结束 .如果真 (窗口.左边 ＞ 取屏幕宽度 () － 窗口.宽度) 窗口.左边 ＝ 取屏幕宽度 () － 窗口.宽度 .如果真结束 .如果真 (窗口.顶边 ＞ 取屏幕高度 () － 窗口.高度) 窗口.顶边 ＝ 取屏幕高度 () － 窗口.高度 － 30