★★★★★★★★★★高手进来，初学者回避★★★★★★★★★★

Question

在vb中如何处理序列化的问题？？？
假如我有一个比较复杂的类（比如嵌套自身的类）的一个对象，如何灵活地保存和恢复这个对象的状态？
在java中有序列化功能可以利用，vb中如何处理类似问题？？？？谁能给出解决方案或者有用的思路，重奖300分（再开贴）

Answer 1

如果要序列化到文件中，可以这样Class MyClass
dim strName as string
dim m_nID as Integer
dim m_Other as AnotherClassFunction Serilize( int nFilNumber ,Bool bStoring)
   if bStoring then
     Put nFilNumber ,,strName
     Put nFilNumber ,,strName
     m_Other.Serilize nFilNumber,bStoring
   else
     Get...
     ......
   End ifEnd Function

Answer 2

参数：
int nFilNumber '二进制模式打开的文件号,
Bool bStoring  ，读还是写
当然，还可以自己写一个专门用来序列化的类，以实现序列化到不同的介质，类似VC的CArchive

Answer 3

看来还是有高人的，也不在于是顶着三角还是星星的，
handsomge(汗衫) 兄，AnotherClass类是vb6.0提供的还是.net中提供的？能不能给点关于AnotherClass的详细资料，我要在office2000中，基于excel用vba进行二次开发，用到序列化技术。

Answer 4

AnotherClass代表作为一个成员变量的另外一个支持序列化的类的实例如果你用到的话，就这样用

Answer 5

handsomge(汗衫) 兄，vb6.0提供这个类了没有？

Answer 6

Begin Class MyClass
dim strName as string
dim m_nID as Integer
dim m_Other as AnotherClassFunction Serilize( int nFilNumber ,Bool bStoring)
   if bStoring then
     Put nFilNumber ,,strName
     Put nFilNumber ,,m_nID 
     m_Other.Serilize nFilNumber,bStoring
   else
     Get...
     ......
   End ifEnd FunctionEnd Class

Answer 7

可能是我说的不明白刚才的代码有个错误Begin Class MyClass
dim strName as string
dim m_nID as Integer
dim m_Other as AnotherClassFunction Serilize( int nFilNumber ,Bool bStoring)
   if bStoring then
     Put nFilNumber ,,strName
     Put nFilNumber ,,m_nID 
     m_Other.Serilize nFilNumber,bStoring
   else
     Get...
     ......
   End ifEnd FunctionEnd Class看了下面的你可能会明白我的意思Begin Class AnothierClassdim  a as string
dim b as stringFunction Serilize( int nFilNumber ,Bool bStoring)
   if bStoring then
     Put nFilNumber ,,a
     Put nFilNumber ,,b
   else
     Get...
     ......
   End ifEnd FunctionEnd Class

Answer 8

AnotherClass 表示其他的类，你可以自己是实现任意多的AnotherClass