ACCESS FEED: RE: [MS_AccessPros] Re: How to get a label to blink

Kamis, 20 Oktober 2011

RE: [MS_AccessPros] Re: How to get a label to blink

Thank you A.D., I'll try it and keep you posted.

Have a great day today!

David

From: MS_Access_Professionals@yahoogroups.com
[mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of A.D. Tejpal
Sent: Thursday, October 20, 2011 12:21 AM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] Re: How to get a label to blink

David,

If you do wish to explore further as fun project, two of my sample db's as
mentioned below, might be of interest:

1 - BlinkingLabels_XP
2 - Form_AnimatedWavesAndShapes

Both are available at Rogers Access Library. Link:
http://www.rogersaccesslibrary.com/forum/forum_topics.asp?FID=45

It is observed that smooth fading In / Out of labels can provide a more
pleasant alternative as compared to conventional blinking. Other special
effects like sliding / expanding / shrinking labels could be considered,
depending upon the situation.

Sample-1:
=======
Sample-1 above demonstrates cyclic control of brightness in various styles
as follows.
(a) Conditional blinking based upon the date displayed in a text box.
(b) Temporary blinking triggered by mouse move.
(c) Continuous blinking.

For each of the above, following sub-styles are covered (synchronizing with
the
blink status).
(a) Fixed over-all size of label.
(b) Dynamic size and font of label

Sample-2:
=======
Sample-2 above demonstrates programmatically animated waveforms and nested
shapes. Form timer (normally in a disabled state) is enabled in short bursts
only for actual duration of animation.

Five styles of waveforms are covered as follows (The user can select the
speed of animation e.g. Low / Medium / High):

(1) Spiral - Simple
(2) Spiral - With simultaneous oscillation of X axis
(3) Sine wave - Three components in series
(4) Sine wave - Three components in phase
(5) Sine wave - Three phase (typical of electric power supply)

Nested shapes cover various combinations of shapes radiating outwards within
a given box. Animation speed continues to cycle through normal / fast /
faster.

In both cases, the size of display can be altered by clicking anywhere
within the outermost rectangle. Bottom right corner of display area shifts
to the clicked location while the top left corner remains constant.

Best wishes,
A.D. Tejpal
------------

----- Original Message -----
From: David Tolson
To: MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com>
Sent: Thursday, October 20, 2011 02:42
Subject: RE: [MS_AccessPros] Re: How to get a label to blink

Thank you for chiming in acravenrohm, when John called it a cheesy trick, I
could see lights and hear bells from the circus J. It sounds even funnier
when I write it out. I'll probably try your suggestion to learn something
new, but in the end, I will probably not use it.

Thanks for the lesson.

Have a great day and an even finer day tomorrow,

David

From: MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com>
[mailto:MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com> ] On Behalf Of
acravenrohm
Sent: Wednesday, October 19, 2011 5:02 PM
To: MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com>
Subject: [MS_AccessPros] Re: How to get a label to blink

I know how you feel David :-)

However, you definitely should avoid a loop within your form_load, even if
it is a splash form, as all kinds of bad voodoo can happen. What I have done
in similar situations is to use the form timer to animate the splash and
then close the splash from the "real" form when the application is finished
loading or whatever it is that I want to distract the user from.

I also find that although most of my stuff is best done in VBA Code, I like
to keep the splash VBA free and use simple macros to perform any tasks the
splash has to. Sounds quirky but I have the feeling it helps keep Access "on
the tracks" :-)

--- In MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com>
<mailto:MS_Access_Professionals%40yahoogroups.com> , "David Tolson"
<drtolson@...> wrote:
>
> John, Cheesy tricks huh? Although I am hovering somewhere just below
> intermediate, I at least would like to look like a pro, so I'll leave that
> one alone J. But thanks for giving me a cheesy trick I can show at my sons
> next birthday party.
>
> Have a great day,
>
> David
>
>
>
> From: MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com>
<mailto:MS_Access_Professionals%40yahoogroups.com>
> [mailto:MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com>
<mailto:MS_Access_Professionals%40yahoogroups.com> ] On Behalf Of John
Viescas
> Sent: Wednesday, October 19, 2011 3:26 PM
> To: MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com>
<mailto:MS_Access_Professionals%40yahoogroups.com>
> Subject: RE: [MS_AccessPros] How to get a label to blink
>
> David-
>
> This falls into the category of cheesy tricks, but if you really want to
do
> it,
> you have to use the Timer event. Set the Timer for 250 milliseconds and
use
> module variables to count where you are in the process. Add 1 to the
> counter,
> and if Counter Mod 4 is 1, turn the label "on"; if Counter Mod 4 is 0,
turn
> the
> label "off"; and if Counter = 16 (4 seconds), close the form.
>
> John Viescas, author
> Microsoft Office Access 2010 Inside Out
> Microsoft Office Access 2007 Inside Out
> Building Microsoft Access Applications
> Microsoft Office Access 2003 Inside Out
> SQL Queries for Mere Mortals
> http://www.viescas.com/
> (Paris, France)
>
> -----Original Message-----
> From: MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com>
<mailto:MS_Access_Professionals%40yahoogroups.com>
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> [mailto:MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com>
<mailto:MS_Access_Professionals%40yahoogroups.com>
> <mailto:MS_Access_Professionals%40yahoogroups.com> ] On Behalf Of
> djsdaddy531
> Sent: Wednesday, October 19, 2011 8:47 PM
> To: MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com>
<mailto:MS_Access_Professionals%40yahoogroups.com>
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> Subject: [MS_AccessPros] How to get a label to blink
>
> Great Day, I apologize if this message was sent already, but after it
> was not delivered to my inbox and then I went to the website and and
> didn't see it, I decided to resend it.
>
> I have a splashscreen that loads and remains visible for 4 seconds based
> on the On Timer event. I would also like to display a blinking label
> that says "Please wait while application is loading." Since I already
> have the On Timer event being triggered by the splashscreen, I tried to
> write some code to cause the label to blink. In the forms On Load event,
> I have the following code:
>
> Dim stloop1 As Long
> Dim stloop2 As Long
> Dim stloop3 As Long
>
> Do Until stloop1 = 10
> stloop1 = stloop1 + 1
> stloop2 = 1
> stloop3 = 1
> Me.lblWait.Visible = True
> Do Until stloop2 > 750
> stloop2 = stloop2 + 1
> Loop
> Me.lblWait.Visible = False
> Do Until stloop3 > 250
> stloop3 = stloop3 + 1
> Loop
> Loop
>
> I am trying to make the label visible for 3/4 of a second and invisible
> for 1/4 of a second; however the label does not show up at all. I would
> like to know how to make the label blink.
>
> Thanks in advance for your assistance.
>
> r/David

[Non-text portions of this message have been removed]

[Non-text portions of this message have been removed]