VBA Visual Basic 编辑器（VBE）对象。保存布尔错误？ [复制]

Question

tl;dr: 在下面的代码中，以下两个条件都评估为 True！！！如何？为什么？

• If Not IsSaved Then
• If IsSaved Then

---

我正在使用 VBA Visual Basic 编辑器 (VBE) 对象。 .Saved 属性让我感到困惑。

如果实际上保存了 VBComponent 对象，(.Saved) 和 Not (.Saved) 都会返回 True。在评估条件之前，我什至尝试将属性显式强制为布尔值。以下是重现的步骤：

1. 在新的 Excel 实例中打开一个空白工作簿
2. 从标准模块（例如“Module1”）复制并运行以下代码：

Sub ListModules()
    Dim VBComp As Object  'VBComponent
    For Each VBComp In Application.VBE.ActiveVBProject.VBComponents
        
        Dim IsSaved As Boolean
        IsSaved = CBool(VBComp.Saved)
        
        If CStr(VBComp.Saved) = "True" Then
            Debug.Print vbNewLine; VBComp.Name; " saved? "; VBComp.Saved; " ("; TypeName(VBComp.Saved); ")"
            If Not IsSaved Then
                Debug.Print VBComp.Name; " is not saved"
            End If
            If IsSaved Then
                Debug.Print VBComp.Name; " is saved"
            End If
        End If
    Next VBComp
End Sub

---

'Sample output:
ListModules

ThisWorkbook saved? True (Boolean)
ThisWorkbook is not saved
ThisWorkbook is saved

Sheet1 saved? True (Boolean)
Sheet1 is not saved
Sheet1 is saved

注意：要运行此代码，您可能必须授予对 VBA 项目对象模型的访问权限：文件 -> 选项 -> 信任中心 -> [信任中心设置...] -> 宏设置 -> [x] 信任对 VBA 项目对象模型的访问

Answer 1

@JMP 和@SiddharthRout cmets 揭晓了答案。

这是一个非标准的布尔实现，其中True是1not -1。

但是，logical operations 失败了。

例如，Not A 操作是 A 的按位反转（布尔值存储为 long）。如果A=-1 它的位是1111111111111111 并且反转是0000000000000000。

但是如果A=1 那么它的位是0000000000000001 并且反转得到1111111111111110 代表-2。所以Not 1 是-2 什么是True，因为它是<> 0！

这就是为什么Not VBComponent.Saved = True (=-2) 而VBComponent.Saved = True (=1) 也是！

| Assignment (a As Boolean) | Bits             | Value As Integer | Value As Boolean |
|---------------------------|------------------|------------------|------------------|
| a = True                  | 1111111111111111 | -1               | TRUE             |
| Not a                     | 0000000000000000 | 0                | FALSE            |
|                           |                  |                  |                  |
| a = False                 | 0000000000000000 | 0                | FALSE            |
| Not a                     | 1111111111111111 | -1               | TRUE             |
|                           |                  |                  |                  |
| VBComponent.Saved = True  | 0000000000000001 | 1                | TRUE             |
| Not VBComponent.Saved     | 1111111111111110 | -2               | TRUE             |
|                           |                  |                  |                  |
| VBComponent.Saved = False | 0000000000000000 | 0                | FALSE            |
| Not VBComponent.Saved     | 1111111111111111 | -1               | TRUE             |

Sub TestInversion()
Dim VBComp As Object  'VBComponent
Debug.Print
For Each VBComp In Application.VBE.ActiveVBProject.VBComponents
IsSaved = CInt(VBComp.Saved)
Debug.Print VBComp.Name; VBComp.Type; VBComp.Saved; CInt(VBComp.Saved); Not VBComp.Saved; Not CInt(VBComp.Saved); VBComp.Saved = True; VBComp.Saved = False
Next VBComp
End Sub

现在我们错过了这种奇怪实现的原因，也许有人知道？