【例题】属性

1. '' 属性示例（setter和getter属性使用相同的标识符）
2.  
3. type Rectangle
4. as integer left, top, right, bottom
5.  
6. declare property width( as integer )    '' setter
7. declare property width( ) as integer    '' getter
8. end type
9.  
10. '' 设置宽度
11. property Rectangle.width( w as integer )
12. this.right = this.left + w
13. end property
14.  
15. '' 检索宽度
16. property Rectangle.width( ) as integer
17. return this.right - this.left
18. end property
19.  
20.  
21. dim as Rectangle rc = ( 10, 10, 50, 50 )
22.  
23. print rc.left, rc.top, rc.right, rc.bottom, "width: ";rc.width
24. rc.width = 100
25. print rc.left, rc.top, rc.right, rc.bottom, "width: ";rc.width