'Progress' is my middle name

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

Heh, my turn to run onto the progress bar OCX making :D This is different from both of the two other ones in here. It's made of two pictureboxes and labels. At the moment you can't change the colors but I'll include a fading effect into version 2. This because I want this basic version of the control to be as light as possible. There's no need to update the control anymore, I tested it for hours to make sure there is no damn bug.

Includes:
- Custom "Done!" text (can be set on/off)
- Max, Percent, Value (Percent cannot be changed)
- Font can be changed freely
- Looks like one from Windows setups etc.
- It doesn't blink bad for a control made with labels (blinks only when Percent changes)
- Example program (with VB4 sources)


I made a setup for it, you can download it from:
http://koti.mbnet.fi/merry/files/munpbar.exe


If you believe there is a virus or something, then don't download it. I can only promise it does exactly what I said it does.

Try This:-

program

Laserman

I may not have sent this last time so here we go again.
This is not bad for changing the color

wow! thats cool....didnt think that was possible...
why do they make everything so difficult?? :rolleyes:

Yeah, but it still looks ugly ;)

In an early post, I stated the reason I wanted to make this was because I saw it in another app and thought it was cool.

I just remembered that the app was the API Guide. You can see the progress bar on the Update part of the app.

Wow Hobo, that's amazing! Great work!