类的属性问题

怎样实现一个数组属性，谢谢！ 问题点数：100、回复次数：4Top

1 楼JennyVenus（）回复于 2002-11-13 18:13:17 得分 0

定义不行吗，如果类向导不让，那么手工添加  
  no   problemTop

2 楼softrookie（编程新生）回复于 2002-11-14 08:23:16 得分 0

请问该怎么定义？谢谢！Top

3 楼dwei（大卫）回复于 2002-11-14 09:43:36 得分 0

属性不行,换用Public变量试试。  
  ^_^Top

4 楼zhplovelsy（张少侠）回复于 2002-11-14 10:24:34 得分 100

给你个例子  
  Option   Explicit  
   
  Private   MBidInfo()   As   String  
   
  Public   Function   RedimArray(ByVal   vRow   As   Integer,   ByVal   vCol   As   Integer)   As   Long  
          ReDim   MBidInfo(vRow,   vCol)  
  End   Function  
   
  Public   Property   Let   BidArray(ByVal   vRow   As   Integer,   ByVal   vCol   As   Integer,   ByVal   vNewValue   As   String)  
          MBidInfo(vRow,   vCol)   =   vNewValue  
  End   Property  
   
  Public   Property   Get   BidArray(ByVal   vRow   As   Integer,   ByVal   vCol   As   Integer)   As   String  
          BidArray   =   MBidInfo(vRow,   vCol)  
  End   Property  
  Public   Property   Get   BidArrayNum()   As   Integer  
          BidArrayNum   =   UBound(MBidInfo(),   1)  
  End   Property  
  Top

相关问题

• 属性
• mbidinfo
• vrow
• vcol
• bidarray
• bidarraynum
• 类
• propertypublic
• byval
• 不行

• 帖主：softrookie
• zhplovelsy

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