局部变量作返回值

Private   Sub   Command1_Click()  
   
  Dim   coll   As   Collection  
  coll   =   retCollection  
  Print   coll.Item(2)  
           
  End   Sub  
   
   
   
  Private   Function   retCollection()   As   Collection  
   
  Dim   myCollection   As   New   Collection  
  myCollection.Add   "HelloWorld"  
  myCollection.Add   "H2"  
  myCollection.Add   "h3"  
   
   
  retCollection   =   myCollection  
   
  End   Function  
   
   
  结果出错  
   
  如何将局部创立的Collection返回给调用者呢? 问题点数：30、回复次数：2Top

1 楼TBNTB（無人的夜里孤軍奮斗!）回复于 2005-05-05 16:06:41 得分 5

Private   Function   retCollection(Collection   as     Collection   )  
   
   
  Collection   .Add   "HelloWorld"  
  Collection   .Add   "H2"  
  Collection   .Add   "h3"  
   
   
  End   FunctionTop

2 楼homezj（小吉）回复于 2005-05-05 18:10:09 得分 25

少个set！！！  
   
  Private   Function   retCollection()   As   Collection  
   
  Dim   myCollection   As   New   Collection  
  myCollection.Add   "HelloWorld"  
  myCollection.Add   "H2"  
  myCollection.Add   "h3"  
   
   
  set   retCollection   =   myCollection  
   
  End   FunctionTop

相关问题

• retcollection
• mycollection
• collectiondim
• collectionmycollection
• mycollectionend
• 返回
• collection
• coll
• helloworld
• add

• 帖主：ufouser
• TBNTB
• homezj

• Visual Basic类图书
• Visual Basic类源码下载