Binaryworld - GetListSelections - Retrieve a comma delimited list of items selected ... [ ASP.net -> Controls ]

' Return a comma delimited list of items selected in a List control (e.g.
' ListBox, CheckBoxList)
'
' Example:
' Dim selections As String = GetListSelections(CheckBoxList1)

Function GetListSelections(ByVal listCtl As _
  System.Web.UI.WebControls.ListControl) As String
  Dim selections As New System.Text.StringBuilder
  Dim sep As String = ""

  ' add to the list each selected item
  For Each item As System.Web.UI.WebControls.ListItem In listCtl.Items
    If item.Selected Then
      selections.Append(sep).Append(item.Value)
      sep = ", "
    End If
  Next

  Return selections.ToString()
End Function