![[VB 2010]Brauche Hilfe Webbrowser Favorite](https://www.elitepvpers.com/forum/iconimages/general-coding/vb-2010-brauche-hilfe-webbrowser-favorite_ltr.gif){kind=small}
hier der Code:
PHP Code:
Private Sub addFav_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles addFav.Click
If Not My.Settings.SavedLinks.Contains(aktiverBrowser.DocumentTitle & "," & aktiverBrowser.Url.ToString) Then
Dim I As New ToolStripButton
I.Text = aktiverBrowser.DocumentTitle
I.Tag = aktiverBrowser.Url.ToString
Favs.Items = Add(I)
AddHandler I.Click, AddressOf GoToLink
Dim s As New ToolStripSeparator
Favs.Items.Add(s)
My.Settings.SavedLinks.Add(aktiverBrowser.DocumentTitle & "," & aktiverBrowser.Url.ToString)
End If
End Sub
Public Sub GoToLink(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim Link As Uri = New Uri(sender.tag)
aktiverBrowser.Navigate(Link)
End Sub
Private Sub Remove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Remove.Click
Try
If My.Settings.SavedLinks IsNot Nothing Then
For Each SavedLink As String In My.Settings.SavedLinks
If SavedLink = aktiverBrowser.DocumentTitle & "," & aktiverBrowser.Url.ToString Then
My.Settings.SavedLinks.Remove(SavedLink)
My.Settings.Save()
For x As Integer = 0 To Favs.Items.Count - 2
If Favs.Items(x).Tag = aktiverBrowser.Url.ToString Then
Favs.Items.Remove(Favs.Items(x + 1))
Favs.Items.Remove(Favs.Items(x))
End If
Next
End If
Next
End If
Catch : End Try
End Sub
End Class
Die Eigenschaft "Items" ist ReadOnly.
&
"Add" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden.
Ich Will nicht alles Ändern ich will bitte nur wissen wie ich das weg bekomme!
Damit ich es zum Laufen bekomme!
Danke Schon mal!
Hier das Video:
Und Zur Info ich mache das erst seid 2 Wochen und bin Anfangern deswegen mache ich alles nach diesen Video damit ich mir ein Wenig alles einprägen kann!
