Tedious hourglass

[Guus2005]

Gebeurt het je wel eens dat je een hourglass gebruikt en dat je hem vergeet uit te zetten?
Met de volgende class heb je dat probleem niet meer. Het moment dat je de procedure verlaat waarin je het hourglass aan hebt gezet wordt de class afgebroken (terminated) en het hourglass wordt uitgezet.

Maak een class met de volgende code:

Option Compare Database
Option Explicit
'Guus2005 - 21 November 2006
'Use this class to set the hourglass on or off.
'When the class terminates the hourglass is automatically turned off.
'You'll never forget turning it off!
'
'Below you'll find an example!

Private Sub Class_Terminate()

    HourGlassOff

End Sub

Public Sub HourGlassOn()

    DoCmd.Hourglass True

End Sub

Public Sub HourGlassOff()

    DoCmd.Hourglass False

End Sub

  
''''' Example
''''Public Sub Doit()
''''
''''    Dim hrg As New clsHourglass
''''
''''    hrg.HourGlassOn
''''
'''''
''''' Lots of important and time consuming stuff here
'''''
''''
''''    hrg.HourGlassOff 'Not really necessary!
''''
''''End Sub