hallo hab da einen Fehler
in der combobox werden keine einträge angezeigt
in der combobox werden keine einträge angezeigt
VB.NET-Quellcode
- Public Class frmPortale
- Private Sub frmPortale_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- '>>>
- 'Dim xml As XDocument = XDocument.Load(Application.StartupPath & "\Datenbank.xml")
- Dim xml = _
- <Koordinaten>
- <Galaxy_1>
- <ID>1</ID>
- <GXName Name="Galaxy 1"></GXName>
- <Koordinaten01>000.0011 - 000.0000</Koordinaten01>
- <Koordinaten02>000.0022 - 000.0000</Koordinaten02>
- <Koordinaten03>000.0033 - 000.0000</Koordinaten03>
- <Koordinaten04>000.0000 - 000.0000</Koordinaten04>
- <Koordinaten05>000.0000 - 000.0000</Koordinaten05>
- <Koordinaten06>000.0000 - 000.0000</Koordinaten06>
- <Koordinaten07>000.0000 - 000.0000</Koordinaten07>
- <Koordinaten08>000.0000 - 000.0000</Koordinaten08>
- <Koordinaten09>000.0000 - 000.0000</Koordinaten09>
- <Koordinaten10>000.0000 - 000.0000</Koordinaten10>
- <Koordinaten11>000.0000 - 000.0000</Koordinaten11>
- <Koordinaten12>000.0000 - 000.0000</Koordinaten12><Portale>Portale(12)</Portale>
- </Galaxy_1>
- <Galaxy_2>
- <ID>2</ID>
- <GXName Name="Galaxy 2"></GXName>
- <Koordinaten01>000.0001 - 000.0000</Koordinaten01>
- <Koordinaten02>000.0002 - 000.0000</Koordinaten02>
- <Koordinaten03>000.0003 - 000.0000</Koordinaten03>
- <Koordinaten04>000.0000 - 000.0000</Koordinaten04>
- <Koordinaten05>000.0000 - 000.0000</Koordinaten05>
- <Koordinaten06>000.0000 - 000.0000</Koordinaten06>
- <Koordinaten07>000.0000 - 000.0000</Koordinaten07>
- <Koordinaten08>000.0000 - 000.0000</Koordinaten08>
- <Koordinaten09>000.0000 - 000.0000</Koordinaten09>
- <Koordinaten10>000.0000 - 000.0000</Koordinaten10>
- <Koordinaten11>000.0000 - 000.0000</Koordinaten11>
- <Koordinaten12>000.0000 - 000.0000</Koordinaten12>
- <Portale>Portale(12)</Portale>
- </Galaxy_2>
- </Koordinaten>
- Dim datasource = (From node As XElement In xml...<Koordinaten> Select New With {.display = node.<GXName>.@Name, .value = node}).ToArray
- cbx1.DisplayMember = "display"
- cbx1.ValueMember = "value"
- cbx1.DataSource = datasource
- End Sub
- Private Sub cbx1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbx1.SelectedIndexChanged
- Dim xe As XElement = DirectCast(cbx1.SelectedValue, XElement)
- lbl1.Text = xe.<Koordinaten01>.Value
- lbl2.Text = xe.<Koordinaten02>.Value
- lbl3.Text = xe.<Koordinaten03>.Value
- lbl4.Text = xe.<Koordinaten04>.Value
- lbl5.Text = xe.<Koordinaten05>.Value
- lbl6.Text = xe.<Koordinaten06>.Value
- lbl7.Text = xe.<Koordinaten07>.Value
- lbl8.Text = xe.<Koordinaten08>.Value
- lbl9.Text = xe.<Koordinaten09>.Value
- lbl10.Text = xe.<Koordinaten10>.Value
- lbl11.Text = xe.<Koordinaten11>.Value
- lbl12.Text = xe.<Koordinaten12>.Value
- lblPortale.Text = xe.<Portale>.Value
- End Class
Dieser Beitrag wurde bereits 7 mal editiert, zuletzt von „Alex - AK“ ()