Re: Timer Label Visibility Question

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

"AK" <nospam@xxxxxxxxxxx> wrote:
If I comment it out, I have to set the default design visibility
property of lblTime in the form to False, cause I do not want
the label (showing the time) to become visible until I click the
LogIn button. (The time display is used to show the clock
time while other parts of the code are executing the log in
functions of the program and thereby let the user kow that
things are happenig behind the scenes.

Private Sub cmdLogIn_Click()
lblTime.Visible = True
Debug.Print Test 'Checkpoint print
'etc more code
End Sub

Can't tell what you really want by looking at the code you
presented, so I'm going along with what you've posted in
the message.

Private Sub cmdLogIn_Click()
Timer1.Enabled = True
' blah blah blah
End Sub

Private Sub Timer1_Timer()
Static i As Long
i = i + 1
lblTimer.Caption = CStr(i)
If i = 10 Then
'stop counting
Timer1.Enabled = False
'Just set the Caption to an empty string and it disappears
'(unless you have a border around it).
lblTimer.Caption = ""
'reset counter
i = 0
'do whatever else you need to do
'...
End If
'DoEvents
End Sub

If I could find it, I would use a progress bar but I need one
that bounces back and forth to show time passage and a
clock was a quick way to show some action.)

You can also use a progress bar to display a bar that disappears
or a bar that reaches the end. Click on Project, then Components,
then scroll down to Microsoft Common Controls 5.0 or Microsoft
Common Controls 6.0. Both of those have a progressbar. They
both have a statusbar as well. Not sure if one is better than the
other. Once you put a checkmark into one of them, close the
Components dialog and drag the progressbar onto the form. The
statusbar might be an option as well. You could use a Timer to
turn a wheel in the status bar or in the label.

Private miCountDown As Long

Private Property Let CountDown(ByVal i As Long)
'reset miCountDown
miCountDown = i
'login operation timed out, handle other things
End Property

Private Sub Timer1_Timer()
Static i As Long
If i = 0 Then
lblTimer.Caption = " | "
i = i + 1

'miCountDown is a form scoped long variable
miCountDown = iCountDown - 1
ElseIf i = 1 Then
lblTimer.Caption = " / "
i = i + 1
ElseIf i = 2 Then
lblTimer.Caption = "---"
i = i + 1
ElseIf i = 3 Then
lblTimer.Caption = " \ "
i = 0
End If
If miCountDown <= 0 Then
Timer.Enabled = False
Me.CountDown = 0 'reset countdown, handle other things
End If
End Sub

Perhaps I'm missing something. All I have to work with at the
moment involves:

There's a Timer on the form which adjusts a count.
There's a label on the form that presents the count (based upon
code inside the Timer).
A LogIn button turns the visibility of the label on or off.

Does the Timer run all the time? What's the purpose of Timer1?
Is the only purpose for that label to show the countdown?

Something else that might work for you is a statusbar. You can
create a few panels on the status bar. You mentioned time but
talked about a timer. Those could be two different concepts
entirely. For instance, place a StatusBar onto the form, and create
a panel to display the time. That time is different than a countdown
timer. :-)

Hope that helps.

Jim Carlock
Post replies to the group.
--
Raleigh Swimming Pool Builders http://www.aquaticcreationsnc.com/


.

Relevant Pages

  • Re: Timer Label Visibility Question
    ... control and a label called "lblTime". ... something assiciated with a timer that is outside the Timer Sub ... Private Sub Timer1_Timer ...
    (microsoft.public.vb.general.discussion)
  • RE: Control Tip Text Question
    ... --You didnt try the frame control..No problems. ... ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) ... Private Sub CheckBox470_MouseMove(ByVal Button As Integer, ... i only want the label to be seen if mouse is over the checkbox. ...
    (microsoft.public.excel.programming)
  • Re: Floating Box for Prices
    ... (to trigger your floating window for example). ... Label control indicates when the "mouse down for a specified period" has ... Private tDown As Single, counting As Boolean ... Private Sub Picture1_MouseDown(Button As Integer, ...
    (microsoft.public.vb.general.discussion)
  • Re: A HELP BOX
    ... lblDescriptive is the name of the descriptive label placed near the textbox. ... Private Sub UserForm_Initialize ... 'Show the decriptive label on entry to the text field. ... name, CtrlTab twice, your Middle Initial, CtrlTab once, Last Name""" ...
    (microsoft.public.word.vba.general)
  • Re: Floating Box for Prices
    ... Often with things like floating information windows it is best to use a "hover period" so that the window appears if the user simply hovers the mouse in one spot for more than a predetermined period. ... The Label control indicates when the "mouse down for a specified period" has been activated and the Label disappears as soon as the user then lets go of the mouse button (the Label is just an indication of course, and you would simply modify the code to instead show your little floating "follow the mouse" information window. ... Private tDown As Single, counting As Boolean ... Private Sub Picture1_MouseDown(Button As Integer, ...
    (microsoft.public.vb.general.discussion)