hallo
kann mir jemand helfen mit dem umsetzten eines kleinen Programms
es funktioniert alles bis auf die combobox
ich weiß nicht wie ich das umsetzen soll,
hab schon alles mögliche ausprobiert,
ich hab auch nach dem Thema gegoogelt ohne Erfolg
ich hoffe das mir hier einer helfen kann
um die funktionsweise mit XML besser zu verstehen
Download Projeckt
dl.dropbox.com/u/51858616/Download/XML-Test.rar
kann mir jemand helfen mit dem umsetzten eines kleinen Programms
es funktioniert alles bis auf die combobox
ich weiß nicht wie ich das umsetzen soll,
hab schon alles mögliche ausprobiert,
ich hab auch nach dem Thema gegoogelt ohne Erfolg
ich hoffe das mir hier einer helfen kann
um die funktionsweise mit XML besser zu verstehen
Download Projeckt
dl.dropbox.com/u/51858616/Download/XML-Test.rar
VB.NET-Quellcode
- 'imports
- Imports System.Xml
- Imports System.Xml.Serialization
- Public Class Form1
- 'Error
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- lblError.Text = ""
- End Sub
- 'Speichern
- Private Sub cmdSpeichern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSpeichern.Click
- Try
- Dim Kunde As New clsKunde()
- With Kunde
- If Me.optFrau.Checked = True Then
- .Geschlecht = "Frau"
- Else
- .Geschlecht = "Herr"
- End If
- .Vorname = txtVorname.Text
- .Zuname = txtZuname.Text
- .Strasse = txtStrasse.Text
- .Plz = txtPlz.Text
- .Ort = txtOrt.Text
- If chkInfo.Checked = True Then
- .Infopost = "Wahr"
- Else
- .Infopost = "Falsch"
- End If
- Dim objDatei As _
- New System.IO.FileStream(Application.StartupPath & "\Testxml.xml", _
- IO.FileMode.Create)
- Dim objSerializer As _
- System.Xml.Serialization.XmlSerializer
- objSerializer = New _
- System.Xml.Serialization.XmlSerializer(Kunde.GetType)
- objSerializer.Serialize(objDatei, Kunde)
- objDatei.Close()
- End With
- Catch ex As Exception
- lblError.Text = "Error"
- 'MessageBox.Show(ex.Message)
- End Try
- End Sub
- 'Laden
- Private Sub cmdLaden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLaden.Click
- Try
- Dim objSerializer As XmlSerializer
- Dim objStream As System.IO.FileStream
- Dim objGelKunde As clsKunde
- objStream = _
- New System.IO.FileStream(Application.StartupPath & "\Testxml.xml", _
- IO.FileMode.Open)
- objSerializer = New XmlSerializer(GetType(clsKunde))
- objGelKunde = objSerializer.Deserialize(objStream)
- With objGelKunde
- If .Geschlecht = "Frau" Then
- optFrau.Checked = True
- Else
- optHerr.Checked = True
- End If
- txtVorname.Text = .Vorname
- txtZuname.Text = .Zuname
- txtStrasse.Text = .Strasse
- txtPlz.Text = .Plz
- txtOrt.Text = .Ort
- If .Infopost = "Wahr" Then
- chkInfo.Checked = True
- End If
- End With
- objStream.Close()
- Catch ex As Exception
- lblError.Text = "Error"
- 'MessageBox.Show(ex.Message)
- End Try
- End Sub
- 'Klasse
- Public Class clsKunde
- Public Geschlecht As String
- Public Vorname As String
- Public Zuname As String
- Public Strasse As String
- Public Plz As String
- Public Ort As String
- Public Infopost As String
- End Class
- 'Leeren
- Private Sub cmdLeeren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLeeren.Click
- txtVorname.Clear()
- txtZuname.Clear()
- txtStrasse.Clear()
- txtPlz.Clear()
- txtOrt.Clear()
- End Sub
- End Class
XML-Quellcode
- <?xml version="1.0"?>
- <clsKunde xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
- <Geschlecht>Herr</Geschlecht>
- <Vorname>Vorname</Vorname>
- <Zuname>Zuname</Zuname>
- <Strasse>Straße 1234</Strasse>
- <Plz>123456</Plz>
- <Ort>Ort</Ort>
- <Infopost>Wahr</Infopost>
- </clsKunde>