tabbed webbrowser met progressbar vb 2010

[tim687]

Hallo,
Ik heb een tabbed webbrowser, allen doet de progressbar het niet

 Private Sub Progress(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserProgressChangedEventArgs)  
Dim CurProg As Double 
Dim MaxProg As Double  
CurProg = e.CurrentProgress  
MaxProg = e.MaximumProgress  
progressbar1.Value = (CurProg / MaxProg) * 100 
End Sub

Wie kan deze code verbeteren?
Bedankt,
Tim

 

[MartinJM]

Het zou wel handig zijn als de code er staat met enters ertussen... Het is nu niet echt makkelijk leesbaar...
En hoe roep je die sub aan??

 

[tim687]

Ja ik dacht dat hij dat dee zal proberen an te passen

 

[MartinJM]

En hoe roep je die sub aan??

 

[tim687]

AddHandler Browse.ProgressChanged, AddressOf Browse_Progress

 

[MartinJM]

Ok,

Ik heb even snel iets nagebouwd (met maar 1 browsercontrol) en daarbij werkte het.
Dan is dus de volgende vraag:

Hoe maak je een nieuw tabblad aan?

 

[tim687]

Die moet ik nog adden maar ik wou eerst mijn progressbar werkent hebben, code : http://www.dreamincode.net/forums/topic/70491-how-to-make-a-tabbed-webbrowser/
User: mimrah
Wel met een paar onbelangrijke aanpassingsn

 

[MartinJM]

Maar op dit moment doe je het dus met 1 webbrowser?


*EDIT*

Bij mij werkte het gewoon zo:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler WebBrowser1.ProgressChanged, AddressOf Progress
    End Sub

    Private Sub Progress(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserProgressChangedEventArgs)
        Dim CurProg As Double
        Dim MaxProg As Double
        CurProg = e.CurrentProgress
        MaxProg = e.MaximumProgress
        ProgressBar1.Value = (CurProg / MaxProg) * 100
    End Sub

 

[tim687]

Ja, maar dit is de vervanging voor webbrowser1: CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser) alleen die kent geen .progresschange of .progress, anders stuur ik morgen wel alles van mijn code.

 

[tim687]

Ik heb hem:
Dim CurProg As Double
Dim MaxProg As Double
CurProg = e.CurrentProgress
MaxProg = e.MaximumProgress
ProgressBar1.Value = CurProg / 2

 

[MartinJM]

Goedzo! :thumb:

Druk je dan ook even op 'vraag opgelost' rechtsboven de eerste post?


*EDIT*
Vergeet de volgende keer de code-tags a.u.b niet, dat maakt het lezen namelijk een stuk gemakkelijker..

 

[tim687]

Thanks zal ik doen!