Need Help with Progress Bar

[yoda]

Code for that i made up doesn't work whats wrong?

Private Sub Command1_Click()
If Command1 Is pressed Then start ProgressBar1
End Sub

that's to start the progress bar but it doesn't.

Also do you know how to auto load a web page with MDI form or the frmBrowser form. Here the code for the frmbrowser form.

Option Explicit

Public StartingAddress As String
Dim mbDontNavigateNow As Boolean
Private Sub Form_Load()
On Error Resume Next
Me.Show
tbToolBar.Refresh
Form_Resize

cboAddress.Move 50, lblAddress.Top + lblAddress.Height + 15

If Len(StartingAddress) > 0 Then
cboAddress.Text = StartingAddress
cboAddress.AddItem cboAddress.Text
'try to navigate to the starting address
timTimer.Enabled = True
brwWebBrowser.Navigate StartingAddress
End If

End Sub



Private Sub brwWebBrowser_DownloadComplete()
On Error Resume Next
Me.Caption = brwWebBrowser.LocationName
End Sub

Private Sub brwWebBrowser_NavigateComplete(ByVal URL As String)
Dim i As Integer
Dim bFound As Boolean
Me.Caption = brwWebBrowser.LocationName
For i = 0 To cboAddress.ListCount - 1
If cboAddress.List(i) = brwWebBrowser.LocationURL Then
bFound = True
Exit For
End If
Next i
mbDontNavigateNow = True
If bFound Then
cboAddress.RemoveItem i
End If
cboAddress.AddItem brwWebBrowser.LocationURL, 0
cboAddress.ListIndex = 0
mbDontNavigateNow = False
End Sub

Private Sub cboAddress_Click()
If mbDontNavigateNow Then Exit Sub
timTimer.Enabled = True
brwWebBrowser.Navigate cboAddress.Text
End Sub

Private Sub cboAddress_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = vbKeyReturn Then
cboAddress_Click
End If
End Sub

Private Sub Form_Resize()
cboAddress.Width = Me.ScaleWidth - 100
brwWebBrowser.Width = Me.ScaleWidth - 100
brwWebBrowser.Height = Me.ScaleHeight - (picAddress.Top + picAddress.Height) - 100
End Sub

Private Sub picAddress_Click()

End Sub

Private Sub timTimer_Timer()
If brwWebBrowser.Busy = False Then
timTimer.Enabled = False
Me.Caption = brwWebBrowser.LocationName
Else
Me.Caption = "Working..."
End If
End Sub

Private Sub tbToolBar_ButtonClick(ByVal Button As Button)
On Error Resume Next

timTimer.Enabled = True

Select Case Button.Key
Case "Back"
brwWebBrowser.GoBack
Case "Forward"
brwWebBrowser.GoForward
Case "Refresh"
brwWebBrowser.Refresh
Case "Home"
brwWebBrowser.GoHome
Case "Search"
brwWebBrowser.GoSearch
Case "Stop"
timTimer.Enabled = False
brwWebBrowser.Stop
Me.Caption = brwWebBrowser.LocationName
End Select

End Sub

and For the Mdi Form here it is.


Private Sub MDIForm_Load()

End Sub

I'm doing this in my spare time so you don't have to hurry Please and Thank you
From Yoda and all of Canada Eh!

[Killer42]

Code for that i made up doesn't work whats wrong?

Private Sub Command1_Click()
If Command1 Is pressed Then start ProgressBar1
End Sub

that's to start the progress bar but it doesn't.

Is that the actual code you are trying to execute? If this is VB6 then I'd be very surprised to see it pass the syntax-check. I don't think "start" is even a statement, though you could create a sub called "start" and invoke that.

Anyway, you don't start a progress bar. From the moment it is placed on your form, it always displays (assuming it's visible) whatever is appropriate to the value currently in its .Value property. So what do you actually want to do with it when this button is clicked? Set it back to zero?

Keep in mind, the progress bar doesn't actually do any progress tracking for you. It just displays the information you give it, but as a bar instead of text. So if you want it to show the progress of some task, you need to first set .Min and .Max appropriately (I believe they default to 0 and 100 respectively, which is convenient for showing a percentage) and ensure .Value is set to the same as .Min. Then as you go through the task, you set .Value to progressively higher values, until it reaches .Max at the end of the task.

If you are not talking about VB6, then forget everything I said.

[yoda]

Thanks, but could put in lam mans terms, kind get what your saying but would put itin code.

Example:
Private Sub Command1_Click()
If Command1 Is Clicked then .Min = 0
If Command1 is clicked then .max = 100
End Sub

is it like that, just a guest, because right know i'm on my computer that doesn't
have vb 6.0 (i'm on my iMac). I've also got a question does VB come for mac or not.

[Killer42]

Thanks, but could put in lam mans terms, kind get what your saying but would put itin code.

Example:
Private Sub Command1_Click()
If Command1 Is Clicked then .Min = 0
If Command1 is clicked then .max = 100
End Sub

is it like that, just a guest, because right know i'm on my computer that doesn't
have vb 6.0 (i'm on my iMac). I've also got a question does VB come for mac or not.

I don't think VB is available for Mac, though I believe you can actually run Windows on the Mac now, so that would be one way. Probably not a lot of help, though.

I get the impression that you are struggling with the event-driven nature of VB (and lots of other languages). For a start, the Command1_Click routine is only executed when the user clicks Command1. So there is no need to try to detect whether it was clicked.

Try this...

Private Sub Command1_Click()
  ' These first two lines are probably not needed, since 0
  ' and 100 are the defaults.
  ProgressBar1.Min = 0 
  ProgressBar1.Max = 100
 
  ProgressBar1.Value = 0
End Sub

[yoda]

i'm only in high school and we only did a month of programming and now i'm trying to figure it out by myself.

thanks a lot for the code se you later Killer42

[yoda]

Sorry that CODE DIDN'T WORK i have know idea what to try nice please help
even if i clicked it didn't work and it didn't do it automaticly if thats what your saying
when you don't want it to detect if you clicked or not.

sorry if i'm confusing you

thanks dude

Yoda (canada EH)

[Killer42]

Sorry that CODE DIDN'T WORK i have know idea what to try nice please help
even if i clicked it didn't work and it didn't do it automaticly if thats what your saying
when you don't want it to detect if you clicked or not.

Can you try to explain what it didn't do, that you were expecting it to do?

As I said, the progress bar control just displays whatever number you place in it.
Try this simple example. In a new project, place a progress bar control on your form. Double-click the form to get to the code window, go right to the bottom and paste paste this code...

Private Sub Form_Click()
  ProgressBar1.Value = RND * 100 ' Set random value between 0 and 100.
End Sub

When you run it, you should find that every time you click anywhere on the form, the progress bar switches to a different setting.

Hopefully, this will help to illustrate both the use of the click event, and how to display a value in the progress bar.

Maybe you can have a go at changing it from a form click to a button click. :)

[yoda]

First thing it didn't do was even show that the progress bar was doing anything and even if i clicked on the button it wouldn't work.

Tried the one you just gave me but how do you get it not Random. I took that out it it didn't even work at all.

Example I did this:

Private Sub Form_Click()
ProgressBar1.Value = 0 * 100 ' Set value between 0 and 100.
End Sub

but i get the idea now. First you don't need "Private Sub Form_Click()"

You need:

Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x
As Single, y As Single)
ProgressBar1.Value = Rnd * 100 ' Set random value between 0 and 100.
End Sub
you get the point

And thanls for helping me but not giving me the Answers.

Yoda (Canada Eh)

[yoda]

Hey Killer i got it to work due hope i will see you if i have any questions on VB 6.0


Thanks Alot

Yoda Canada Eh

[Killer42]

but i get the idea now. First you don't need "Private Sub Form_Click()"

You need:

Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x
As Single, y As Single)

Oops! VB version problem. :) My code works in VB6.

Anyway, glad to see you've got it worked out.

[willakawill]

Oops! VB version problem. :) My code works in VB6.

Anyway, glad to see you've got it worked out.

I love it :)
Our friend yoda has been sent from on high to test levels of patience. Congratulations Killer, you have it in buckets :)