-
Wait Cursor
I have a form with a button and a textbox.
I have a also a class Cls_Import with a public function Import performing a long task.
From Import I use RaiseEvent to notify main form to write some task info in the textbox.
How to show the wait cursor during the long task?
I did something like this:
Code:
Private Sub cmdImport_Click()
' ...
If oImp Is Nothing Then
Set oImp = New Cls_Import
End If
Me.MousePointer = vbHourglass
bRet = oImp.Import() 'a long task here
Me.MousePointer = vbDefault
'...
End Sub
But doesn't work.
What must be done?
-
Re: Wait Cursor
Try.
Screen.MousePointer = vbhourglass
Screen.MousePointer = 0 ' return to normal
-
Re: Wait Cursor
Thank you very much. :thumb:
It works.