Does anyone remember what the / command "WaitOn" meant in VB3?

In the Form_Load event of this ultralight application, I need to transliterate it into a web application, this is the "WaitOn" command / statement that occurs immediately after the On Error GoTo ...

Does anyone remember what WaitOn means?

Here's a piece of code:

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

      

There's a corresponding WaitOff in there that I just found. I don't think WaitOn is part of the line label.


As @ C-Pound Guru suggested, WaitOn and WaitOff were methods in one of (many) program modules. What was not clear from the names of the subroutines was that their job was to set the mouse pointer to the Wait Cursor and then return to the default.

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

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

      

+2


source to share


2 answers


I have never met VaitOn or WaitOff command in VB. You might want to double check your code to see if the WaitOn method (and the WaitOff method) exists. This is not a shortcut, as VB labels end with a colon (:).



+4


source


What happens if you right click and go to definition? And does this code work? Check the links - it might be something from a non-standard dll.



0


source







All Articles