简单的代码限制窗口的移动的位置与大小

原我能

请看以下代码吧~

1. .版本 2
   
2. .子程序 __启动窗口_位置被改变
   
3. .如果真 (_启动窗口.左边 ＜ 5)'如果窗口的左边小于了屏幕横坐标5,便会回到屏幕横坐标5
   
4.     _启动窗口.左边 ＝ 5
   
5. .如果真结束
   
6. .如果真 (_启动窗口.顶边 ＜ 5)'如果窗口的左边小于了屏幕横坐标5,便会回到屏幕纵坐标5
   
7.     _启动窗口.顶边 ＝ 5
   
8. .如果真结束
   
9. .如果真 (_启动窗口.顶边 ＋ _启动窗口.高度 ＞ 取屏幕高度 () － 5)'如果窗口下面低了,窗口就会回去.
   
10.     _启动窗口.顶边 ＝ 取屏幕高度 () － _启动窗口.高度 － 5
    
11. .如果真结束
    
12. .如果真 (_启动窗口.左边 ＋ _启动窗口.宽度 ＞ 取屏幕宽度 () － 5)'^_^接下来就不用我解释了吧?
    
13.     _启动窗口.左边 ＝ 取屏幕宽度 () － _启动窗口.宽度 － 5
    
14. .如果真结束
    
15. .子程序 __启动窗口_尺寸被改变
    
16. .如果真 (_启动窗口.宽度 ＞ 取屏幕宽度 () － 5)'如果窗口的大小被改变了,且位置超过[U]屏幕的大小减5[/U]
    
17.     _启动窗口.宽度 ＝ 取屏幕宽度 () － 10
    
18. .如果真结束
    
19. .如果真 (_启动窗口.高度 ＞ 取屏幕高度 () － 5)'^_^接下来就不用我解释了吧?
    
20.     _启动窗口.高度 ＝ 取屏幕高度 () － 10
    
21.   
    
22. .如果真结束

复制代码