有人记得vb3中的语句/命令“waiton”是什么意思吗?

在这个超传统应用程序的“加载事件”形式中,我需要将这个命令/语句“waiton”翻译成Web应用程序,它发生在on错误goto之后…

有人记得韦顿的意思吗?

下面是代码段:

Dim sCmd As String
Dim iFileHandle As Integer
Dim sFileName As String
Dim i As Integer
Dim sKeyWord As String
Dim sWindowPosition As String
Dim iWindowState As Integer
Dim sSystemId As String
Dim sMetrics() As String

On Error GoTo MainFormLoadErr
WaitOn
ReDim gsFundsUsed(0 To 0)
ReDim gsObjectsUsed(0 To 0)
Set gsActiveSpread = Nothing
.
.
.
MainFormLoadExit:
WaitOff
Close
Exit Sub

MainFormLoadErr:
MsgBox Error$(Err) & " in MainForm Load"
Resume MainFormLoadExit

我刚在下面找到了一个对应的等候区。我不认为Waiton是品牌的一部分。

正如@c-pound guru所建议的,waiton和waitoff是程序中一个(多个)模块中的方法。从子例程的名称中不清楚的是,它们的任务是将鼠标指针设置为等待光标,然后稍后返回默认值。

Sub WaitOn ()
  On Error Resume Next
  Screen.MousePointer = 11
End Sub

Sub WaitOff ()
  On Error Resume Next
  Screen.MousePointer = 0
End Sub