Vb6 有人记得那句话/命令是什么吗；“威顿”；在VB3中是什么意思？

在这个超级遗留应用程序的形式_Load事件中，我需要翻译成一个web应用程序，这个命令/语句“WaitOn”发生在On错误GoTo…之后

有人记得WaitOn的意思吗

下面是代码片段：

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

---

如果右键单击并转到“定义”，会发生什么情况？代码当前是否运行？

---

检查引用-可能是来自非标准dll。

我从未在VB中遇到“WaitOn”或“WaitOff”命令。您可能需要仔细检查代码，看看是否编写了WaitOn方法（以及WaitOff方法）。它不是一个标签，因为VB标签以冒号（：）结尾。

Bingo。在代码中查找登录方法时，我遇到了WaitOn和WaitOff。VB3没有右键单击上下文菜单，因此无法转到定义。VB3没有右键单击上下文菜单，因此无法转到定义。不幸的是，这个问题永远不会被问到。在我的日子里，我看到过一些令人厌烦的VB代码，但是……是啊！同意，但我不认为VB3有像今天这样的枚举样式的值，所以这可能是他们能做的最好的了。