devxlogo

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

devx-admin

Share the Post: