Question

在这个超级版本的应用程序的Form_Load事件中，我需要音译到一个Web应用程序，这个命令/语句“WaitOn”发生在On Error 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

我刚刚找到了相应的WaitOff。我不认为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

Answer 1

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

Answer 2

如果右键单击并转到“定义”，会发生什么？代码目前运行吗？检查参考文献 - 可能是非标准的dll。

有谁记得VB3中的语句/命令“WaitOn”是什么意思？

2 个答案: