如何引用Form 中定义的public 数组?比如在frmForm 代码文件中:
public m_nVal as integer
public m_nArrVal(1 to 20) as integer '如此定义是通不过的其中:
m_nVal 可以被外模块引用, 但是m_nArrVal() 却不可?
public m_nVal as integer
public m_nArrVal(1 to 20) as integer '如此定义是通不过的其中:
m_nVal 可以被外模块引用, 但是m_nArrVal() 却不可?
解决方案 »
- 如何对这样的字符进行操作
- VB如何把1个文件分割成2个?(还有如何把分割后的再合并?)
- 如何设置所编写的控件的序列号
- 如何知道用户点了另一个软件的一个按键??
- 关于数据库中数据修改的一个小问题
- 问将现有连接到access的数据库改到连接到sql数据库,用ADO,改connection string 后recordsource如何改
- CNN:微软总裁比尔·盖茨在洛山矶被暗杀
- 数据库的连接,帮忙看一下代码哪出了问题?
- preserve关键字在多维数组中的用法
- printer的问题...........为什么我定义了打印机纸张可是还是无法全部打印数据?????快来看看啊....看了就有分啊...呵呵...我是老山啊...
- 如何进入另一台计算机。
- 用setmessage发送文字的问题!
'form1
''''''''''''
Private Sub Form_Load()
Dim frm As frmForm
Dim nArrVal() As Integer
Set frm = New frmForm
frm.ArryVal(2) = 3
MsgBox frm.ArryVal(2)
nArrVal = frm.ArryVals
MsgBox nArrVal(2)
End Sub'''''''''''
'frmForm
''''''''''''
Option Explicit
Private m_nArrVal(1 To 20) As Integer
Public Property Get ArryVal(Index As Integer) As Integer
ArryVal = m_nArrVal(Index)
End PropertyPublic Property Let ArryVal(Index As Integer, ByVal vNewValue As Integer)
m_nArrVal(Index) = vNewValue
End PropertyPublic Property Get ArryVals() As Variant
ArryVals = m_nArrVal
End Property
首先在frmForm 定义了ArryVal 和 ArryVals 属性来封装 m_nArrVal 数组,其中ArryVal 取数组单个元素,ArryVals 获取真个数组在form1里来访问 和设置frmForm 的私有数组变量。//
建议 所有的 窗体 变量都通过属性来访问。