Lesezeichen mit Xml(Webbrowser)

    • VB.NET

    Es gibt 20 Antworten in diesem Thema. Der letzte Beitrag () ist von filmee24.

      Lesezeichen mit Xml(Webbrowser)

      Hey Ho Leute,

      Wie ihr sicher wisst wollen viele einen eigenen Webbrowser machen.Aber
      es gibt fast immer das gleiche Problem: Lesezeichen? Wie?

      Jetzt habe ich mal überall gekuckt und was gefunden.

      Lesezeichen mit Titel der Website und Url.

      Das alles wird in einer Xml datei abgespeichert.

      Dann wollen wir mal anfangen.


      Wir brauchen:

      Eine Form1 und eine Form2


      Form1:

      Einen Toolstrip
      mit einer ToolstripCombobox
      dann noch einen Toolstripbutton mit dem Text : Lesezeichen Manager

      Unteranderem noch einen Webbrowser, einen weiteren ToolStrip und noch einen MenuStrip mit dem Item: Lesezeichen

      Form2:

      Der Name ist Manager
      wir fügen 2 TextBoxen hinzu (Name und URL) und 2 Buttons (Hinzufügen und Löschen)
      und einen ListView mit 2 Colums(Website und URL)


      So das wars schonmal mit dem Design.

      Jetzt zum Code:


      Form1:


      VB.NET-Quellcode

      1. Imports System.Xml
      3. Public Class Form1
      4. Friend WithEvents tsbWebSite1 As System.Windows.Forms.ToolStripButton
      5. Dim xmldoc As New XmlDocument
      6. Private Sub AddTSButton(ByVal buttonName As String, ByVal webSiteName As String)
      7. Dim newbutton As New System.Windows.Forms.ToolStripButton
      8. Dim newle As New System.Windows.Forms.ToolStripMenuItem
      9. newle.Name = buttonName
      10. newle.Text = webSiteName
      11. newle.DisplayStyle = ToolStripItemDisplayStyle.Text
      12. newbutton.Name = buttonName
      13. newbutton.Text = webSiteName
      14. newbutton.DisplayStyle = ToolStripItemDisplayStyle.Text
      15. ToolStrip2.Items.Add(newbutton)
      16. LesezeichenToolStripMenuItem.DropDownItems.Add(newle)
      17. AddHandler newbutton.Click, AddressOf tsbutton_Click
      18. AddHandler newle.Click, AddressOf tsbutton_Click
      19. End Sub
      20. Public Sub AddToolStripButtons()
      21. xmldoc.Load(My.Application.Info.DirectoryPath & "\Bookmarks.xml")
      22. ToolStrip2.Items.Clear()
      23. LesezeichenToolStripMenuItem.DropDownItems.Clear()
      24. Dim websiteNodes As XmlNodeList
      25. Dim webSiteNode As XmlNode
      26. websiteNodes = xmldoc.GetElementsByTagName("WebSite")
      27. Dim iCount As Integer = 1
      28. For Each webSiteNode In websiteNodes
      29. Dim eachSiteNodes As XmlNodeList
      30. Dim eachSiteNode As XmlNode
      31. eachSiteNodes = webSiteNode.ChildNodes
      32. For Each eachSiteNode In eachSiteNodes
      33. If eachSiteNode.Name = "Name" Then
      34. AddTSButton("tsWebsite" & iCount.ToString, eachSiteNode.InnerText)
      35. iCount += 1
      36. End If
      37. Next
      38. Next
      39. End Sub
      40. Private Sub WebBrowser1_NewWindow(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
      41. e.Cancel = True
      42. End Sub
      43. Private Sub tsbutton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
      44. Try
      45. Dim aButton As ToolStripButton = CType(sender, ToolStripButton)
      46. GoToUrl(aButton.Text)
      47. Catch ex As Exception
      48. Dim a As ToolStripMenuItem = CType(sender, ToolStripMenuItem)
      49. GoToUrl(a.Text)
      50. End Try
      52. End Sub
      53. Private Sub GoToUrl(ByVal sWebsite As String)
      54. Dim xPath As String = "//WebSite[Name='" & sWebsite & "']/URL"
      55. Dim xn As XmlNode = xmldoc.SelectSingleNode(xPath)
      57. WebBrowser1.Navigate(xn.InnerText)
      58. 'ctype(tabcontrol1.selectedtab.controls(0), webbrowser).navigate(xn.innertext)
      60. End Sub
      63. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      64. AddToolStripButtons()
      65. WebBrowser1.Navigate("http://www.google.de/")
      66. End Sub
      68. Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
      69. Manager.Show()
      70. AddToolStripButtons()
      71. End Sub
      73. Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
      74. WebBrowser1.Navigate(ToolStripComboBox1.Text)
      75. ToolStripComboBox1.Items.Add(ToolStripComboBox1.Text)
      76. End Sub
      78. Private Sub ToolStripComboBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ToolStripComboBox1.KeyDown
      79. If e.KeyCode = Keys.Enter Then
      80. ToolStripButton1_Click(Nothing, Nothing)
      81. End If
      82. End Sub
      84. Private Sub ToolStripLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel1.Click
      86. End Sub
      87. End Class



      Jetzt zur Manager Form:


      VB.NET-Quellcode

      1. Imports System.Xml
      3. Public Class Manager
      4. Private Sub LoadList()
      5. ListView1.Items.Clear()
      6. Dim rdrXML As New XmlTextReader(My.Application.Info.DirectoryPath & "\Bookmarks.xml")
      7. rdrXML.MoveToContent()
      8. Dim ElementName As String = ""
      9. Dim NextItem As Boolean = True
      10. Dim objListViewItem As ListViewItem = Nothing
      11. Do While rdrXML.Read
      12. If NextItem Then
      13. objListViewItem = New ListViewItem
      14. NextItem = False
      15. End If
      16. Select Case rdrXML.NodeType
      17. Case XmlNodeType.Element
      18. ElementName = rdrXML.Name
      19. Case XmlNodeType.Text
      20. If ElementName = "Name" Then
      21. objListViewItem.Text = rdrXML.Value
      22. End If
      23. If ElementName = "URL" Then
      24. objListViewItem.SubItems.Add(rdrXML.Value)
      25. ListView1.Items.Add(objListViewItem)
      26. NextItem = True
      27. End If
      28. End Select
      29. Loop
      30. rdrXML.Close()
      31. End Sub
      32. Private Sub savelist()
      33. Dim wtrXML As New XmlTextWriter(My.Application.Info.DirectoryPath & "\Bookmarks.xml", System.Text.Encoding.UTF8)
      34. With wtrXML
      35. .Formatting = Formatting.Indented
      36. .WriteStartDocument()
      37. .WriteStartElement("WebSites")
      38. Dim objListViewItem As New ListViewItem
      39. For Each objListViewItem In ListView1.Items
      40. .WriteStartElement("WebSite")
      41. .WriteElementString("Name", objListViewItem.Text)
      42. .WriteElementString("URL", objListViewItem.SubItems(1).Text)
      43. .WriteEndElement()
      44. Next
      45. .WriteEndElement()
      46. .WriteEndDocument()
      47. .Flush()
      48. .Close()
      49. End With
      50. End Sub
      52. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      53. Dim objListViewItem As New ListViewItem
      54. objListViewItem.Text = TextBox1.Text
      55. objListViewItem.SubItems.Add(TextBox2.Text)
      56. ListView1.Items.Add(objListViewItem)
      57. TextBox1.Clear()
      58. TextBox2.Clear()
      59. savelist()
      61. End Sub
      63. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      64. Dim indexes As ListView.SelectedIndexCollection = ListView1.SelectedIndices
      65. Dim index As Integer
      66. For Each index In indexes
      67. ListView1.Items.RemoveAt(index)
      68. Next
      69. savelist()
      72. End Sub
      74. Private Sub Manager_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
      75. Form1.AddToolStripButtons()
      76. End Sub
      78. Private Sub Manager_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      79. LoadList()
      80. TextBox1.Text = Form1.WebBrowser1.DocumentTitle
      81. TextBox2.Text = Form1.WebBrowser1.Url.AbsoluteUri
      82. End Sub
      83. End Class



      Achtung: Die Xml Datei muss im gleichen Ordner sein wie euer Programm.


      So das wars.

      Ich stelle noch das ganze Projekt rein.

      Viel spaß!!!!!

      Download Source: Klick

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „One“ ()

      Ich frage mich grade ob man evt eine Ordner Struktur in diesen Lesezeichen Code basteln könnte.
      Das würde den Webbrowser schon fast an Perfektion grenzen lassen :)

    Facebook