Filling a Combo box

You could try this simple solution, if you really want to bind to an ArrayList.

Create a new class, like this one:
Public Class ListItem
Public Name As String
Public Value As String

Public Sub New(ByVal Name As String, ByVal Value As String)
Me.Name = Name
Me.Value = Value
End Sub

Public Overrides Function ToString() As String
Return Name
End Function
End Class
Then, in your form, write code like this (assuming a combobox named ComboBox1 and a Label named Label1):
Private al As New ArrayList

Private Sub Form1_Load( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles MyBase.Load

al.Add(New ListItem("Mike", "Item 1"))
al.Add(New ListItem("Mary", "Item 2"))
al.Add(New ListItem("Andy", "Item 3"))
ComboBox1.DataSource = al
End Sub

Private Sub ComboBox1_SelectedIndexChanged( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles ComboBox1.SelectedIndexChanged

Label1.Text = DirectCast(al(ComboBox1.SelectedIndex), ListItem).Value
End Sub

There are many other solutions, as well. But if you want to bind to a generic ArrayList, this is the technique I would use.

codefund.com at 2007-9-8 >