How to populate listbox with xml data: VB2008

QuadFather · April 9th, 2010, 10:23 AM

I'm programming in VB, using Visual Studio 2008.
This is a Windows Forms program.

GOAL: I want to populate a multi column listbox with the <Name>, <Calories>, and <Fat> of each <Food> listed under a certain <Profile>.<Date>.<Name> from an xml file when I click Button1. I've accomplished this using Excel spreadsheets as my data source, but now I want to use xml files for flexibility and portability.

Objects I'm using:

ListBox1
Button1

Here is my xml file (Foods.xml):

Code:

<?xml version="1.0" encoding="utf-8"?>
<Profiles>
  <Profile>
    <Name>Kelly</Name>
    <Date>
      <Name>Thursday: April 05, 2010</Name>
      <Food>
        <Name>Burger</Name>
        <Calories>100</Calories>
        <Fat>10</Fat>
      </Food>
    </Date>
  </Profile>
  <Profile>
    <Name>Brandon</Name>
    <Date>
      <Name>Thursday: April 08, 2010</Name>
      <Food>
        <Name>Fries</Name>
        <Calories>100</Calories>
        <Fat>10</Fat>
      </Food>
    </Date>
  </Profile>
</Profiles>

I don't even know where to begin with ListBoxes ... most of the online help seems to be for earlier versions of VB, and VisualStudio 2008 is telling me that ".AddItem" is invalid syntax for ListBox1.

Anyone out there smarter than me?

EDIT:
Here is my latest attempt:

Code:

ListBox1.ObjectCollection.AddRange(New Object() {"System.Xml"})

samjudson · April 9th, 2010, 10:32 AM

What is wrong with :

ListBox1.Items.Add("Test")

I'm not sure a multi column listbox is what you think it is though. It is simply a way of showing multiple items over more than one column, not for showing multiple bits of data for a single item (as was the case in Classic VB or Microsoft Access).

You'll probably have to use ListView instead to do what you want.

QuadFather · April 9th, 2010, 10:44 AM

Ok, I'm trying with a ListView1 now, set as "details".

The code I tried (and didn't work) is:

Code:

Dim FoodsCatalogue As XDocument = XDocument.Load("Foods.xml")
ListView1.Items.Add(FoodsCatalogue)

QuadFather · April 9th, 2010, 01:07 PM

Tried the following code, to no avail:

Code:

Dim Profiles As XDocument = XDocument.Load("Profiles.xml")
        ListView1.Items.AddRange(New ListViewItem(Profiles.<Profile>.<Name>.Select(Function(n) n.Value).OrderBy(Function(s) s).ToArray()))

And this:

Code:

ListView1.Items.AddRange(New ListViewItem() {Profiles.<Profile>.<Name>.Select(Function(n) n.Value).OrderBy(Function(s) s).ToArray())})

QuadFather · April 12th, 2010, 10:43 AM

I'm about to give up. Can't find any documentation on this anywhere for VB.