visual basic browser (favorieten)

Status
Niet open voor verdere reacties.
leuthrick

leuthrick

Gebruiker
Lid geworden
17 sep 2008
Berichten
454
hallo

ik ben met een webbrowser bezig maar weet iemand hoe je de favorieten laad en opslaat

ik heb al verschillende codes geprobeerd

maar die werken niet zoals ik wil

ik wil zo iets al in internet Explorer of Mozilla Firefox

ik werk met microsoft visual basic 2008

mvg rick
 
een simpel stappenplan:


1. eerst gaan bedenken hoe je het wilt opslaan. text file? binair file? register?
2. dan gaan zoeken op g00gle hoe je in jouw versie van VB dat kan doen. Bijvoorbeeld, zoeken op 'writing and reading to register visual basic 2008' ofzo.
​

:thumb:
 
Vegras zei:
een simpel stappenplan:


1. eerst gaan bedenken hoe je het wilt opslaan. text file? binair file? register?
2. dan gaan zoeken op g00gle hoe je in jouw versie van VB dat kan doen. Bijvoorbeeld, zoeken op 'writing and reading to register visual basic 2008' ofzo.
​

:thumb:
Klik om te vergroten...

Ik zou met een My.Setting en een Array werken, de array om het lokaal en tijdelijk opteslaan en waarvanuit het aan te roepen is en een my.setting om het in op te slaan als het programma sluit.

Zo bijv.

maak een combobox. (noem hem cmbFavorieten_Urls)

Maak bij "My Project"in settings een setting aan en noem hem "Array_Favorieten"
zet in de load van je form dit:
Code: 
Dim strArray_Favorieten(My.Settings.Array_Favorieten.Length) as string = My.Settings.Array_Favorieten.Tostring()
cmbFavorieten_Urls.items = strArray_Favorieten

maak een Knop en noem hem btnVoegToe
als je er op klikt wordt de geopende url in je webbrowser toegevoegd aan je favorieten

Zorg trouwens dat je webbrowsercontrol "wbWeb"heet
dat is wat makkelijker in de code.

Zet in de click van btnVoegToe dit
Code: 
ReDim strArray_Favorieten(strArray_Favorieten.Length + 1) = strArray_Favorieten
str_Favorieten(strArray_Favorieten.Length) = wbWeb.url
cmbFavorieten_Urls.items = strArray_Favorieten

en in de clossing van je form zet je:
Code: 
My.Settings.Array_Favorieten = strArray_Favorieten
My.Settings.Save()

dit zou volgens mij MOETEN werken!

Klik tot slot dubbel op de combobox in de ontwerpmode en voer deze code in:
Code: 
wbWeb.Natvigate(CType(cmbFavorieten_Urls.selecteditem, Uri)
 
Laatst bewerkt:
oke bedankt :thumb:
ik zal vanavond eens proberen maar stel dat je een favorieten in internet explorter op slaat kan mijn browser hem dan laden?

mvg rick
 
thomasderoo zei:
Ik zou met een My.Setting en een Array werken, de array om het lokaal en tijdelijk opteslaan en waarvanuit het aan te roepen is en een my.setting om het in op te slaan als het programma sluit.

Zo bijv.

maak een combobox. (noem hem cmbFavorieten_Urls)

Maak bij "My Project"in settings een setting aan en noem hem "Array_Favorieten"
zet in de load van je form dit:
Code: 
Dim strArray_Favorieten(My.Settings.Array_Favorieten.Length) as string = My.Settings.Array_Favorieten.Tostring()
cmbFavorieten_Urls.items = strArray_Favorieten

maak een Knop en noem hem btnVoegToe
als je er op klikt wordt de geopende url in je webbrowser toegevoegd aan je favorieten

Zorg trouwens dat je webbrowsercontrol "wbWeb"heet
dat is wat makkelijker in de code.

Zet in de click van btnVoegToe dit
Code: 
ReDim strArray_Favorieten(strArray_Favorieten.Length + 1) = strArray_Favorieten
str_Favorieten(strArray_Favorieten.Length) = wbWeb.url
cmbFavorieten_Urls.items = strArray_Favorieten

en in de clossing van je form zet je:
Code: 
My.Settings.Array_Favorieten = strArray_Favorieten
My.Settings.Save()

dit zou volgens mij MOETEN werken!

Klik tot slot dubbel op de combobox in de ontwerpmode en voer deze code in:
Code: 
wbWeb.Natvigate(CType(cmbFavorieten_Urls.selecteditem, Uri)
Klik om te vergroten...


kan ik
Code: 
Dim strArray_Favorieten(My.Settings.Array_Favorieten.Length) as string = My.Settings.Array_Favorieten.Tostring()
cmbFavorieten_Urls.items = strArray_Favorieten
ook zonder haakjes schrijven
Code: 
Dim strArray_Favorieten as string = My.Settings.Array_Favorieten.Tostring()

met haakjes rekent hij niet goed

in my sttings heb ik name = Array_Favorieten
type = string
scope = application
en bij value staat niks


mvg rick
 
leuthrick zei:
kan ik
Code: 
Dim strArray_Favorieten(My.Settings.Array_Favorieten.Length) as string = My.Settings.Array_Favorieten.Tostring()
cmbFavorieten_Urls.items = strArray_Favorieten
ook zonder haakjes schrijven
Code: 
Dim strArray_Favorieten as string = My.Settings.Array_Favorieten.Tostring()

met haakjes rekent hij niet goed

in my sttings heb ik name = Array_Favorieten
type = string
scope = application
en bij value staat niks


mvg rick
Klik om te vergroten...

Het spijt me maar ik heb die code ter pleke geschreven je zult een beetje moeten puzzelen het is iets in die aard!
 
hallo het werkt nu maar ik kan maar 2 pagina's opslaan weet iemand een code waardoor ik oneindig veel pagina's kan op slaan

dit was mij code:
Code: 
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://www.yahoo.com/")
        TextBox1.Text = ("http://www.yahoo.com/")
        book1.Text = My.Settings.empty
        book1.ToolTipText = My.Settings.book1
        book1.Visible = True
        book2.Text = My.Settings.empty2
        book2.ToolTipText = My.Settings.book2
        book2.Visible = True
        If My.Settings.book1.Contains(".") = False Then
            book1.Visible = False
        Else
            book1.Visible = True
        End If
        If My.Settings.book2.Contains(".") = False Then

            book2.Visible = False
        Else
            book2.Visible = True
        End If
    End Sub

    Private Sub add_butt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add_butt.Click
        If book1.ToolTipText = ("") Then
            book1.ToolTipText = (TextBox3.Text)
            book1.Text = (TextBox2.Text)
            book1.Visible = True
            My.Settings.book1 = book1.ToolTipText
            My.Settings.empty = book1.Text
            My.Settings.Save()
        ElseIf book2.ToolTipText = ("") Then
            book2.ToolTipText = (TextBox3.Text)
            book2.Text = (TextBox2.Text)
            book2.Visible = True
            My.Settings.book2 = book2.ToolTipText
            My.Settings.empty2 = book2.Text
            My.Settings.Save()
        End If
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

    End Sub

    Private Sub WebBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
        TextBox2.Text = (WebBrowser1.DocumentTitle)
        TextBox3.Text = (WebBrowser1.Url.ToString)
    End Sub

    Private Sub go_butt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles go_butt.Click
        WebBrowser1.Navigate(TextBox1.Text)
    End Sub
    Private Sub book1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles book1.Click
        WebBrowser1.Navigate(book1.ToolTipText)
    End Sub

    Private Sub book2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles book2.Click
        WebBrowser1.Navigate(book1.ToolTipText)
    End Sub

    Private Sub del1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles del1.Click
        book1.ToolTipText = ("")
        book1.Visible = False
        My.Settings.book1 = ("")
    End Sub

    Private Sub del2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles del2.Click
        book2.ToolTipText = ("")
        book2.Visible = False
        My.Settings.book1 = ("")
    End Sub
End Class


alvast bedankt
 
Laatst bewerkt:
ik weet het niet zeker hoor maar misschien kun je een listbox maken en dan ipv. die books dan in de listbox laten opslaan. verder weet ik niet echt meer maar ik denk dat je op een adner antwoord kan wachten of in ander codes die met wat ik zij te maken hebben kijken om er iets uit te halen. succes verder.
 
het is al gelukt,
blijkbaar vergeeten om op opgelost te klikken:o
ik doe geen vb meer maar php

ik had het via een combox dacht ik.

toch bedankt
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan