7,762
社区成员
发帖
与我相关
我的任务
分享
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 Sub
Private m_iInt() As Integer
Property Let iInt(RHS() As Integer)
m_iInt = RHS
End Property
Property Get iInt() As Integer()
iInt = m_iInt
End Property
Private 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 Sub
Public Sub Out()
Dim i As Integer
For i = 0 To UBound(m_iInt)
MsgBox m_iInt(i)
Next i
End Sub