VBA，Excel：如何將類對象傳遞給表單

Question

如何將來自ThisWorkbook的類對象傳遞給用戶窗體？

我收到下面的錯誤指出：

在的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