'#######################    XML DATEI ÖffNEN  ##############################
    Private Sub tsmÖffnen_Click(sender As Object, e As EventArgs) Handles _
      tsmÖffnen.Click
        '
        Dim XmlDoc As XmlDocument                  ' XML Dokument
        Dim XmlRoot As XmlElement                  'XMLWurzelknoten
        Dim XmlRtb As XmlElement                   ' <RichTextBox>-Knoten
        Dim XmlPb As XmlElement
        Dim RtbName As String         ' Name der RichTextBox in der XML-Datei
        Dim RtfText As String     ' Rtf-Text der RichTextBox in der XML-Datei
        Dim PbName As String
        Dim PbPfad As String
 
        Dim myData As String = ""
        Dim filedialog As New OpenFileDialog
        filedialog.InitialDirectory = Application.StartupPath & "\xmlData"
        filedialog.ShowDialog()
 
        If (filedialog.ShowDialog() = DialogResult.OK) Then
            myData = filedialog.FileName
 
            ' Wenn XML-Datei existiert, dann deren Werte nehmen
            XmlDoc = New XmlDocument
            XmlDoc.Load(filedialog.FileName)         ' XML-Datei laden
            XmlRoot = XmlDoc.DocumentElement 'AufWurzelknoten positionieren
            XmlRtb = XmlRoot.FirstChild      ' 1. <RichTextBox>-Knoten holen
 
      While XmlRtb IsNot Nothing ' Solange noch <RichTextBox>-Knoten da sind
       RtbName = XmlRtb.GetAttribute("name") ' Attribut-Wert auslesen
       RtfText = XmlRtb.InnerText
                ' ???? While Schleife
                PbName = XmlPb.GetAttribute("name")
                PbPfad = XmlPb.InnerText
 
                For Each tb In Panel1.Controls.OfType(Of _
                  RichTextBoxEx.RichTextBoxEx)()
                    For Each pb In Panel1.Controls.OfType(Of PictureBox)()
 
                        If tb.Name = RtbName Then ' Wenn Name übereinstimmt:
                            tb.Rtf = RtfText    ' Rtf-Text übernehmen
                            Exit For           ' For-Loop verlassen
                        End If
 
                        If pb.Name = PbName Then
                            pb.ImageLocation = PbPfad
                            Exit For
                        End If
 
                    Next
                Next
          XmlRtb = XmlRtb.NextSibling  ' Nächsten <RichTextBox>-Knoten holen
                XmlPb = XmlPb.NextSibling
            End While
 
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

 
<?xml version="1.0" encoding="UTF-8"?>
 
-<Root>
[text gelöscht]
 
</Root>

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

        Dim xdoc As New XmlDocument
        xdoc.Load("C:\Test\getXmlValue.xml")
 
        Dim path As String = xdoc.SelectSingleNode( _
          "//PictureBox[@name=""pb1""]").InnerText

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist