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成为公共

通过表格以安全的方式传递价值

1 个答案: