易语言实现置指定窗口用户区宽度高度的方法

CNWTEPRG

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 窗口程序集_启动窗口
   
6. 
   
7. .子程序 __启动窗口_创建完毕
   
8. 
   
9. 置用户区宽高 (_启动窗口, 256, 512)
   
10. 调试输出 (_启动窗口.取用户区宽度 (), _启动窗口.取用户区高度 ())
    
11. ' 结束 ()
    
12. 
    
13. .子程序 置用户区宽高
    
14. .参数 当前窗口, 窗口, 参考
    
15. .参数 用户区宽度, 整数型
    
16. .参数 用户区高度, 整数型
    
17. .局部变量 当前用户区宽度, 整数型
    
18. .局部变量 当前用户区高度, 整数型
    
19. .局部变量 增加的宽度, 整数型
    
20. .局部变量 增加的高度, 整数型
    
21. .局部变量 内部的宽度, 整数型
    
22. .局部变量 内部的高度, 整数型
    
23. 
    
24. 当前用户区宽度 ＝ 当前窗口.取用户区宽度 ()
    
25. 当前用户区高度 ＝ 当前窗口.取用户区高度 ()
    
26. 增加的宽度 ＝ 用户区宽度 － 当前用户区宽度
    
27. 增加的高度 ＝ 用户区高度 － 当前用户区高度
    
28. 当前窗口.宽度 ＝ 当前窗口.宽度 ＋ 增加的宽度
    
29. 当前窗口.高度 ＝ 当前窗口.高度 ＋ 增加的高度
    

复制代码

1心1亿

发帖时间亮了

Cute

全世界只有1个我 发表于 2018-2-17 09:56
发帖时间亮了

多半是定时发布的