Wrox Home  
Search P2P Archive for: Go

  Return to Index  

pro_vb thread: RE: pro_vb digest: December 06, 2000


Message #1 by "James Hardiman" <JamesHardiman@t...> on Thu, 7 Dec 2000 11:56:53 -0000
>Subject: Hourglass MousePointer over DataGrid (6.0 OLEDB)
>When I set Screen.MousePointer = vbHourglass (when I execute a query, for
>example) it turns into the default mousepointer over the Microsoft
>DataGrid.  Does anyone know a way around this so I can give users proper
>feedback during processing?

David,

I have found that you have to set .MousePointer for all active controls:
here's a routine I have used in MDI applications.

Public Sub DoMousePointer(p)
Dim f As Form
    For Each f In Forms
        f.MousePointer = p
    Next f
End Sub

You could always add something like
dim c as control
	for each c in f.controls
		c.mousepointer = vbHourGlass
	next c
(I haven't tested this last bit: you may have to modify it if there
are controls that don't have a MousePointer property.  Maybe just
On Error Resume Next
would do the trick?!)

Regards,

James Hardiman
The Learning Centre International Limited
21 Greenhill Close
Winchester
SO22 5DZ
+44 (0) 1962 623587
www.tlci.demon.co.uk
tlc - What do you want to learn today?





  Return to Index