如何传递后期绑定参数

Question

在 VB6 中，我试图将后期绑定对象传递给另一个窗体。

frmMain.vb

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

frmDialog

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

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

Answer 1

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

Answer 2

我使用了 VarType(y)。 结果是8，
对于 vbString. 应该是9
目的。 – ssorrrell 1 小时前

在立即窗口中使用“打印 y”
查找 y 的内容。 – 索雷尔 55
分钟前

这似乎证实了我的怀疑。 MyOwn.Object 类必须具有返回字符串的默认属性或方法。

因此，当您尝试Debug.Print它时，它将返回默认属性/方法的值。 当您将鼠标悬停在 IDE 中的变量上时，VB6 将显示默认属性/方法的值。 当您对 y 执行 VarType 调用时，它将返回默认属性或方法的变量类型。

原因是，当您有一个存储 Object 的 Variant 类型的变量，并且该对象的类定义了默认方法或属性时，该变量将计算为在大多数情况下，返回默认方法或属性的值。

您可以通过打开 MyOwn.Object 类的对象浏览器并查看来快速检查 MyOwn.Object 类是否具有默认成员在其属性和方法列表中。 如果您看到某个方法或属性的角上有一个带有小蓝色圆圈的图标，则表明该方法或属性是该类的默认成员。 如果你找到一个，我愿意打赌它被声明为返回一个字符串。

请注意，即使您将所有 VariantS 更改为 ObjectS，您仍然会在很多地方遇到此行为。 例如，即使 y 被声明为 As Object，执行 Debug.Print y 仍然会打印出默认属性或方法的值，执行 VarType(y) 仍将返回 8（字符串）。

确切地知道 VB6 何时使用默认成员以及何时不使用可能会造成混乱。 例如，如果您将 y 声明为 Object，则执行 TypeName(y) 将返回 MyOwn.Class，但 VarType(y) 仍将返回 8（字符串）。 但是，如果将 y 声明为 Variant，则 TypeName(y) 返回 String。

如果您使用后期绑定，则很难避免这种副作用，因为您只能将对象变量声明为 Object 或 Variant。

Answer 3

您确定没有省略 Set 关键字吗？例如，

Dim y
Public Sub SetMyOwnObject(ByVal paramX As Variant)
  ' Set y = paramX  ' thought you had this...
  y = paramX        ' ...actually have this
End Sub

如果是这种情况，则 y 的值将是对象的默认值。 您的 MyOwn.Object 类是否有一个返回其类型描述的属性，并且已被定义为该类的默认成员（在 VB 对象浏览器中用蓝点标记）？

Answer 4

frmMain.vb

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

frmDialog

Dim y As Object
Public Sub SetMyOwnObject(ByRef paramX As Object)
  Set y = paramX
End Sub

当您使用 CreateObject 时，您创建的是一个对象而不是变体。
当您传递对象时，通常使用 ByRef。