Startseite / Tipps / VB 5/6-Tipp 0597: Formular aus XML-Datei erstellen und anzeigen

VB 5/6-Tipp 0597: Formular aus XML-Datei erstellen und anzeigen

 von Eckhart Wörner

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei XMLForm.vbp  -------------
' Es muss ein Verweis auf 'Microsoft XML, v3.0' gesetzt werden.

'---- Anfang Formular "FormMuster" alias FormMuster.frm  ----

'----- Ende Formular "FormMuster" alias FormMuster.frm  -----
'----- Anfang Formular "FormStart" alias FormStart.frm  -----
' Steuerelement: Schaltfläche "Verarbeiten"
' Steuerelement: Schaltfläche "Validieren"
' Steuerelement: Textfeld "DTDDateiname"
' Steuerelement: Schaltfläche "Einlesen"
' Steuerelement: Textfeld "XMLDateiname"
' Steuerelement: Beschriftungsfeld "Label6"
' Steuerelement: Beschriftungsfeld "Label5"
' Steuerelement: Beschriftungsfeld "Label4"
' Steuerelement: Beschriftungsfeld "Label3"
' Steuerelement: Beschriftungsfeld "Label2"
' Steuerelement: Beschriftungsfeld "Label1"

Option Explicit

Dim WithEvents Dokument As MSXML2.DOMDocument
Dim Fehler As MSXML2.IXMLDOMParseError

Private Sub Dokument_onreadystatechange()
    Select Case Dokument.readyState
    Case 1
        'Laden des Dokuments begonnen
        
    Case 2
        'Laden des Dokuments abgeschlossen
        
    Case 3
        'Datenstruktur liegt bereits Read-Only vor
        
    Case 4
        'Datenstruktur liegt komplett Read-Write vor bzw. Fehler
        '-> Überprüfung auf Fehler
        
        If Dokument.parseError.errorCode <> 0 Then
            MsgBox "Es gab einen Fehler beim Laden:" & vbCrLf & _
                Dokument.parseError.reason, vbCritical
            End
        Else
            Validieren.Enabled = True
        End If
    End Select
End Sub

Private Sub Einlesen_Click()
    'Schritt 1
    
    Dokument.Load XMLDateiname.Text
    XMLDateiname.Enabled = False
    Einlesen.Enabled = False
End Sub

Private Sub Form_Load()
    XMLDateiname = App.Path + "\Beispiel.xml"
    DTDDateiname = App.Path + "\xmlforms.dtd"
    Set Dokument = New MSXML2.DOMDocument
    Dokument.validateOnParse = False
End Sub

Private Sub Validieren_Click()
    'Schritt 2
    
    Validieren.Enabled = False
    Set Fehler = Dokument.Validate
    
    ' Überprüfung auf Fehler
    If Fehler.errorCode <> 0 Then
        MsgBox "Es gab einen Fehler beim Validieren:" & vbCrLf & _
            Fehler.reason, vbCritical
        End
    Else
        Verarbeiten.Enabled = True
    End If
End Sub

Private Sub Verarbeiten_Click()
    'Schritt 3
    
    Verarbeiten.Enabled = False
    
    'Hinweis zur Variablenbenennung:
    'Nodes haben Anfangsbuchstaben N, Attribute A
    Dim Nxmlforms As MSXML2.IXMLDOMNode
    Dim Nform As MSXML2.IXMLDOMNode
    Dim NformSubNode As MSXML2.IXMLDOMNode
    Dim Ncontrol As MSXML2.IXMLDOMNode
    Dim NcontrolSubNode As MSXML2.IXMLDOMNode
    Dim TempForm As FormMuster
    Dim TempControl As Control
    Dim ControlsZähler As Integer
    
    'Wurzel-Node abfragen
    Set Nxmlforms = Dokument.documentElement
    
    'Abfrage aller <form>-Nodes
    For Each Nform In Nxmlforms.childNodes
        
        'Erstellung eines neuen Formulars
        Set TempForm = New FormMuster
        
        'Sub-Nodes von <form> abfragen
        For Each NformSubNode In Nform.childNodes
            
            'Abfrage, ob es sich um <properties> oder
            '<controls> handelt
            Select Case NformSubNode.baseName
            Case "properties"
                'Übergibt den Node sowie die aktuelle Form an
                EigenschaftenForm NformSubNode, TempForm
                
            Case "controls"
                
                'Abfrage aller <control>-Nodes
                For Each Ncontrol In NformSubNode.childNodes
                    Set TempControl = TempForm.Controls.Add _
                        (Ncontrol.Attributes(0).Text, "T" & ControlsZähler)
                    TempControl.Visible = True
                    ControlsZähler = ControlsZähler + 1
                    
                    'Sub-Nodes von <control> abfragen
                    For Each NcontrolSubNode In Ncontrol.childNodes
                        If NcontrolSubNode.baseName = "properties" Then
                            'Übergibt den Node sowie das aktuelle Steuerelement an
                            EigenschaftenControl NcontrolSubNode, TempControl
                        End If
                    Next
                Next
            End Select
        Next
        TempForm.Show
    Next
End Sub

Sub EigenschaftenForm(Nproperties As MSXML2.IXMLDOMNode, F As FormMuster)
    Dim Nproperty As MSXML2.IXMLDOMNode
    Dim Aproperty As MSXML2.IXMLDOMAttribute
    Dim TempEigenschaft As String
    Dim TempEigenschaftWert As String
    
    'Abfrage aller <property>-Nodes
    For Each Nproperty In Nproperties.childNodes
        
        'Abfrage aller Attribute
        For Each Aproperty In Nproperty.Attributes
            
            'Abfrage, ob es sich um den Namen oder
            'den Wert der Eigenschaft handelt
            Select Case Aproperty.baseName
            Case "name"
                TempEigenschaft = Aproperty.Value
            Case "value"
                TempEigenschaftWert = Aproperty.Value
            End Select
        Next
        CallByName F, TempEigenschaft, VbLet, TempEigenschaftWert
    Next
End Sub

Sub EigenschaftenControl(Nproperties As MSXML2.IXMLDOMNode, C As Control)
    Dim Nproperty As MSXML2.IXMLDOMNode
    Dim Aproperty As MSXML2.IXMLDOMAttribute
    Dim TempEigenschaft As String
    Dim TempEigenschaftWert As String
    
    'Abfrage aller <property>-Nodes
    For Each Nproperty In Nproperties.childNodes
        
        'Abfrage aller Attribute
        For Each Aproperty In Nproperty.Attributes
        
            'Abfrage, ob es sich um den Namen oder
            'den Wert der Eigenschaft handelt
            Select Case Aproperty.baseName
            Case "name"
                TempEigenschaft = Aproperty.Value
            Case "value"
                TempEigenschaftWert = Aproperty.Value
            End Select
        Next
        
        CallByName C, TempEigenschaft, VbLet, TempEigenschaftWert
    Next
End Sub
'------ Ende Formular "FormStart" alias FormStart.frm  ------
'-------------- Ende Projektdatei XMLForm.vbp  --------------

Tipp-Kompatibilität:

Windows/VB-Version	Win32s	Win95	Win98	WinME	WinNT4	Win2000	WinXP
VB4
VB5
VB6

Hat dieser Tipp auf Ihrem Betriebsystem und mit Ihrer VB-Version funktioniert?

Ja, funktioniert!

Nein, funktioniert nicht bei mir!

VB-Version: VB6 VB5 VB4

Windows-Version: Windows XP Windows 2000 Windows NT4 Windows Me Windows 98 Windows 95 Win32s

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 10 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.