2

Visual Basic 具有在计算表达式时有时会隐式调用的默认属性。但是，我似乎遇到了与默认属性的这种隐式执行的差异。项目布局如下：

第一类：

property test -> class2 (default)

类2：

property test -> string "hello world" (default)

表格1：

Dim x As New Class2
MsgBox x
Debug.Print x

MsgBox 语句将隐式调用 x 的默认值（在 class1 上进行测试），此外，它将调用 x 的默认值（在 class2 上进行测试），这会导致屏幕上显示“hello world”。然而 Debug.Print 语句并没有这样做，并且通过跟踪调试器，可以看到只有第一个默认值（在 class1 上）被调用。

我已经验证了许多内置函数（例如 MsgBox/RTrim/LTrim）都表现出这种行为，并且任何自写的方法或类方法都不会这样做；但我无法弄清楚为什么会发生这种情况？

4

1 回答 1

5

这根本不是内置函数的“行为”，而是取决于 COM 将对象引用和变体转换为字符串的方式。这也与 Set 和 Let 语言关键字和表达式评估有关，尤其是括号。考虑这个示例代码：

Private Sub Form_Load()
    Dim x As Class1
    Dim v As Variant
    Dim s As String

    Set x = New Class1
    Set v = x   ' None
    Let v = x   ' Once
    Set v = (x) ' Once
    Let v = (x) ' Twice
    's = x      ' Compile error: Type mismatch
    Set v = x
    s = v       ' Twice
    s = CVar(x) ' Twice
    MsgBox x
    'Debug.Print CStr(x) ' Compile error: Type mismatch
    'Debug.Print CVar(x) ' Run-time error: Type mismatch
    Debug.Print CStr(CVar(x)) ' Twice
    pvTest1 x
End Sub

Private Function pvTest1(ByVal o As Variant)
    'Debug.Print o      ' Run-time error: Type mismatch
    Debug.Print CStr(o) ' Twice
End Function

请注意，将对象引用转换为字符串是一个编译时错误（CStr(x) 调用），而包含引用的变体（IDispatch 一个）被转换得很好（s = v）。当默认属性计算为 IDispatch（调用 Invoke 并将 DISPID 设置为 -1）时，最后一个分配将尽可能深入地“展开”默认属性。

简而言之：如果您有一个对象的引用并且需要将默认属性递归地评估为“原始”数据类型（例如字符串）的值，请使用 CStr(CVar(x)) （或 CInt(CVar...) 等)

于 2009-09-01T19:27:27.703 回答