Imports System.Xml
Public Class Form1
 
    Dim xmlDok As New XmlDocument
 
#Region "Laden"
    Dim DateiLang As String
    Private Sub btnLaden_Click(ByVal sender As System.Object, _
                                ByVal e As System.EventArgs) _
                                Handles btnLaden.Click
 
        If dlgXmlÖffnen.ShowDialog = Windows.Forms.DialogResult.OK Then
            DateiLang = dlgXmlÖffnen.FileName
        Else
            Exit Sub
        End If
        xmlDokLaden()
    End Sub
 
    Private Sub Form1_DragEnter(ByVal sender As System.Object, _
                ByVal e As System.Windows.Forms.DragEventArgs) _
                Handles MyBase.DragEnter
 
        Dim Dateien() As String = CType(e.Data.GetData(DataFormats.FileDrop), _
          String())
        If Dateien.GetUpperBound(0) = 0 Then
            DateiLang = Dateien(0).ToString
        End If
        xmlDokLaden()
    End Sub
 
Sub xmlDokLaden()
        xmlDok.RemoveAll()
        Try
            xmlDok.Load(DateiLang)
        Catch ausnahmeKeinXml As XmlException
            MessageBox.Show("XmlException:" & vbCrLf & vbCrLf & "Keine" & _
              "Xml-Daten")
        Catch ausnahme As Exception
            MessageBox.Show("Anderer Fehler beim Laden von Xml-Dokument:" _
                            & vbCrLf & vbCrLf & ausnahme.Message)
        End Try
        Text = "KnotenInfo " & My.Computer.FileSystem.GetName(DateiLang)
        tvwFüllen()
        tvw.Select()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, _
                    ByVal e As System.EventArgs) _
                    Handles Me.Load
        xmlDok.PreserveWhitespace = True
    End Sub
 
    Private Sub chkPreserveWhiteSpace_Click(ByVal sender As Object, _
                                    ByVal e As System.EventArgs) _
                                    Handles chkPreserveWhiteSpace.Click
        tvwAusgewählt = txtSuchen.Text
        xmlDok.PreserveWhitespace = chkPreserveWhiteSpace.Checked
 
        xmlDokLaden()
        Try
            tvw.SelectedNode = tvw.Nodes.Find(tvwAusgewählt, True)(0)
        Catch ex As Exception
            MessageBox.Show("Tree-Knoten nicht gefunden!")
        End Try
        tvw.Select()
    End Sub
#Region "Darstellung"
    Dim tvwAusgewählt As String
    Dim tvwSchlüssel As Integer
 
 
 
    Sub tvwFüllen()
        txtAusgabe.Text = ""
        tvw.BeginUpdate()
        tvw.Nodes.Clear()
 
        Dim xKnotenListe As XmlNodeList = xmlDok.SelectNodes("*")
        Dim tKnoten As TreeNode = tvw.Nodes.Add("")
 
        tvwSchlüssel = 0
        tKnoten.Name = tvwSchlüssel.ToString("00")
        For Each xn As XmlNode In xKnotenListe
            ebeneLesen(xn, tKnoten)
        Next
 
        tvw.EndUpdate()
        tvw.Select()
    End Sub