Combobox mit Xml Werten füllen

Alex - AK · 10. November 2012, 01:22

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

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>

Derfuhr · 10. November 2012, 08:28

Ich habe mich kürzlich auch mal mit XML befasst, allerdings habe ich das nicht mit einer
ComboBox gemacht, ich habe das mit einer DataGridView gemacht mit nem Dataset,
aber vieleicht kannst du damit was anfangen? Die Projektmappe habe ich in dem
Thread auch hochgeladen(Post #25).

[VB 2010] Multiple Chice Fragen in gemischter Reihenfolge mit anschließender Auswertung mit Microsoft Visual Basic 2010 Express

mfG

Derfuhr

ErfinderDesRades · 10. November 2012, 15:03

Daten laden, speichern, verarbeiten

Alex - AK · 11. November 2012, 22:16

in meinem label steht folgendes
System.Data.DataRow View

warum ???

VB.NET-Quellcode

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ds As New DataSet
ds.ReadXml("C:\Users\Alex\Desktop\Test1Kopie.xml")
With Me.ComboBox1
.DataSource = ds.Tables("Auswahl")
.DisplayMember = "Display"
.ValueMember = "Value"
End With
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
'MessageBox.Show(CType(sender, ComboBox).SelectedValue.ToString())
Label1.Text = (CType(sender, ComboBox).SelectedValue.ToString())
End Sub
End Class

XML-Quellcode

<?xml version="1.0"?>
<XML>
<Auswahl>
<Display>Eintrag1</Display>
<Value>Hallo</Value>
</Auswahl>
<Auswahl>
<Display>Eintrag2</Display>
<Value>Hallo2</Value>
</Auswahl>
<Auswahl>
<Display>Eintrag3</Display>
<Value>Hallo3</Value>
</Auswahl>
</XML>

ErfinderDesRades · 11. November 2012, 22:29

weil Combobox.SelectedItem ist in deinem Falle ein DataRowView.

Warum probierst du nicht einfach mal Daten laden, speichern, verarbeiten?

Alex - AK · 11. November 2012, 22:42

ich möchte das mit einer combobox machen

so sollte die xml aussehen

XML-Quellcode

<clsKunde xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<Auswahl>
<Display>Eintrag1</Display>
<Value>Hallo</Value>
<Geschlecht>Herr</Geschlecht>
<Vorname>Vorname</Vorname>
<Zuname>Zuname</Zuname>
<Strasse>Straße 123</Strasse>
<Plz>123456</Plz>
<Ort>Ort</Ort>
<Infopost>Wahr</Infopost>
</Auswahl>
<Auswahl>
<Display>Eintrag2</Display>
<Value>Hallo</Value>
<Geschlecht>Herr</Geschlecht>
<Vorname>Vorname</Vorname>
<Zuname>Zuname</Zuname>
<Strasse>Straße 123</Strasse>
<Plz>123456</Plz>
<Ort>Ort</Ort>
<Infopost>Wahr</Infopost>
</Auswahl>
</clsKunde>

und da ich in sachen vb mich erst seit kurzem damit befasse, weiß ich nicht wie ich es umsetzen soll

eigentlich solls ja ganz simpel sein
ungefär so

prntscr.com/jiau3

Derfuhr · 12. November 2012, 07:52

Es ist ja eigentlich simpel, wenn mann weiss was zu tun ist. So kann man "rows"
oder auch einzelne "Einträge" aus nem DataSet/DataTable in eine ComboBox laden.

VB.NET-Quellcode

Imports System.Xml
Public Class Form1
Dim xmlFile As XmlReader
Dim ds As New DataSet
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
xmlFile = XmlReader.Create("test.xml", New XmlReaderSettings())
ds.ReadXml(xmlFile)
xmlFile.Close()
For i As Integer = 0 To ds.Tables("Auswahl").Rows.Count - 1
Dim cRow As DataRow = ds.Tables("Auswahl").Rows(i)
ComboBox1.Items.Add(CStr(cRow("Display")) & ";" & CStr(cRow("Value")) _
& ";" & CStr(cRow("Geschlecht")) & ";" & CStr(cRow("Vorname")) _
& ";" & CStr(cRow("Zuname")) & ";" & CStr(cRow("Strasse")) _
& ";" & CStr(cRow("Plz")) & ";" & CStr(cRow("Ort")) & ";" & CStr(cRow("Infopost")))
Next
End Sub
End Class

Als kleinen Tip nebenbei, wenn du die XML Datei von Hand tippst dann denke
daran, das man in XML Umlaute und Sonderzeichen genau wie in HTML schreibt!
(hab dein XML Code kopiert und es kam eine Fehlermeldung wegen dem "ß" beim laden)

devtrain.de/artikel_296.aspx

mfG

Derfuhr

Alex - AK · 12. November 2012, 21:16

Vielen dank ihr habt mir sehr geholfen

Alex - AK · 12. November 2012, 22:50

hm eigentlich ist es noch nicht das was ich mir so vorgestellt
das in der Combobox der Eintrag1 - Eintrag3 zusehen ist
und in den Textboxen zu dem Eintrag1 dann der Name und Zuname Ausgegeben wird
hab schon alles ausprobiert ich bekomm es einfachnicht hin

das alles in einem Array gespeichert wird und man es jederzeit erweitern kann
das alles nicht so kompliziert wird wen man was erweitern möchte

XML-Quellcode

<?xml version="1.0"?>
<Array-Combobox-Item>
<cls-Auswahl>
<Combobox-Eintrag>Eintrag1</Combobox-Eintrag>
<TextBox1-Ausgabe>Vorname1</TextBox1-Ausgabe>
<TextBox2-Ausgabe>Zuname<1/TextBox2-Ausgabe>
</cls-Auswahl>
<cls-Auswahl>
<Combobox-Eintrag>Eintrag2</Combobox-Eintrag>
<TextBox1-Ausgabe>Vorname2</TextBox1-Ausgabe>
<TextBox2-Ausgabe>Zuname2</TextBox2-Ausgabe>
</cls-Auswahl>
<cls-Auswahl>
<Combobox-Eintrag>Eintrag3</Combobox-Eintrag>
<TextBox1-Ausgabe>Vorname3</TextBox1-Ausgabe>
<TextBox2-Ausgabe>Zuname3</TextBox2-Ausgabe>
</cls-Auswahl>
</Array-Combobox-Item>

So wie hier aber alles aus einer xml ausgelesen wird

VB.NET-Quellcode

Public Class frmCombo
Private Sub frmCombo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim marr As New List(Of comboItem)() ' besser, da typisiert
marr.Add(New comboItem With {.Id = 1, .Text = "Eintrag1", .Description = "Dies ist der Langtext zu Eintrag1"})
marr.Add(New comboItem With {.Id = 2, .Text = "Eintrag2", .Description = "Dies ist der Langtext zu Eintrag2"})
marr.Add(New comboItem With {.Id = 3, .Text = "Eintrag3", .Description = "Dies ist der Langtext zu Eintrag3"})
ComboBox1.DisplayMember = "Text"
ComboBox1.ValueMember = "Id"
ComboBox1.DataSource = marr
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim selectedItem As comboItem = DirectCast(ComboBox1.SelectedItem, comboItem)
TextBox1.Text = selectedItem.Description ' DirectCast ist hier besser
PictureBox1.Image = ImageList1.Images(selectedItem.Id) ' hier
End Sub
Public Class comboItem
Public Property Id As Integer
Public Property Text As String
Public Property Description As String
End Class

ErfinderDesRades · 12. November 2012, 22:57

probier doch mal Daten laden, speichern, verarbeiten.

Was du bauen willst, bezeichne ich als "DetailView", wobei du als ListenControl eine Combo zu verwenden gedenkst. Zu den verschiedenen Views: vier Views

Alex - AK · 12. November 2012, 23:09

cool ich denke das ist das was ich suche muss mich da erst einlesen
vielen dank

Alex - AK · 13. November 2012, 12:24

ich hab da was schönes gefunden funktioniert gut

vb-magazin.de/forums/forums/p/5392/21068.aspx

ErfinderDesRades · 13. November 2012, 12:41

nunja - ist strict Off geproggt, benötigt ca. das 5-fache an Code, und enthält so übersichtliche "Schönheiten" wie diese:

VB.NET-Quellcode

Dim TrefferListe = From Personen In XMLDoc.<Werte> _
Where Personen.<Info>.Value = ComboBox1.SelectedItem _
Select X = Personen.Attribute("PosX").Value, _
Y = Personen.Attribute("PosY").Value, _
Zeit = Personen.<Zeit>.Value, _
Name = Personen.<Name>.Value, _
Info = Personen.<Info>.Value

Aber vlt. kommsteja nochmal auf Daten laden, speichern, verarbeiten zurück, wenns mal drum geht, Daten auch einzugeben - kann ja sein

Da schreibst du sonst nämlich nochmal das 5-fache an Code - bist also beim 10-fachen (weil bei Daten laden, speichern, verarbeiten braucht man immer nur 3 weitere Zeilen dafür).

Dir ist schon bekannt, dass Strict Off prinzipiell GurkenCode ist (mit Ausnahme von InterOp-Geschichten)?

Option Strict On!

Alex - AK · 13. November 2012, 13:15

ja mach ich

danke

Combobox mit Xml Werten füllen

Combobox mit Xml Werten füllen

VB.NET-Quellcode

XML-Quellcode

VB.NET-Quellcode

XML-Quellcode

XML-Quellcode

VB.NET-Quellcode

XML-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

2 Benutzer haben hier geschrieben