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

VB技巧问答10000例 VB技巧问答10000例

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 
<END>