[VB.NET]引用和值类型的区别? 分不清了,麻烦大家看看我的代码.

引用和值类型的区别? 分不清了,麻烦大家看看我的代码. Public Class RandomTemp Public Shared RandomEventArray As ArrayList = New ArrayList End Class ''这是静态类,作全局变量用 Dim myRandomEvent as RandomEvent=New RandomEvent ''(自己定义的类) ....(给该类的字段和属性赋值) ''然后将赋完值后的对象保存 RandomTemp.RandomEventArray.Add(myRandomEvent) myRandomEvent.RandomIncident() ''(触发对象中的方法,该方法可以改变该对 象字段的值.) ''保存变化后的值 RandomTemp.RandomEventArray.Add(myRandomEvent) 但是运行后发先RandomTemp.RandomEventArray(0)的值也改变了.试好几种方法,就是在全局变量中保存不了myRandomEvent的值. 那位大哥看看有没有办法在全局变量中保存myRandomEvent的值. __________________________________________________________________________ 取名取的乱七八糟 关键代码又不帖 __________________________________________________________________________ 贴了就太多了,没必要啊,就是一个给对象赋值的过程. __________________________________________________________________________ RandomTemp.RandomEventArray.Add(myRandomEvent) 其中的myRandomEvent是類,即為引用類型 要保存值,這裡你需要使用值類型 比如 RandomTemp.RandomEventArray.Add(myRandomEvent.Value) 其中的Value是值類型的,如int __________________________________________________________________________ 我关键想保存整个对象. 一个个保存该对象的属性和方法,太麻烦了. 想保存对象的副本,不保存它的引用. __________________________________________________________________________ 自己實現copy,或Iclone,比如 class RandomEvent { public RandomEvent Copy() { RandomEvent ret = new RandomEvent(); ret.XXX = this.XXX; ... return ret; } } RandomTemp.RandomEventArray.Add(myRandomEvent.Copy()); __________________________________________________________________________ 1 RandomTemp.RandomEventArray.Add(myRandomEvent.Copy()) 2 myRandomEvent.RandomIncident() ''对象的属性和值都要发生变化 3 RandomTemp.RandomEventArray.Add(myRandomEvent.Copy) 单步调试到第2步,myRandomEvent的对象副本保存到RandomTemp.RandomEventArray(0)中,跳过第2步,到了第三步后,也就是myRandomEvent的RandomIncident()触发,之后回过头看RandomTemp.RandomEventArray(0)又改变了,等于还是没保存住myRandomEvent的对象... 是不是跟shared 全局静态变量有关啊? 还是没搞定.... __________________________________________________________________________ 奇怪了,保存对象的副本也不行,还是保存不了该对象.对象一修改,保存的也跟着修改. 是不是跟全局变量有关啊? __________________________________________________________________________ 这是因为ArrayList指向的是同一对象,当然改变1个,就全改变了,解决的办法是给RandomEvent实现ICloneable接口 Class RandomEvent:ICloneable { public Object Clone() { return MemberwiseClone(); } } 然后创建1个新对象 RandomEvent newRandomEvent = (RandomEvent)myRandomEvent.Clone(); __________________________________________________________________________ 是不是静态的类,所有实例对象都是一样的? 我是整了一个静态数组,然后把某个类的实例放进去,该类的所有实例也是一样的? __________________________________________________________________________ 不是这个原因,是因为引用变量如果不New新的,他就是保持1个副本,而赋值仅仅是把保存的托管堆地址赋给他,实际对象是没有变化的 比如 Dim myRandomEvent as RandomEvent=New RandomEvent Dim myRandomEvent2 as RandomEvent=myRandomEvent 实际上myRandomEvent和myRandomEvent2在内存中指向的是同1个地址,其中1个变化,必然导致另1个也发生变化,你去看看值类型和引用类型的区别就明白了。 __________________________________________________________________________ 谢谢 isgod() 的回答. 现在的情况是,我就是New了还是不行.我把类的构造函数也给改了. 然后: 1 RandomTemp.RandomEventArray.Add(new RandomEvent(myRandomEvent)) 2 myRandomEvent.RandomIncident() 3 RandomTemp.RandomEventArray.Add(new RandomEvent(myRandomEvent)) 这样调试过还是不行. __________________________________________________________________________ “流浪他乡 "的代码应该是OK的,只不过他也不知道ret.XXX = this.XXX中有那些数据类型?如果有自己定义的数据类型,又没有COPY功能,则无法全部复制。 RandomTemp.RandomEventArray.Add是一个静态调用,没有唯一的实例,你无法确定加入到什么地方。 dim x as new RandomTemp x.RandomEventArray.Add(...) 则解决你的小编。 __________________________________________________________________________ 静态类是不是所有实例共享一个东西啊!!! 牵一发动全身?! __________________________________________________________________________ 回复:sz_lgp(longguoping) 你说得对: RandomTemp.RandomEventArray.Add是一个静态调用,没有唯一的实例,你无法确定加入到什么地方。 静态类所有实例是一样的. 但是想把这个对象保存为全局变量,就必须要用到静态类.方便调用. 如果是这样的话: dim x as new RandomTemp x.RandomEventArray.Add(...) 肯定能解决,但在整个应用程序中,如果不设成全局变量的话,就不能方便调用了. __________________________________________________________________________ 现在的问题,能不能把它设成全局变量? 方便整个应用程序集的调用. __________________________________________________________________________

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...