asked on

Unassociated Label causes Flicker on Tab Control in Access 2003

If I place an unassociated label on a tab control in Access 2003 the whole tab control flickers badly if I move the mouse across the label (this also occurs with unbound option groups).

I use the unassociated labels for descriptive info re the tab function so they don't want to be bound to anything and the flicker they cause is very distracting.

How do I stop this behaviour, any idea why its caused?.

If I associate the label with a control the problem stops. The best stop gap I have at the mo is to create a textbox and use its label, make it transparent and disable it. It greys out the label but stops the flicker.

rgds, Adrian

ASKER CERTIFIED SOLUTION

peter57r

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

MrAdrianTaylor

ASKER

Cheers Pete

I literally moved to Access 2003 yesterday and my converted db's have been driving me mad. I like tabs and this prob is a real pain in the ass :)

MrAdrianTaylor

ASKER

don't like what the workaround does to option group labels with themes running though.

peter57r

I've been pretty happy with A2003. It seems to have broken the MS jinx that alternate versions of Access are riddled with errors, but there's bound to be something. But I can finally abandon my a97 Help file; I think Help in A2003 is very good , with one real irritation which I won't describe as i don't want to prejudice your views.

Thanks for the points.

Pete

MrAdrianTaylor

ASKER

aw, spoilsport...

Barbarosa80503

I found a solution / work around here and it seems to work. What you do is trick the MouseMove event to be 'busy' doing somthing else so when you move about it does not trigger the repaint every time you mouse over a label etc.

What I did is to put an unassociated label box around as many of the items as possible, do not cover over buttons though, then the properties of the label I put code under the MouseMove event.

Here is my code: Critique welcome...

Barbarosa80503

=======================
version 2
6:25 PM 8/21/2005
=======================

Private Sub Label_FlickerTricker_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo Err_Label_FlickerTricker_MouseMove

'==============================================
' MOD_20050821, Justin, Code
'**********************************************
'this
' is the flicker tricker
' this is a loop to occupie the mousemove event
' to eliminate flicker of redraw
' justin mead
'
' "How to Prevent Flicker in the Repaint of a Label" google to find more
'
'The MouseMove event is generated continually as the _
'mouse pointer moves over objects. Unless another _
'object generates a mouse event, an object recognizes _
'a MouseMove event whenever the mouse pointer is _
'positioned within its borders.
'
'**********************************************
Dim MyI As Long

'MsgBox "check is it running? ...ready set go"
'= clear =

MyI = 0
'=
'9153902 is about 60 seconds of just machine loop =
' 152565 is about 1 second of machine loop
'1767000 is about 11 seconds plus but... goes fast =

Do Until MyI = 1767000
MyI = MyI + 1
Loop
MyI = 0

'MsgBox "c if works"
'============================================

Exit_Label_FlickerTricker_MouseMove:
Exit Sub

Err_Label_FlickerTricker_MouseMove:
MsgBox Err.DESCRIPTION
Resume Exit_Label_FlickerTricker_MouseMove

End Sub
'============================================