| 发表于:2007-09-16 16:53:533楼 得分:0 |
为值类型不行,要用引用类型,也就像指针之类 如 public class va public tmp as integer public sub new() tmp = 10 end sub end class public class vb private a as va public sub add(byval aa as va) me.a = aa end sub public readonly property val() get return a.tmp end get end property end class sub main() dim x as new vb dim y as new va x.add(y) console.writeline( x.val) '改变之前的数 y.tmp = 20 console.writeline( x.val) '改变后的数 end sub | | |
|