Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
Discussion GroupsFormsForms ProgrammingQueriesModules / DAO / VBAReports / PrintingMacrosDatabase DesignSecurityConversionImporting / LinkingSQL Server / ADPMultiuser / NetworkingReplicationSetup / ConfigurationDeveloper ToolkitsActiveX ControlsNew UsersGeneral 1General 2
Access DirectoryToolsTutorialsUser Groups
Related Topics
SQL ServerOther DB ProductsMS OfficeMore Topics ...

MS Access Forum / New Users / February 2008

Tip: Looking for answers? Try searching our database.

Form Flicker

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Chad - 23 Feb 2008 17:24 GMT
Hello, I made a custom switchboard and I have alot of flicker in my controls
and cant figure out why. I had posted in the UA forms with little luck and
searched the net with no luck. Please help as im learning and cant figure out
whats causing this. Please take a look at this example I had posted in UA...
Thanks!
Cat=&Board=83&Number=1596393&Zf=&Zw=&Zg=0&Zl=a&Main=1596393&Search=true&where=&Zu=122626&Zd=l&Zn=&Zt=44&Zs=&Zy=#Post1596393&Zp=

Here is the code im using in the form for one of my buttons but I have
several in the form.

Private Sub mOverFont(lbl As String)
   Me(lbl).FontSize = 10 'Change number to size of font when moused over
End Sub

Private Sub mOutFont(lbl As String)
   Me(lbl).FontSize = 9 'Change number to size of font if NOT moused over
End Sub

Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
   Label80.ForeColor = 8388608 'Sets the text color back to Blue
   mOutFont ("Label80") 'Sets the text size back to font 8

Private Sub cmdMainDB_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
   Label80.ForeColor = 32768 'Sets the text color to Green
       mOverFont ("Label80") 'Sets the text size to font 12
Chad - 23 Feb 2008 18:03 GMT
Sorry I messed up on the link to the downloadable sample to my switchboard!
http://www.utteraccess.com/forums/showflat.php?Cat=&Board=83&Number=1596486&Zf=&
Zw=&Zg=0&Zl=a&Main=1596393&Search=true&where=&Zu=122626&Zd=l&Zn=&Zt=13c&Zs=&Zy=#
Post1596486&Zp
=
John Spencer - 23 Feb 2008 19:32 GMT
Access is not really very good at using mouse over events to do things.
 It tends to cause flicker as things are continuously being processed.

One thing that might help would be to test the value of fontsize and
only change that when it needs to be changed.  Use an If statement to
check if the size is already what you want it to be.

For example:

Private Sub mOverFont(lbl As String)
  If me(lbl).Fontsize <> 10 Then
    Me(lbl).FontSize = 10 'Change Font size when moused over
  End If
End Sub

'====================================================
 John Spencer
 Access MVP 2002-2005, 2007-2008
 Center for Health Program Development and Management
 University of Maryland Baltimore County
'====================================================

> Hello, I made a custom switchboard and I have alot of flicker in my controls
> and cant figure out why. I had posted in the UA forms with little luck and
[quoted text clipped - 24 lines]
>         mOverFont ("Label80") 'Sets the text size to font 12
>  
Chad - 23 Feb 2008 21:23 GMT
Thanks for the fast responce John! I found a sample on the net and
incorperated it into mine and it works great, It uses a module! any way I
uploaded the fixed Switchboard to the same link as specified in my previous
post so others can benifit....... Thanks!
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.