html pagina openen met OpenFileDialog

Status
Niet open voor verdere reacties.
WarnedGraph zei:
logo???

Wat er eigenlijk moet staan is:
Code: 
    Private Sub WebBrowser_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser.ProgressChanged
        If Not WebBrowser.IsBusy Then
            [COLOR="Red"]Dim client As New System.Net.WebClient[/COLOR]
            Dim bytes() As Byte = client.DownloadData(WebBrowser.Url.AbsoluteUri & "favicon.ico")
            Dim img As System.Drawing.Image
            My.Computer.FileSystem.WriteAllBytes(Application.StartupPath & "\favicon.ico", bytes, False)
            img = Image.FromFile(Application.StartupPath & "\favicon.ico")
            'Je kan bvb 'img' laten tonen in een panel of  picturebox
        End If
    End Sub
Klik om te vergroten...

dat had ik al, maar met logo bedoel ik die favicon maar waar moet ik die nu zien...? of wat moet ik daarvoor aanpassen?
 
Sorry voor de trage reply, moest even wat eten!
Op je form voeg je toe: een Panel genaamd pnlIco met als hoogt en breedt 16:
Vervolgens volgende code (dit is dus het nieuwe processchanged event):

Code: 
    Private Sub WebBrowser_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser.ProgressChanged
        If Not WebBrowser.IsBusy Then
            Dim bytes() As Byte = client.DownloadData(WebBrowser.Url.AbsoluteUri & "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
            My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\favicon.ico")
        End If
    End Sub
 
WarnedGraph zei:
Sorry voor de trage reply, moest even wat eten!
Op je form voeg je toe: een Panel genaamd pnlIco met als hoogt en breedt 16:
Vervolgens volgende code (dit is dus het nieuwe processchanged event):

Code: 
    Private Sub WebBrowser_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser.ProgressChanged
        If Not WebBrowser.IsBusy Then
            Dim bytes() As Byte = client.DownloadData(WebBrowser.Url.AbsoluteUri & "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
            My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\favicon.ico")
        End If
    End Sub
Klik om te vergroten...

zeer bedankt!!!!:D Jij help teminste....ECHT GOED!!! (ik ben het nog aan het leren)
 
er kan nog iets verbeterd worden:
Code: 
Dim bytes() As Byte = client.DownloadData(WebBrowser.Url.AbsoluteUri & "favicon.ico")
moet worden (zo gaat het voor elke url dat je ingeeft. Vorige versie deed het enkel bij
de homepage):
Code: 
Dim bytes() As Byte = client.DownloadData("http://" & WebBrowser.Url.Host & "/favicon.ico")

Het is graag gedaan voor de help en nog veel succes met jou project!
 
WarnedGraph zei:
er kan nog iets verbeterd worden:
Code: 
Dim bytes() As Byte = client.DownloadData(WebBrowser.Url.AbsoluteUri & "favicon.ico")
moet worden (zo gaat het voor elke url dat je ingeeft. Vorige versie deed het enkel bij
de homepage):
Code: 
Dim bytes() As Byte = client.DownloadData("http://" & WebBrowser.Url.Host & "/favicon.ico")

Het is graag gedaan voor de help en nog veel succes met jou project!
Klik om te vergroten...

nog 1 ding,

als er een site is die GEEN favicon heeft blijft ie hangen op de favicon van de vorige site. Hou kan ik dan zorgen dat er een standaart favicons komt of gewoon geen als het niet mogelijk is...
 
Is geen probleem om dat te doen. Zal jou proberen duidelijk te maken waar dat alles moet komen te staan om dat probleem te verhelpen.

Code: 
    Private Sub WebBrowser_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser.ProgressChanged
        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

        End If
    End Sub

En ook nog (maar ik weet niet waar dat dat bij jou gebeurt) : Dit moet gebeuren wanneer je het adres hebt ingegeven en op enter hebt geduwd, maw wanneer de pagina moet laden.
Ik zal nu mijn voorbeeld stellen, je zal wel weten waar dat het gekleurde bij jou moet komen. Let wel. De plaats moet dezelfde zijn!

Code: 
        Dim adres As New Uri(cboAdres.Text)
        WebBrowser.Url = adres
        [COLOR="Red"]pnlIcon.BackgroundImage = Nothing[/COLOR]
 
WarnedGraph zei:
Is geen probleem om dat te doen. Zal jou proberen duidelijk te maken waar dat alles moet komen te staan om dat probleem te verhelpen.

Code: 
    Private Sub WebBrowser_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser.ProgressChanged
        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

        End If
    End Sub

En ook nog (maar ik weet niet waar dat dat bij jou gebeurt) : Dit moet gebeuren wanneer je het adres hebt ingegeven en op enter hebt geduwd, maw wanneer de pagina moet laden.
Ik zal nu mijn voorbeeld stellen, je zal wel weten waar dat het gekleurde bij jou moet komen. Let wel. De plaats moet dezelfde zijn!

Code: 
        Dim adres As New Uri(cboAdres.Text)
        WebBrowser.Url = adres
        [COLOR="Red"]pnlIcon.BackgroundImage = Nothing[/COLOR]
Klik om te vergroten...
nee dat weet ik niet:o
 
Laatst bewerkt:
Code: 
Dim adres As New Uri(cboAdres.Text)
WebBrowser.Url = adres
[COLOR="Red"]pnlIcon.BackgroundImage = Nothing[/COLOR]

Dat rode moet komen in de sub van de "Ga Naar" knop (zoals bij IE)
 
Dus de volgende code:

het opene:

Code: 
    Private Sub browseButton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles browseButton.Click
        Dim openFileDialog1 = New OpenFileDialog()

        ' Default directory is project root
        openFileDialog1.InitialDirectory = "..\..\"
        openFileDialog1.Filter = "HTML files (*.html)|*.html|HTM files (*.htm)|*.htm|All files (*.*)|*.*"
        openFileDialog1.FilterIndex = 2
        openFileDialog1.RestoreDirectory = True

        If openFileDialog1.ShowDialog() = DialogResult.OK Then
            fileNameTextBox.Text = openFileDialog1.FileName
            ' Display the HTML Doc as well.
            DisplayHTMLDoc(fileNameTextBox.Text.Trim())
        End If
    End Sub

het weergeven:

Code: 
DisplayHTMLDoc(fileNameTextBox.Text.Trim())

Je moet de naam voor de controls misschien wel wat aanpassen
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan