我建立了一个类god.cls,刚刚解决了问题现在又有新问题了！！！！

我建立了一个类god.cls有以下的定义  
  Dim   Good(100)   As   String  
   
  Public   Function   SetGood()  
         
        Dim   tt   As   Integer  
        For   tt=0   to   100  
                Good(tt)=str$(tt)  
                Debug.Print   Good(tt)'可以打出0,1,2..100  
        next  
  End   Function  
   
  Public   Function   prGood()  
        Dim   tt   As   Integer  
        For   tt=0   to   100  
                Debug.Print   Good(tt)'却打不出0,1,2..100  
        next  
  End   Function  
   
   
  在一个标准模板中有以下代码  
  Public   Function   upGood()  
        Dim   dds   As   god  
        Set   dds   =   New   god  
        dds.SetGood      
  End   Function  
   
  Public   Function   upGood()  
        Dim   dds   As   god  
        Set   dds   =   New   god  
        dds.prGood             '问题就是这里每次调用都打不出0-100  
  End   Function 问题点数：100、回复次数：3Top

1 楼gg_Mac（gg_Mac）回复于 2002-11-27 16:36:22 得分 0

ps:  
   
        有没有在类模板中访问普通的form窗体阿  
        谢谢！Top

2 楼holydiablo（香菜鱼头）回复于 2002-11-27 16:39:05 得分 50

那当然有问题  
  Public   Function   upGood()  
        Dim   dds   As   god  
        Set   dds   =   New   god  
        dds.prGood             '问题就是这里每次调用都打不出0-100  
  End   Function  
  看见   new   了吗，你在这里又重新申请了一个对象，你让它哪里来的值Top

3 楼holydiablo（香菜鱼头）回复于 2002-11-27 16:41:10 得分 50

你的dds是一个局部变量，  
  应该在模块的声明区  
  Dim   dds   As   godTop

相关问题

• god
• prgood
• upgood
• tt
• dds
• 问题
• dim
• good
• function
• set

• 帖主：gg_Mac
• holydiablo
• holydiablo

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