swartzentruber.net - Code Samples - Loop Through Listbox For Selected Item(s)

	Back to swartzentruber.net

This simply allows you to get all the selected items from a multi-select enabled listbox.

To be supplied

Protected Sub btnNew_Click_ListBox(ByVal sender As Object, ByVal e As EventArgs)

        Dim objDT As New D_MyTable()
        Dim MainID As Integer
        Dim RelatedID As Integer = CType(ddNewRelated.SelectedItem.Value, Integer)

        If (MainID = 0) Then
            txtMsg.Text = "Cannot add new record without selecting a {Main}."
            Exit Sub
        End If

        Dim listRow As ListItem

        For Each listRow In lbxNewRelated.Items
            If listRow.Selected Then
                RelatedID = CInt(listRow.Value)
                objDT.InsertRow(MainID, RelatedID, iAuthorID)
                listRow.Selected = False
            End If
        Next

        ddRelated.SelectedIndex = 0
        BindGrid()

    End Sub