hi referring to thread707-103495

[rf92d]

hi

referring to thread707-1034951, where could i find active link about

http://www.j-walk.com/ss/excel/files/developer.htm

(Control the LED Display in the StatusBar ) ?

when I use this link, I can't see any file about this topic.


thanks

 

[strongm]

https://web.archive.org/web/20050825070531/http://www.j-walk.com/ss/excel/files/developer.htm

 

[combo]

Internet never forgets:

https://web.archive.org/web/2019052...index.php/tip/displaying_a_progress_indicator

combo

 

[rf92d]

many thanks,

but when I test the file (i attached it), i have an issue with set definition of new class modul.

class modul's name is correct.

 

[strongm]

combo, that's not the statusbar code ...

But perhaps the question we need to ask the OP is: why do you want this code when there is a perfectly good progress bar control included with Windows?

 

[strongm]

>when I test the file (i attached it),
Which file? The LED one, or combo's code?

 

[rf92d]

the led one (link

https://web.archive.org/web/20050825070531/http://www.j-walk.com/ss/excel/files/developer.htm).

Sub ProgressBarSimpleDemo()
    Dim sb As New clsProgressBar, i As Long
    Set sb = New clsProgressBar ' create a new progress bar   <= HERE
    sb.Show "Please wait", vbNullString, 0 ' display the progress bar
    For i = 0 To 100 Step 20
        sb.PercentComplete = i ' update the progress bar
        WaitSeconds 1
    Next i
    End With
    Set sb = Nothing ' remove the progress bar
End Sub

 

[strongm]

Just to be clear here. That code is ancient, and does not work on anything later than Excel 2003 for various reasons; for example later versions implement the ribbon interface, which meant there was a reworking of the statusbar. They also have a different Class for the statusbar hwnd.

(the code runs fine; just won't paint anything to the screen. This means that your issue with the class module is most likely something you introduced (probably a typo). But I'll just repeat, even if you fix that you will NOT see anything on screen, unless your version of Excel is 2003 or earlier

 

[rf92d]

ok,

many thanks

 

[Andrzejek]

Out of curiosity....
Isn't that redundant:

Dim sb As [red]New[/red] clsProgressBar
Set sb = [red]New[/red] clsProgressBar

I would say, either:

Dim sb As [s]New[/s] clsProgressBar
Set sb = [red]New[/red] clsProgressBar

or

Dim sb As [red]New[/red] clsProgressBar
[s]Set sb = New clsProgressBar[/s]

but not both.

Or am I way off...

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson