Managing the Hourglass

Managing the Hourglass

It can be very useful to have a central public function for manipulating themouse pointer in a Visual Basic application. This function can help youorganize how the hourglass is shown and at what level (form, screen):

 Public Sub Hourglass(ByVal blnHourglassSetTo As Boolean)Select Case Forms.CountCase 0 'No Form is loaded so set the screen    If blnHourglassSetTo = True Then        Screen.MousePointer = vbHourglass    Else        Screen.MousePointer = vbDefault    End IfCase Else    If blnHourglassSetTo = True Then        If VB.Screen.ActiveForm Is Nothing Then            Screen.MousePointer = vbHourglass        Else            VB.Screen.ActiveForm.MousePointer = vbHourglass        End If    Else        If Not VB.Screen.ActiveForm Is Nothing Then            Screen.MousePointer = vbDefault            VB.Screen.ActiveForm.MousePointer = vbDefault        End If        Screen.MousePointer = vbDefault    End IfEnd SelectEnd Sub
Share the Post:
data observability

Data Observability Explained

Data is the lifeblood of any successful business, as it is the driving force behind critical decision-making, insight generation, and strategic development. However, due to its intricate nature, ensuring the

Heading photo, Metadata.

What is Metadata?

What is metadata? Well, It’s an odd concept to wrap your head around. Metadata is essentially the secondary layer of data that tracks details about the “regular” data. The regular