'Progress' is my middle name

I saw a wicked cool ProgressBar in some application not too long ago. I can't remember which program it was. But this morning I set out to duplicate what they made, and the attachment is what I came up with.

What I guess I'm asking is: what else should I add to this? What features should a ProgressBar have? What else should I make it do?

Thanks.

Edit: Updated .Zip file.

I remember this, from a FTP client, I think Planet Source Code. Add how much time is left.

I want a progress bar with text in it show the percent, the text is beside the expanding bar and as it expands, the text moves along with it... Make sense?

Anyway, that bar is way cool, I love it :D

Quote:

---

Originally posted by scr0p
I remember this, from a FTP client, I think Planet Source Code. Add how much time is left.

---

How much time is left would be dependant on the program and how often it updates the value of the progressbar.

Quote:

---

Originally posted by Cagez
I want a progress bar with text in it show the percent, the text is beside the expanding bar and as it expands, the text moves along with it... Make sense?

Anyway, that bar is way cool, I love it :D

---

I'm pretty sure I can work that up :) Thanks for the idea.

I just updated the zip file with a new version that shows percentage. Any more ideas?

Make it so you can add 2 bitmaps to it. One for the background and one for the bar. :D

Quote:

---

Originally posted by Vanguard-MnC
Make it so you can add 2 bitmaps to it. One for the background and one for the bar. :D

---

There's many already written controls out there that do that. Plus I'd have to change the whole way I coded it so that it uses picture boxes :(

Your ActiveX is awesome.

how about changing the bar color?

Is there a way we can change the color of the progress bar as we can change the one of the background?

Ditto the last two posts

Nice Progress Bar. I agree with the BarColor (and of course, TextColor). How about Format String for the percentage display, to allow, say 49.5% (as would be possible in your sample app).

Good suggestions. I'll give them a go tomorrow.

Thanks. :)

Love the bar, would like the color on the bar though. . .

Just for your attention though, i downloaded your second version, the one with the percentage, and i noticed, that if you set the position to On Bar, and then changed it to On Status, the percentage shown on the bar doesn't disappear, rather it stays at the percent that you changed on then gets written over. Attached is a screen shot of what i mean.

Love it otherwise, intend to use it in future. . . with your permission of course. Read a formal request for permission here.

Quote:

---

Originally posted by Blinky Bill
Love the bar, would like the color on the bar though. . .

Just for your attention though, i downloaded your second version, the one with the percentage, and i noticed, that if you set the position to On Bar, and then changed it to On Status, the percentage shown on the bar doesn't disappear, rather it stays at the percent that you changed on then gets written over. Attached is a screen shot of what i mean.

Love it otherwise, intend to use it in future. . . with your permission of course. Read a formal request for permission here.

---

Thanks for letting me know. I'll get that fixed for next time :)

I just uploaded a newer version with the above features implimented.

how do you make your own controls?

Quote:

---

Originally posted by MXAlPhA
how do you make your own controls?

---

When starting Visual Basic, instead of selecting Standard Exe, select ActiveX Control.

Or, better yet, select Standard Exe, then go to Project > Add User Control then add a new User Control.

I have to say, that is almost exactly what I have been looking for.

The only thing I would change is the percentage text. Can you make it so that you can have it stay in the center, like when you are installing a program and the percetnage is in the middle and it chages color as the bar crosses over..

Make sense??

Your progressbar is really awsome!!
I was thinking about a suggestion, but I think you'd need to really rewrite your bar and change a lot of things: make the progress gradient :) I've tried it once, but gave up, cause I didn' have enough patience........ :)

Quote:

---

Originally posted by RudyL
I have to say, that is almost exactly what I have been looking for.

The only thing I would change is the percentage text. Can you make it so that you can have it stay in the center, like when you are installing a program and the percetnage is in the middle and it chages color as the bar crosses over..

Make sense??

---

Yeah, I know what you mean.

...I just wish I knew a way to do that. :(

You could also add a function that when it is below say 50% the text is on the background and when it is above 50% then it would be on the bar. The only reason I suggest this is that in teh begening or at the end the value starts to disapear...

Rudy

Quote:

---

Originally posted by RudyL
You could also add a function that when it is below say 50% the text is on the background and when it is above 50% then it would be on the bar. The only reason I suggest this is that in teh begening or at the end the value starts to disapear...

Rudy

---

that's how I intended it to work.

I like it - alot!

Really cool :cool:

the dogs bolloks!:D

It has a Max property, so why not a Min property?

Your progressbar is awesome btw.

Quote:

---

Originally posted by Vanguard-MnC
It has a Max property, so why not a Min property?

---

I never understood the purpose of the Min property? :confused:

The Min property allows setting a range so we wouldn't have to translate whatever values we might have into your 0 (or whatever your control's default Min is) to Max.

For instance, if I wanted a temperature scale from freezing to boiling, 0 to 100 would work for Celsius, but not Fahrenheit, which is 32 to 212. I'd rather set the range of your bar from Min = 32 to Max = 212 than have to translate my 32 to your 0. Does this make sense?

-JoeyCode

Quote:

---

Originally posted by JoeyCode
The Min property allows setting a range so we wouldn't have to translate whatever values we might have into your 0 (or whatever your control's default Min is) to Max.

For instance, if I wanted a temperature scale from freezing to boiling, 0 to 100 would work for Celsius, but not Fahrenheit, which is 32 to 212. I'd rather set the range of your bar from Min = 32 to Max = 212 than have to translate my 32 to your 0. Does this make sense?

-JoeyCode

---

hmm...alright. I'll implement it sometime tonight or tomorrow.

The "Progress" Hobo:

Very nice ProgressBar. I've checked out the latest version and it looks great. If you are still looking for suggestions, a couple more:

1. For Percentage Style: OnBackground. I like the effect of the text being pushed off the background, but for particularly long operations, it might be good to have the text display all the way to the end. So, I'm thinking somewhere around 85%, the text could (optionally) switch to the Bar, right-justified. If implemented, you should probably allow for a text color change as well.

2. For Any Percentage Style: Optional, programable completion message (ie: "File Operation Complete") that could be displayed on the bar - probably centered.

Hobo,

If you don't mind i'd like to use this in some of my apps...

If it's ok, can you include a readme file with something in it that I can use to give you credit in my code?

Thanks...


:D :cool: :D

Yeah, I wouldn't mind using it in my apps in future. Can you post some details so that you can be credited with its creation.

After reading most the posts i couldnt help but to try it out, very very very nice indeed!

just wondering though, will you be releasing the source code? i would like to use it too but im trying to make my app use as little extra controls as possible and with the source, i can add it and have it compiled into the final exe


thanks for the great idea though!

Quote:

---

Originally posted by Geespot
After reading most the posts i couldnt help but to try it out, very very very nice indeed!

just wondering though, will you be releasing the source code? i would like to use it too but im trying to make my app use as little extra controls as possible and with the source, i can add it and have it compiled into the final exe


thanks for the great idea though!

---

Maybe. But I'll probably write a tutorial on how to create it or something like it.

Blinky Bill and RudyL feel free to use it in whatever you want. I don't really care if you give credit, but if you do, my name's Kristopher :)

I suggest that you simply have an event OnComplete, so that John's request can easily be filled. And remember the .TextWidth(numchars) if you are going to fill in John's other request!

Cheers, :eek:

I have the OnComplete Event and "Finished Message" done. Any other ideas?

might be hard but how'bout animated gifs?

Not sure I understand?

When I tested, the label (?) blinked a lot. Have you made sure you have something like:

VB Code:

PercentText = Int(Value / Max * 100) & " %"
If Label <> PercentText Then Label = PercentText

Oh yeah, I like more when the percent isn't right after the value, meaning, there's a space between. So can you add there as well?

I've made the colorchanging progressbar for my app, but I have VB4, it doesn't support making own OCX. I can make and post a sample of the progressbar of mine and you can change it to fit your usage...if someone's interested on it. I'd get it as an simple OCX, because I really do use it a lot and it's not so nice to always make it the hard way...

I'm not sure I understand you either. :confused: :(

Ello. Have seen the screen shot of your progress bar, but am unable to run the test application due to the fact it contains an OCX file. No offence Hobo, but is everyone on the board stupid? :D You have all just downloaded something from a web site and ran it without having a clue what the OCX does...Hahahaha. Not saying that Hobo would write maliscious code into the OCX or anything, but I have seen it done before :( Personally, I would have written something in the OCX to hide the start bar or something annoying like that, just to prove a point and how simple it is to damage someones PC :D

Hobo, could you post the source code, or if you don't want many people looking at it, for some reason, could you email me it?

I hope no-one has taken offence...I just think it's amusing ;)

Adios,

Woka

No offence taken, cuz' I never d/l it :p
Yea I've thought 'bout dat b4 but personally I dont think Hobo is
such a person, rite?

Anyway, by Animated GIFs I mean the progress bar will animate
GIF on the bar when it expands.

:D

Would the GIF be stretched, or a little box?

I mean this:

You have it like 50%
I'd like to have it 50 % if I wanted to

I'm not at home now but I want to see it.... can someone make it executable

thanks

Make what executable?
The project files?
Hahahahaha...Not a chance :D
No way am I opening an OCX, which I have no idea what the code is, on my PC...Sorry.

(Hobo, still no offence meant)

Woka

PS You could always have a look at the jpeg...:)

For me the OCX appears to be safe...atleast nothing has happened yet ;) Besides, if it's appear to be a virus or something, someone would get a real bad image in here and wouldn't be so welcome anymore...

cool progress bar!

if you want to know how to make gradient colors, just ask in the 'games and graphics' forum!

btw, when i change the color of the bar, the borders are not changed...
you should make those colors be the bar color minus something...

hey! you could also make and option where its possible to drag the bar...

or make the bar plit up like those blue squares thats in the default windows progress bar...

Quote:

---

Originally posted by Merri
For me the OCX appears to be safe...atleast nothing has happened yet ;) Besides, if it's appear to be a virus or something, someone would get a real bad image in here and wouldn't be so welcome anymore...

---

I agree...but it has happened before :D

Woka

Quote:

---

Originally posted by cyborg
hey! you could also make and option where its possible to drag the bar...

---

Errrr...Drag the bar?! :confused: Why?

Oh, and anyways, you can already do that, just set DragMode = vbAutomatic :D

Woka

Quote:

---

Originally posted by cyborg
cool progress bar!

if you want to know how to make gradient colors, just ask in the 'games and graphics' forum!

btw, when i change the color of the bar, the borders are not changed...
you should make those colors be the bar color minus something...

---

Is it possible to change the borders color? I have never come across that in any usercontrol yet, even though all of them have the ability to change the forecolor and back color, and do some extremely complicated things...:eek:
is it possible? Does anyone have some dodgy API functions that would do it? Subclassing? Weasel bashing? Oooops, sorry got distracted there :D

Woka

i mean drag like klick on it to select value....
could be useful in some programs

i dont know how theese borders are made, but if they are made using pixel plotting, or lines in a picturebox, its possible to change the color

Hmm...then I'd suggest making a separate control for that purpose, it wouldn't be a progress bar then...it'd be more like a scrollbar, just different kind...ones that I have seen in games. Urgh, wasn't there a version of Visual Basic that lets you make only OCXs? I'd download it and make those darn OCXs for people :D Once I learn how to make them.

Quote:

---

Originally posted by Wokawidget
Ello. Have seen the screen shot of your progress bar, but am unable to run the test application due to the fact it contains an OCX file. No offence Hobo, but is everyone on the board stupid? :D You have all just downloaded something from a web site and ran it without having a clue what the OCX does...Hahahaha. Not saying that Hobo would write maliscious code into the OCX or anything, but I have seen it done before :( Personally, I would have written something in the OCX to hide the start bar or something annoying like that, just to prove a point and how simple it is to damage someones PC :D

Hobo, could you post the source code, or if you don't want many people looking at it, for some reason, could you email me it?

I hope no-one has taken offence...I just think it's amusing ;)

Adios,

Woka

---

I hate when people ask for your source becuase that think its infected. Does this mean you dont have anything like AIM, AOL, or even VB on your computer? Because i'm sure you dont have the source to them.

Posted originally by YoungBuck, a nice gradient effect.

VB Code:

Private Declare Function Polyline Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
 
Private Type POINTAPI
        x As Long
        y As Long
End Type
 
Private Function LineGradient(ByVal pDC As Long, ByVal pWidth As Long, pHeight As Long, ByVal pStartColor As Long, ByVal pEndColor As Long, Optional pVertical As Boolean = False) As Boolean
 Dim lDC As Long
 Dim lBMP As Long, lOrigBMP As Long
 Dim lPen As Long, lOrigPen As Long
 Dim bytCS(3) As Byte, bytCE(3) As Byte
 Dim nRChg As Double, nGChg As Double, nBChg As Double
 Dim ptCurLine(0 To 1) As POINTAPI
 Dim ict As Long
 Dim lEnd As Long
 
 lDC = CreateCompatibleDC(pDC)
 
 If Not lDC = 0 Then
 
    lBMP = CreateCompatibleBitmap(pDC, pWidth, pHeight)
    
    If Not lBMP = 0 Then
    
        lOrigBMP = SelectObject(lDC, lBMP)
 
        'retrieve the red, green, and blue bytes from the Color
        CopyMemory bytCS(0), pStartColor, 3
        CopyMemory bytCE(0), pEndColor, 3
 
        If pVertical = True Then lEnd = pHeight Else lEnd = pWidth
 
        nRChg = (CInt(bytCE(0)) - CInt(bytCS(0))) / lEnd
        nGChg = (CInt(bytCE(1)) - CInt(bytCS(1))) / lEnd
        nBChg = (CInt(bytCE(2)) - CInt(bytCS(2))) / lEnd
        
        lPen = CreatePen(0, 1, pStartColor)
        
        lOrigPen = SelectObject(lDC, lPen)
        
        For ict = 0 To lEnd
    
            If pVertical = True Then
                
                ptCurLine(0).x = 0: ptCurLine(0).y = ict
                ptCurLine(1).x = pWidth: ptCurLine(1).y = ict
        
            Else
                
                ptCurLine(0).x = ict: ptCurLine(0).y = 0
                ptCurLine(1).x = ict: ptCurLine(1).y = pHeight
    
            End If
            
            Polyline lDC, ptCurLine(0), 2
            
            lPen = CreatePen(0, 1, RGB(bytCS(0) + (nRChg * ict), bytCS(1) + (nGChg * ict), bytCS(2) + (nBChg * ict)))
        
            DeleteObject SelectObject(lDC, lPen)
            
        Next ict
        
        If BitBlt(pDC, 0, 0, pWidth, pHeight, lDC, 0, 0, vbSrcCopy) Then
            
            LineGradient = True
            
        Else
            
            LineGradient = False
            
        End If
        
        DeleteObject SelectObject(lDC, lOrigPen)
        DeleteObject SelectObject(lDC, lOrigBMP)
        DeleteDC lDC
        
    Else
        
        LineGradient = False
        
    End If
    
 Else
 
    LineGradient = False
    
 End If
            
    
End Function
 
Private Sub Form_Load()
    Me.AutoRedraw = False
End Sub
 
Private Sub Form_Paint()
    LineGradient Me.hdc, Me.Width \ Screen.TwipsPerPixelX, Me.Height \ Screen.TwipsPerPixelY, vbBlue, vbBlack, False
End Sub
 
Private Sub Form_Resize()
    Form_Paint
End Sub

I think it's fast, too. I'm not sure though.

as i read this thread, i wanted to make my own progress bar.
it has some of the features as your progress bar and some that yours dont have... :)

here's the source!

Quote:

---

Originally posted by carp
I hate when people ask for your source becuase that think its infected. Does this mean you dont have anything like AIM, AOL, or even VB on your computer? Because i'm sure you dont have the source to them.

---

That's a completely different ball game! :D
I could, quite easily in about 5-10mins, create an OCX that would complete nack your computer, then in another 2 I could post it on here for a laf, and see how many people run it :D
It HAS happened before. How can you be SOOO naive? :mad:

Woka