如何在VB6中的类模块中定义可读写的属性数组

编号：QA004098
建立日期: 2001年4月11日 最后修改日期：2001年4月11日
所属类别：

Visual Basic - ActiveX技术

zhong dongsheng:
    操作系统: win98
    编程工具: VB6
    问题: 如何在VB6中的类模块中定义可读写的属性,这个属性是一个数组?

回答:

    Dim m_Array(10)
    
    Public Property Get MyArray(ByVal i As Integer) As Variant
     MyArray = m_Array(i)
    End Property
    
    Public Property Let MyArray(ByVal i As Integer, ByVal vNewValue As Variant)
     m_Array(i) = vNewValue
    End Property

此问题由李海回答。

把这个问题推荐给朋友         您的意见类别 更好的答案 希望得到进一步解释 我有有关代码可以提供给网友 链接错误 文字错误 其他 您的名字 您的电子邮件 您的建议(请尽可能详细)