VBA，Excel：如何将类对象传递给表单

Question

如何将ThisWorkbook中的类对象传递给UserForm？

我收到以下错误：

在 ThisWorkbook ：

中

Dim MainObject As MyClass
Set MainObject = New MyClass

Public Sub ShowMyForm()
  Dim frmMyForm as MyForm
  Set frmMyForm = New MyForm
  frmMyForm.FormObject = MainObject  ' *<-- Run-time Error '13': Type mismatch*
End Sub

在 MyForm ：

Private p_Object As MyClass

Property Get FormObject() As MyClass
  Set FormObject = p_Object
End Property

Property Set FormObject(ByRef Value As MyClass)
  Set p_Object = Value
End Property

Answer 1

分配对象时，需要使用Set关键字，如下所示：

Set frmMyForm.FormObject = MainObject