Visual Basic 2010 Progressbar

[skidd]

Hei igjen.

 

jeg holder nå på med progressbar i nettleseren, jeg har testet de kodene jeg finner på div forum og de som er på youtube, men ingen vil tydelivis fungere :/

 

har prøvd noen enkle å som:

_____________________________________________________________

Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged

ProgressBar1.Value = e.CurrentProgress

End Sub

End Class

_____________________________________________________________

 

og:

_____________________________________________________________

Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged

ProgressBar1.Value = 1

ProgressBar1.Value = 100

End Sub

End Class

 

men med den nederste koden så trenger jeg noe til å stoppe "progressbaren" for med den så er den grøn hele tiden.

[Merko]

Grunnen for at den er grønn heletiden er jo pga du setter den til 100 (som sikkert er max)

[skidd]

Grunnen for at den er grønn heletiden er jo pga du setter den til 100 (som sikkert er max)

 

Det vet jeg.

 

har holdt på i noen timer nå, å finenr ikke ut hvordan jeg lager til en kode som gjøre at når den baren har nådd max grensen som da er 100 at den da skjuler seg, å kommer tilbake neste gang den skal "loade" en side.

[GeirGrusom]

Sjekk i e argumentet. Jeg lurer på om den ikke definerer min og maks for deg, eller så er verdien definert til et eller annet område (sikker 0 til 100 eller 0 til 1)

Endret 9. februar 2011 av GeirGrusom

[skidd]

Sjekk i e argumentet. Jeg lurer på om den ikke definerer min og maks for deg, eller så er verdien definert til et eller annet område (sikker 0 til 100 eller 0 til 1)

 

det kan jeg gjøre, så en film på youtube om en så brukte denne:

 

ProgressBar1.Value = e.CurrentProgress

 

jeg gjore det på akkurat samme måte så han gjore det på, men den fungerte helder ikke..

 

men skal spekulere litt på e. å se hva jeg finenr ut

[Joa1]

Prøv å sett progressbar max value til e.MaxProgress

[skidd]

Prøv å sett progressbar max value til e.MaxProgress

 

Denne koden fungerer fint

 

        If e.CurrentProgress = -1 Then ProgressBar1.Value = 100
       Label1.Text = "Done"
       ProgressBar1.Visible = False
       If e.CurrentProgress > 0 And e.MaximumProgress > 0 Then
           ProgressBar1.Visible = True
           ProgressBar1.Value = e.CurrentProgress * 100 / e.MaximumProgress
           ProgressBar1.Minimum = (1)
           ProgressBar1.Maximum = (100)
           Label1.Text = Int(100)
       End If
   End Sub

 

 

 

men somme tider når jeg laster inn f.eks siden: www.nor-film.com så kommer denne feilmeldingen under til koden "e.MaximumProgress"

 

Value of '8557' is not valid for 'Value'. 'Value' should be between 'minimum' and 'maximum'.

Parameter name: Value

 

vet du hvordan jeg kan endre koden til at jeg kan unngå dette?

 

Edit.

meldingen komemr random tydelivis

Endret 9. februar 2011 av skidd

[GeirGrusom]

Sjekk hva verdien for e.Maximum og e.Value er når feilen kommer.

[skidd]

Sjekk hva verdien for e.Maximum og e.Value er når feilen kommer.

 

Eureka! har såtte å surfet på nettleseren nå i ca 20 min, gått fra side til side, å den koden her fungere det uten noe problemer i det hele tatt

 

        If e.CurrentProgress = -1 Then ProgressBar1.Value = 100
       ProgressBar1.Visible = False
       If e.CurrentProgress > 0 And e.MaximumProgress > 0 Then
           ProgressBar1.Visible = True
           ProgressBar1.Value = e.CurrentProgress * 100 / e.CurrentProgress
           ProgressBar1.Minimum = (1)
           ProgressBar1.Maximum = (100)
       End If
   End Sub

[skidd]

og dette er med statustext til progressbaren.

 

        If e.CurrentProgress = -1 Then ProgressBar1.Value = 100
       Label1.Text = "Done"
       ProgressBar1.Visible = False
       If e.CurrentProgress > 0 And e.MaximumProgress > 0 Then
           ProgressBar1.Visible = True
           ProgressBar1.Value = e.CurrentProgress * 100 / e.CurrentProgress
           ProgressBar1.Minimum = (1)
           ProgressBar1.Maximum = (100)
           Label1.Text = "Loading.."
       End If
   End Sub

[Merko]

Fint du vil dele koden med oss.

 

Du bør forøvrig navngi tingene dine bedre istedet for "Label1", "ProgressBar1" osv. Dårlig vane om du ikke navngir dem sikkelig.

Endret 10. februar 2011 av Merko.

[skidd]

Fint du vil dele koden med oss.

 

Du bør forøvrig navngi tingene dine bedre istedet for "Label1", "ProgressBar1" osv. Dårlig vane om du ikke navngir dem sikkelig.

 

Takk for tipset

 

begynte for 2 dager siden, så er fortsatt i teststadiet, men skal huske på det neste gang