[HELP]Progress Bar - Printable Version

[HELP]Progress Bar - Printable Version

+- Sinisterly (https://sinister.li)
+-- Forum: Coding (https://sinister.li/Forum-Coding)
+--- Forum: Visual Basic & .NET Framework (https://sinister.li/Forum-Visual-Basic-NET-Framework)
+--- Thread: [HELP]Progress Bar (/Thread-HELP-Progress-Bar)

[HELP]Progress Bar - AmboÃƒÆ’Ã‚Â¥=Zeg_h - 05-28-2011

Hi.. I'm trying to make a loading bar for my 'msn hack'(obv a trojan mask) and i cant make it work.. can u help me?
i want it to be activated by 1 button and when the bar finish, a window popup saying something like 'invalid email' or something Smile

RE: [HELP]Progress Bar - PartyPaint - 05-28-2011

http://www.youtube.com/watch?v=w7gRswsa9bM

should solve it ;-)

RE: [HELP]Progress Bar - AmboÃƒÆ’Ã‚Â¥=Zeg_h - 05-28-2011

tanks but i have vb6 and now works but the width of the bar doesnt not stop incrementing O.o
look:

Code:
Private Sub Timer1_Timer()
Picture1.Visible = True
Picture1.Width = Picture1.Width + 100
If Picture1.Width = Picture2.Width Then
Timer1.Enabled = False
End If
End Sub

RE: [HELP]Progress Bar - PartyPaint - 05-28-2011

(05-28-2011, 11:19 PM)AmboÃƒÆ’Ã‚Â¥=Zeg_h Wrote: tanks but i have vb6 and now works but the width of the bar doesnt not stop incrementing O.o
look:

Code:
Private Sub Timer1_Timer() Picture1.Visible = True Picture1.Width = Picture1.Width + 100 If Picture1.Width = Picture2.Width Then Timer1.Enabled = False End If End Sub

did you set the minimum to 0% & set the maximum to 100% ?

RE: [HELP]Progress Bar - AmboÃƒÆ’Ã‚Â¥=Zeg_h - 05-28-2011

oooooooooohh... nope i didnt xd
how i can do that? Smile

RE: [HELP]Progress Bar - Coder-san - 05-29-2011

Code:
Private Sub Timer1_Timer()
    If Picture1.Width >= 10000 Then
        Timer1.Enabled = False
    Else
        Picture1.Width = Picture1.Width + 100
    End If
End Sub

This will fix your Picturebox increment.

If you want to use a Progressbar, then do this:

Code:
Private Sub Form_Load()
    ProgressBar1.Max = 100
End Sub

Private Sub Timer1_Timer()
    If ProgressBar1.Value = ProgressBar1.Max Then
        Timer1.Enabled = False
    Else
        ProgressBar1.Value = ProgressBar1.Value + 1
    End If
End Sub

Or if you want to use [link=http://www.hackcommunity.com/Thread-VB6-Source-vProgress-A-ProgressBar-like-WPF-s]my vProgressBar[/link], then do this:

Code:
Dim intProgress As Integer 'In Declarations

Private Sub Timer1_Timer()
    If intProgress >= 100 Then
        Timer1.Enabled = False
    Else
        intProgress = intProgress + 1
    End If

Call Progress(Picture1, intProgress, 50, 100)

End Sub

RE: [HELP]Progress Bar - AmboÃƒÆ’Ã‚Â¥=Zeg_h - 05-29-2011

I think i love u Smile

O.o...

Now i wanna put an error msg, i think should me something like this but dsnt work.. why?

Code:
Private Sub Timer1_Timer()
    Picture1.Visible = True
    If Picture1.Width >= 4565 Then
        Timer1.Enabled = False
        MsgBox("Error conecting server", MsgBoxStyle.Information, "blabla") = vbOK
    Else
        Picture1.Width = Picture1.Width + 100
End If
End Sub

RE: [HELP]Progress Bar - Coder-san - 05-31-2011

Code:
Private Sub Timer1_Timer()
    Picture1.Visible = True
    If Picture1.Width >= 4565 Then
        Call MsgBox("Could not connect to server", vbInformation + vbOKOnly, "Error")
        Timer1.Enabled = False
    Else
        Picture1.Width = Picture1.Width + 100
End If
End Sub