Access 2021 中未调用终止方法

Question

还有其他人发现他们在 Access 中的 Terminate() 方法没有被调用吗？

这是我的 cBusyPointer class 的代码，为简洁起见删除了注释：

Option Compare Database     ' Use database order for string comparisons
Option Explicit             ' Declare EVERYTHING!
Option Base 1               ' Arrays start at 1

Public Sub show()
    DoCmd.hourGlass True
End Sub

Private Sub Class_Terminate()
    DoCmd.hourGlass False
End Sub

典型用法是：

Sub doTehThings()
    Dim hourGlass As New cBusyPointer
    hourGlass.show()
    ' Do all teh things
End Sub

在以前的版本中，每当 object 从 scope 中退出并被销毁时，这个 class 就会恢复沙漏。

我什至试图手动销毁我的沙漏 object：

Sub doTehThings()
    Dim hourGlass As cBusyPointer
    Set hourGlass = New cBusyPointer
    hourGlass.show()
    ' Do all teh things
    Set hourGlass = Nothing
End Sub

解决这个问题的唯一方法是添加一个 hide() 方法并调用它。

还有其他人遇到过这个问题吗？

Answer 1

我无法复制这个问题。 Terminate()方法在到达Set hourGlass = Nothing时被调用。

几点：

Dim hourGlass As New cBusyPointer

这将在您每次调用hourGlass变量时创建一个新实例，甚至将其设置为 Nothing。 有关更多信息，请参阅下面链接中的答案：

Dim As New 与 Dim / Set 之间有什么区别

处理对象时应始终使用Dim/Set 。

hourGlass.show()

这甚至不会在 VBA 中编译。即使在期望 arguments 时，Subs 也不接受括号，除非它们前面有Call关键字。

最后，引用 object 的最简洁方法是使用With语句访问它，这确保在到达End With语句时终止 object。

 With New cBusyPointer
     .show
 End With