Blinking Label

[StevenH]

I have looked and tried some of the examples from VB World.

I have a label with the caption "Please wait..."

This label is only to appear when i click on the command button...
Many exmaples VB WORLD have the label appearing when the form loads eventhough the label at design time is set to false and the property on the control is false and the form load there is nothing about the label...


I want the label to blink when the user clicks on the command button or any other ideas but i want to keep it simple


Can anyone paste some code to show me


Thank you
Steve

[makai]

put a label, a timer and a commandbutton on a form

Private Sub Command1_Click()
    Timer1.Enabled = Not Timer1.Enabled
    Label1.Visible = Timer1.Enabled
End Sub

Private Sub Form_Load()
    Timer1.Enabled = False
    Timer1.Interval = 500
    Label1.Caption = ""
    Label1.Visible = False
End Sub

Private Sub Timer1_Timer()
    If Label1.Caption = "" Then
        Label1.Caption = "Please Wait..."
    Else
        Label1.Caption = ""
    End If
End Sub

[kedaman]

Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Command1_Click()
    Dim temp As String
    Do
        temp = Label1.Tag
        Label1.Tag = Label1
        Label1 = temp
        X = GetTickCount + 500
        Do Until X < GetTickCount Or Forms.Count = 0
            DoEvents
        Loop
    Loop Until stopdoingthis Or Forms.Count = 0
End Sub

[StevenH]

Works great!
Label blinks and there is no opening pause

The only question is how to I get out of this loop?
I can not get out of the loop and my system does not execute!

Steve

[kedaman]

the stopdoingthis i wrote there in my code was meant to show you, you put the boolean variable or expression to determine when to exit the loop

[StevenH]

Kedaman..

Can you help me get out of the loop?

I want it to stop when the frmoption displays...

Thank you,
Steve

[Jop]

I can help you...
change this line

Loop Until stopdoingthis Or Forms.Count = 0

to

Loop Until stopdoingthis Or Forms.Count = 0 Or frmOption.Visible

[StevenH]

Do I have to use a loop
Is there any other way of disabling the blinking?

I put the Loop Until stopdoingthis Or Forms.Count = 0 Or frmOption.Visible
at the end of my code and the pause is still there

[HeSaidJoe]

Private Declare Function GetTickCount Lib "kernel32" () As Long
Public stopdoingthis As Boolean


Private Sub Command1_Click()
stopdoingthis = False
    Dim temp As String
    Do
        temp = Label1.Tag
        Label1.Tag = Label1
        Label1 = temp
        X = GetTickCount + 500
        Do Until X < GetTickCount Or Forms.Count = 0
            DoEvents
        Loop
    Loop Until stopdoingthis = True
    
End Sub


  
Private Sub Label1_Click()
'wherever you make frmOption visible or whatever
  stopdoingthis = True
  
End Sub

[StevenH]

Here is my code:

How do i get out of the loop ?
If I put my code between the Do Until and the loop, the label never actually blinks...

Dim Msg, Style, Title, Response

lblTimer.Visible = True
tmr1.Enabled = True
stopdoingthis = False
Dim temp As String
Do
temp = lblTimer.Tag
lblTimer.Tag = lblTimer
lblTimer = temp
X = GetTickCount + 500
Do Until X < GetTickCount Or Forms.Count = 0
DoEvents
Loop
Loop Until stopdoingthis Or Forms.Count = 0 Or frmOption.Visible

Set myWorkBook = myExeclApp.Workbooks.Open("d:\temp\temp.xls")
Set myWorksheet = myWorkBook.Worksheets(2)

[Jop]

HeSaidJoe's code works perfectly for me, don't see the point

where do you put your code?

[StevenH]

I am having problems here:

The pause is when I open the excel spreadsheet
Can someone please help me fix this problem
After the excel opens I want to have the label stop blinking

Dim Msg, Style, Title, Response

lblTimer.Visible = True
tmr1.Enabled = True
stopdoingthis = False
Dim temp As String
Do
temp = lblTimer.Tag
lblTimer.Tag = lblTimer
lblTimer = temp
X = GetTickCount + 500
Do Until X < GetTickCount Or Forms.Count = 0
DoEvents
Set myWorkBook =myExeclApp.Workbooks.Open
("d:\temp\temp.xls")
Set myWorksheet = myWorkBook.Worksheets(2)

Loop
Loop Until stopdoingthis Or Forms.Count = 0 Or frmOption.Visible

[HeSaidJoe]

Use the code from kedaman and the added piece by myself.
Change your label caption to read. "Click here to open file" or whatver your instructions would be.

Then put your code for open excel in the label click event with my code and away you go.

As you have it you are firing off a blink and opening a file and telling it to stop blinking when you open. It's all happening at once. I can't see how it will blink when you open at the same time.

[Aamurphis]

This do the same, but less code.
for lasy programmers!!




Option Explicit

Private Sub cmdconnect_Click()
Timer1.Interval = 400
Label1.Caption = "Please wait..."
End Sub


Private Sub Timer1_Timer()
Label1.Visible = Not Label1.Visible
End Sub