vb调用另一个模块中的数组

Question

我在一个模块中获得了一个较大的数组，想调用到另一个模块中绘制图形，请问除了写文件读文件，还可以怎么做？新手，大家见笑了。

Answer 1

你说的模块是指什么,标准模块吗?直接把这数组设为public的访问不就行了吗?

Answer 2

用对象属性传递.别全局变量,不好.Form1中
Private Sub Command1_Click()
    Dim oForm2 As New Form2
    Dim iInt() As Integer
    iInt = Form2.iInt
    
    ReDim Preserve iInt(14)
    iInt(10) = 10
    iInt(11) = 11
    iInt(12) = 12
    iInt(13) = 13
    iInt(14) = 14
    
    Form2.iInt = iInt
    
    Form2.Out
    
End SubForm2中Private m_iInt() As IntegerProperty Let iInt(RHS() As Integer)
    m_iInt = RHS
End PropertyProperty Get iInt() As Integer()
    iInt = m_iInt
End PropertyPrivate Sub Form_Initialize()
    ReDim m_iInt(9)
    m_iInt(0) = 0
    m_iInt(1) = 1
    m_iInt(2) = 2
    m_iInt(3) = 3
    m_iInt(4) = 4
    m_iInt(5) = 5
    m_iInt(6) = 6
    m_iInt(7) = 7
    m_iInt(8) = 8
    m_iInt(9) = 9
End SubPublic Sub Out()
    Dim i As Integer
    For i = 0 To UBound(m_iInt)
        MsgBox m_iInt(i)
    Next i
End Sub