Курсор

Question

Здравствуйте, не подскажете, как мне на время выполнения Tool'a курсору мыши присвоить 12 (песочные часы)?

Я использую

Dim pCursor As ISystemMouseCursor
Set pCursor = New SystemMouseCursor
pCursor.Load esriSystemMouseCursorArrowHourglass

Dim pTool As ITool
Set pTool = Application.CurrentTool
pTool.Cursor = pCursor,

но pTool.Cursor - read only, я не могу им воспользоваться для изменения статуса курсора.

А как по другому можно получить доступ к статусу курсора?

С уважением, Егор

Answer 1

Попробуйте такого типа функцию:

Public Sub HourGlass(obj As Object, fOn As Boolean)
    Dim PauseTime, Start
    On Error Resume Next
    If Not fOn Then
        obj.MousePointer = fmMousePointerHourGlass    ' vbHourglass 

       fOn = True

    Else
        obj.MousePointer = fmMousePointerDefault  'vbDefault  
    End If
    obj.Repaint ' Перерисовать форму
    PauseTime = 1    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
End Sub