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