vb6 - 如何传递后期绑定(bind)参数

Question

在 VB6 中，我试图将后期绑定(bind)的对象传递给另一种形式。

frmMain.vb

Dim x
Set x = CreateObject("MyOwn.Object")
Dim f as frmDialog
Set f = New frmDialog
f.SetMyOwnObject x

对话框

Dim y
Public Sub SetMyOwnObject(ByVal paramX As Variant)
  Set y = paramX
End Sub

y 的内容是一个字符串，其中包含后期绑定(bind)对象的类型名称“MyOwn.Object”。 ByVal 和 ByRef 没有区别。有什么线索吗？难以内存。

Answer 1

我手边没有 VB6 的副本，但我记得或多或少经常做同样的事情，而且我相信我们在方法签名中使用了 Object 而不是 Variant。 Variant 通常很难预测它可以在变量上运行什么样的转换，而对于 Object，我相当确定 VB 不会尝试任何类型的转换。