webbrowser

[kayhup]

ik heb een webbrowser gemaakt en wil dat als de pagina wordt geladen dat de progress bar gaat werken. net zoals bij internet explorer en firefox....

 

[WarnedGraph]

Dit had je al en met een paar kleine veranderingen is dit snel opgelost. Eerst en vooral
moet je dus een progressbar toevoegen, genaamd (in mijn voorbeeld) 'ProgressBar' en dan
de volgende code (je hebt het meeste al ):

    Private Sub WebBrowser_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser.ProgressChanged
        [COLOR="Red"]ProgressBar.Maximum = e.MaximumProgress
        ProgressBar.Value = e.CurrentProgress[/COLOR]        
        If Not WebBrowser.IsBusy Then
            Dim client As New System.Net.WebClient
            Dim bytes() As Byte = client.DownloadData("http://" & WebBrowser.Url.Host & "/favicon.ico")
            Dim img As System.Drawing.Image
            My.Computer.FileSystem.WriteAllBytes(Application.StartupPath & "\favicon.ico", bytes, False)
            Dim test As System.Drawing.Image.GetThumbnailImageAbort
            img = Image.FromFile(Application.StartupPath & "\favicon.ico").GetThumbnailImage(16, 16, test, System.IntPtr.Zero)
            pnlIcon.BackgroundImage = img
            If Not pnlIcon.BackgroundImage Is Nothing Then
                My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\favicon.ico")
            Else
                img = Image.FromFile("Geef hier een pad in voor default icon of verwijder de 'else' uit de 'if'")
                pnlIcon.BackgroundImage = img
            End If
            [COLOR="red"]ProgressBar.Value = 0[/COLOR]        
         End If
    End Sub

 

[kayhup]

Dit had je al en met een paar kleine veranderingen is dit snel opgelost. Eerst en vooral
moet je dus een progressbar toevoegen, genaamd (in mijn voorbeeld) 'ProgressBar' en dan
de volgende code (je hebt het meeste al ):

    Private Sub WebBrowser_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser.ProgressChanged
        [COLOR="Red"]ProgressBar.Maximum = e.MaximumProgress
        ProgressBar.Value = e.CurrentProgress[/COLOR]        
        If Not WebBrowser.IsBusy Then
            Dim client As New System.Net.WebClient
            Dim bytes() As Byte = client.DownloadData("http://" & WebBrowser.Url.Host & "/favicon.ico")
            Dim img As System.Drawing.Image
            My.Computer.FileSystem.WriteAllBytes(Application.StartupPath & "\favicon.ico", bytes, False)
            Dim test As System.Drawing.Image.GetThumbnailImageAbort
            img = Image.FromFile(Application.StartupPath & "\favicon.ico").GetThumbnailImage(16, 16, test, System.IntPtr.Zero)
            pnlIcon.BackgroundImage = img
            If Not pnlIcon.BackgroundImage Is Nothing Then
                My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\favicon.ico")
            Else
                img = Image.FromFile("Geef hier een pad in voor default icon of verwijder de 'else' uit de 'if'")
                pnlIcon.BackgroundImage = img
            End If
            [COLOR="red"]ProgressBar.Value = 0[/COLOR]        
         End If
    End Sub

bedankt

 

[WarnedGraph]

Sinds ik met jou aan het meedenken ben, begint mijn test-project veel mee te hebben
van IE 7

Nog veel succes!

 

[kayhup]

Sinds ik met jou aan het meedenken ben, begint mijn test-project veel mee te hebben
van IE 7

Nog veel succes!

dat is mooi, hoe heb je dit eigenlijk geleerd...??


P.S weet je eigenlijk ook hoe je tabladen kan maken.... net zoals bij IE 7 en firefox...

 

[WarnedGraph]

dat is mooi, hoe heb je dit eigenlijk geleerd...??

Verslaafd, Verslaafd ... zo zien 's avonds mijn ogen eruit: :shocked:


Ja, ik weet hoe je tabbladen toevoegd, maar je zal pas deze namiddag
een oplossing hebben. Ben nu momenteel bezig met iemand anders te
helpen en het gaat nogal traag vooruit, vermits ik vele dingen ben vergeten
door het niet meer te gebruiken.

 

[kayhup]

Verslaafd, Verslaafd ... zo zien 's avonds mijn ogen eruit: :shocked:


Ja, ik weet hoe je tabbladen toevoegd, maar je zal pas deze namiddag
een oplossing hebben. Ben nu momenteel bezig met iemand anders te
helpen en het gaat nogal traag vooruit, vermits ik vele dingen ben vergeten
door het niet meer te gebruiken.

Ok, ik wacht gewoon wel ff.... ik zit van 7 (ochend) tot 9/10(avond) op de computer....dus ik heb de tijd...

 

[WarnedGraph]

Heb de oplossing voor de tabs klaar, maar vermits dit nogal veel was om
hier te posten, heb ik het ingepakt en er een grote rode strik rond gedaan!
Er zijn 2 bestanden, want de maximum filesize is op dit forum 100kb :shocked:

Have Fun! :thumb:

 

[kayhup]

Heb de oplossing voor de tabs klaar, maar vermits dit nogal veel was om
hier te posten, heb ik het ingepakt en er een grote rode strik rond gedaan!
Er zijn 2 bestanden, want de maximum filesize is op dit forum 100kb :shocked:

Have Fun! :thumb:

Hij is echt heel gaaf!!!! Maar als ik hem in mijn project probeer te doen, dan lukt het niet... of hij maakt geen tabblad aan of hij wil geen ...doen.....zou jij daar miss. mee kunnen helpen....

 

[WarnedGraph]

tuurlijk ... stuur anders je project even door via email! je vindt mijn emailadres om mijn
profiel pagina!

 

[kayhup]

tuurlijk ... stuur anders je project even door via email! je vindt mijn emailadres om mijn
profiel pagina!

Gedaan....

 

[WarnedGraph]

Eveneens gedaan
Nu moet alles lekker draaien, misschien met wat kinderziektes, maar ja ...
geen programma is daar vrij van (cf. vista )!

P.S. Misschien kun je me mij de credits vermelden en ff linken naar mijn website

 

[kayhup]

Eveneens gedaan
Nu moet alles lekker draaien, misschien met wat kinderziektes, maar ja ...
geen programma is daar vrij van (cf. vista )!

P.S. Misschien kun je me mij de credits vermelden en ff linken naar mijn website

Ja howr:thumb: Heb ik ook in de e-mail gezet.... Ik hoor het wel