vb6 - 以安全的方式通过表单传递值

Question

我正在使用这种“方法”通过表单传递值：

Form1

Public iCodName    As Long

然后上Form2

Private Sub Button1_Click()
   Form1.iCodName = 10
End Sub

我知道这是NOT一种安全的方法，因为我的所有变量都必须这样GLOBAL做，所以我想问一种通过表单传递这些值的安全方法，或者如果不是这样的最好方法一个Good Practice编程。

Answer 1

以您的形式：

Dim iCodName    As Long
' private???  I forget, my VB6 is rusty...
Public Property Get CodeName() As Long
    Return iCodName    
End Property

Public Property Let CodeName(ByVal vNewValue As Long)
  iCodName    = vNewValue
End Property

它与普通的公共成员没有太大区别，但确实阻止了 iCodName 成为公共成员