ListBox selected items

andreas5 · August 31st, 2010, 03:53 PM

Hello

I have a ListBox where i list different tags a picture can be associated with. My problem is that i dont know how to check wich rows are selected. I have tried a few things without succes. Here is the code that i have written so far:

Code:

        Using myEnt As New PicturesEntities()
            'Her finner jeg ID'en til det bildet som sist ble satt inn
            Dim picCount = From tag In myEnt.Pictures
                           Order By tag.Id Descending
                           Select tag.Id
            ' For hver tag selected mÃ¥ jeg lage en ny TagLink
            For count As Int16 = 0 To TagLB.Items.Count - 1
                TagLB.SelectedIndex = count
                If TagLB.Items(count).Selected Then '  <-- Here i need a statement that works.
                    Dim tg As New TagLink

                    Dim tagsX = From tag In myEnt.Tags
                                Order By Tag.Id
                                Skip count
                                Select tag.Id

                    tg.TagId = tagsX.First
                    tg.PictureId = picCount.FirstOrDefault + 1
                    myEnt.TagLinks.AddObject(tg)
                    myEnt.SaveChanges()
                End If
            Next
        End Using

All my solutions ended up selecting all the items in the listbox, and not just the selected ones.

Imar · August 31st, 2010, 05:02 PM

Hi there,

I haven't really looked at the code and its intention in detail, but I did notic one thing:

TagLB.SelectedIndex = count
If TagLB.Items(count).Selected Then ' <-- Here i need a statement that works.

Look at the line in bold. Aren't you simply making each item the selected item in the loop by setting the SelectedIndex right before you check the Selected property?

Imar

andreas5 · August 31st, 2010, 06:03 PM

Yes you are right, that was kind of obvious i guess. However i mostly tried that statement because i could not get anything else to work.

I just found the solution now. I had to set the AppendDataBoundItemsproperty of the ListBox to True, aswell as removing the statement you pointed out.

Thanks for looking through my questions once again.

Edit: Here is another attempt in case someone is interested.

Code:

        
        Using myEnt As New PicturesEntities()
            
            Dim picCount = From tag In myEnt.Pictures
                           Order By tag.Id Descending
                           Select tag.Id

            For Each li As ListItem In TagLB.Items
                If li.Selected Then

                    Dim tg As New TagLink
                    Dim tx As ListItem = li ' (compiler complained when i used the iterator)

                    Dim tagsX = From tag In myEnt.Tags
                                Order By tag.Id
                                Where tag.TagName = tx.Text
                                Select tag.Id

                    tg.TagId = tagsX.First
                    tg.PictureId = picCount.FirstOrDefault + 1
                    myEnt.TagLinks.AddObject(tg)
                    myEnt.SaveChanges()
                End If
            Next
        End Using