Hallo VB-Paradiser,
ich habe verschiedene Labels und Textboxen erstellt in denen man etwas eintragen soll. Jetzt möchte ich das ganze aber speichern als .xml Datei, klappt gut bis auf die ganzen Textboxen und Labels davor. Das heißt es wird nur das Letzt LAbel, Textbox eingelesen und gespeichert. Der Code ist folgender:
ich habe verschiedene Labels und Textboxen erstellt in denen man etwas eintragen soll. Jetzt möchte ich das ganze aber speichern als .xml Datei, klappt gut bis auf die ganzen Textboxen und Labels davor. Das heißt es wird nur das Letzt LAbel, Textbox eingelesen und gespeichert. Der Code ist folgender:
Visual Basic-Quellcode
- Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
- LBL = New Label 'Control
- LBL.Name = "Lbl_" & labelname
- LBL.Text = ComboBox1.SelectedItem
- LBL.Height = 13
- LBL.Width = 75
- LBL.Left = 439
- LBL.Top = i
- '39; 13
- LBL.BorderStyle = 0
- LBL.TextAlign = 2
- Me.Controls.Add(LBL)
- labelname = labelname + 1
- checkbox = New CheckBox
- checkbox.Name = "Checkbox" & labelname
- checkbox.Text = ""
- checkbox.Left = 400
- checkbox.Top = i
- Me.Controls.Add(checkbox)
- i = i + 30
- TXT1 = New TextBox
- TXT1.Name = "TXT1" & labelname
- TXT1.Left = 600
- TXT1.Top = a
- TXT1.Text = ""
- TXT1.Height = 20
- TXT1.Width = 60
- TXT1Name = TXT1Name + 1
- Me.Controls.Add(TXT1)
- a = a + 30
- TXTx = New TextBox
- TXTx.Name = "TXTx" & labelname
- TXTx.Left = 684
- TXTx.Top = b
- TXTx.Text = ""
- TXTx.Height = 20
- TXTx.Width = 100
- txtxname = txtxname + 1
- Me.Controls.Add(TXTx)
- b = b + 30
- Lblx = New Label 'Control
- Lblx.Name = "Lblx_" & labelname
- Lblx.Text = "x"
- Lblx.Height = 13
- Lblx.Width = 12
- Lblx.Left = 666
- Lblx.Top = c
- '39; 13
- Lblx.BorderStyle = 0
- Lblx.TextAlign = 2
- Me.Controls.Add(Lblx)
- c = c + 30
- lblwdh = New Label 'Control
- lblwdh.Name = "Lblwdh_" & labelname
- lblwdh.Text = "WDH."
- lblwdh.Height = 13
- lblwdh.Width = 37
- lblwdh.Left = 790
- lblwdh.Top = d
- '39; 13
- lblwdh.BorderStyle = 0
- lblwdh.TextAlign = 2
- Me.Controls.Add(lblwdh)
- d = d + 30
- End Sub
- Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
- Dim d As Date = Date.Today.ToString
- If File.Exists(Application.StartupPath & d & ".xml") = True Then
- File.Delete(Application.StartupPath & d & ".xml")
- Else
- File.WriteAllText(d & ".xml", LBL.Text & TXT1.Text & TXTx.Text & Lblx.Text & lblwdh.Text)
- End If
- End Sub