Hi liebe Community,
ich schreibe an einem Programm, welches aus einer XML-Datei dynamisch eine Eingabemaske bauen soll. Ich habe zuvor noch nicht mit XML gearbeitet. Im Moment funktioniert die If-Abfrage (s. Code) noch nicht, hoffe mir kann jemand sagen wo da der Fehler liegt und wie man das Ganze dann so umsetzt, das es dynamisch funktioniert, also unabhängig davon, wie viele Räume es sind bzw. wie diese Räume dann heißen.
Letzten Endes soll es dann ungefähr so aussehen, wie im Anhang.
XML:
VB:
Ich hoffe ihr könnt mir weiterhelfen!
Schon mal danke im Voraus,
rory
ich schreibe an einem Programm, welches aus einer XML-Datei dynamisch eine Eingabemaske bauen soll. Ich habe zuvor noch nicht mit XML gearbeitet. Im Moment funktioniert die If-Abfrage (s. Code) noch nicht, hoffe mir kann jemand sagen wo da der Fehler liegt und wie man das Ganze dann so umsetzt, das es dynamisch funktioniert, also unabhängig davon, wie viele Räume es sind bzw. wie diese Räume dann heißen.
Letzten Endes soll es dann ungefähr so aussehen, wie im Anhang.
XML:
VB:
VB.NET-Quellcode
- Public XMLdatei As Xml.XmlDocument
- Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
- Dim XMLdatei = New Xml.XmlDocument
- XMLdatei.Load("C:\Users\michelle.trappen\Desktop\daten.xml")
- Dim XMLlesen As Xml.XmlReader = New Xml.XmlTextReader("C:\Users\michelle.trappen\Desktop\daten.xml")
- With XMLlesen
- Do While .Read
- If XmlNodeReader.IsName("raum1") Then
- Dim lb As New Label
- lb.Text = "Raum 1"
- lb.Location = New Point(10, 100)
- Me.Controls.Add(lb)
- End If
- If XmlNodeReader.IsName("anzahlpw") Then
- Dim tb As New TextBox
- tb.Location = New Point(10, 130)
- tb.Height = 22
- tb.Width = 30
- Me.Controls.Add(tb)
- End If
- If XmlNodeReader.IsName("geschlechtw") Then
- Dim cb As New CheckBox
- cb.Location = New Point(50, 130)
- cb.Text = "weiblich"
- Me.Controls.Add(cb)
- End If
- If XmlNodeReader.IsName("anzahlpm") Then
- Dim tb As New TextBox
- tb.Location = New Point(10, 160)
- tb.Height = 22
- tb.Width = 30
- Me.Controls.Add(tb)
- End If
- If XmlNodeReader.IsName("geschlechtm") Then
- Dim cb As New CheckBox
- cb.Location = New Point(50, 160)
- cb.Text = "männlich"
- Me.Controls.Add(cb)
- End If
- '...
- Loop
- End With
- End Sub
Ich hoffe ihr könnt mir weiterhelfen!
Schon mal danke im Voraus,
rory