请问类似ListBox控件的List数组属性应该怎么做

用VB开发自己的控件,  
  我现在只知道用怎么用一些基本或标准的数据类型作为属性  
  如:  
      Property   Get   Color   As   OLE_COLOR  
            Color   =   m_Color  
      End   Property  
   
      Property   Get   Caption   As   String  
            Caption   =   m_Caption  
      End   Property  
   
  但是不知道数组属性应该怎么做,谢谢! 问题点数：100、回复次数：5Top

1 楼swordzq（游游）回复于 2005-09-20 11:11:08 得分 0

等待高手们出招...  
   
  另外:  
  在数组属性在UserControl_ReadProperties   和   UserControl_WriteProperties  
  中怎么写比较好?  
  Top

2 楼zlt982001（乐天）回复于 2005-09-20 11:49:18 得分 40

private   m_ColorArray()   as   OLE_COLOR  
   
     
  Property   Get   Color(Index   as   integer)     As   OLE_COLOR  
            Color   =   m_ColorArray(Index)  
  End   Property  
   
  如上  
   
  写数组  
   
  PropBag.Contents   =   m_ColorArray  
  PropBag.WriteProperty   "ColorArray",   m_ColorArray  
   
  读数组反过来  
   
  Top

3 楼weiweiplay（虚幻）回复于 2005-09-20 12:08:10 得分 40

Private   mstrList()             As   String  
   
  Public   Property   Get   List(ByVal   Index   As   Long)   As   String  
          List   =   mstrList(Index)  
  End   Property  
   
  Public   Property   Let   List(ByVal   Index   As   Long,   ByVal   Value   As   String)  
          mstrList(Index)   =   Value  
  End   Property  
  Top

4 楼fishmans（金脚指）回复于 2005-09-20 13:25:46 得分 20

要是设一个数组属性，这样的都行：  
  Public   Property   Get   List()   As   String（）  
  End   Property  
   
  Public   Property   Let   List(arr()   As   String)  
  End   Property  
   
  但是不会像Listbox的List属性那样有下拉效果  
   
  帮顶吧~~Top

5 楼swordzq（游游）回复于 2005-09-20 13:32:11 得分 0

我按上面两位的做了,在代码里可以用,  
  但是该属性并没有在VB的属性窗口里出现,  
  请问怎么可以使List属性出现在VB的属性窗口里,供用户在设计时使用?  
  Top

相关问题

• 属性
• 数组
• colorarray
• mstrlist
• property
• color
• caption
• ole
• byval
• list

• 帖主：swordzq
• zlt982001
• weiweiplay
• fishmans

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