如何在窗体中而不是在模块中定义全局数组呢？

Question

我想在一个窗体调用另外一个窗体里面的数组，就在申明里面是这样定义了一个数组
Public DemHeight() As Double
结果出错了，请问我该怎么做?

Answer 1

数组不允许以Public方式定义到Form中，你可以将数组定义到一个单独的Module中或者在Form中添加方法来访问这个数组。
我建议采用后一种方法

Answer 2

一楼正解，我在一篇帖子里回过这个问题，在这儿再帖一遍方案：
可以先定义一个Private数组，然后用属性索引的方法访问'--------------------------------------------------------------------
Private Const mconArraySize As Integer=10
Private mintArray(1 to mconArraySize) As DoublePublic Property Get Array(ByVal intIndex As Integer) As Double
    If ( intIndex < 1 ) Or ( intIndex > mconArraySize ) Then
        Err.Raise 381               '无效属性参数值
    End if
    Array=mintArray(intIndex)
End PropertyPublic Property Let Array(Byval intIndex As Integer,Byval dblValue As Double)
    If ( intIndex < 1 ) Or ( intIndex > mconArraySize ) Then
        Err.Raise 381               '无效属性参数值
    End if
    mintArray(intIndex) = dblValue
End Property使用这个属性跟使用一个数组一样:
i = objMyObj.Array(2)
objMyObj.Array(1) = 5.3

Answer 3

up,一般我的处理方法在模块里定义的，不过 chenziteng(陈子腾) 的方法也很好的。

Answer 4

模块---是客厅
窗体---是房间
模块中用public声明的大家都可直接访问
窗体中用public声明的可以用Form2.xxx访问
用Private声明的只有各自用了

Answer 5

Private Const mconArraySize As Integer=10
Private mintArray(1 to mconArraySize) As DoublePublic Property Get Array(ByVal intIndex As Integer) As Double
    If ( intIndex < 1 ) Or ( intIndex > mconArraySize ) Then
        Err.Raise 381               '无效属性参数值
    End if
    Array=mintArray(intIndex)
End PropertyPublic Property Let Array(Byval intIndex As Integer,Byval dblValue As Double)
    If ( intIndex < 1 ) Or ( intIndex > mconArraySize ) Then
        Err.Raise 381               '无效属性参数值
    End if
    mintArray(intIndex) = dblValue
End Property使用这个属性跟使用一个数组一样:
i = objMyObj.Array(2)
objMyObj.Array(1) = 5.3
------------------------------
这样比较好