<%@ Page Language="VB" %>
Collection DataBinding Example
Dim FontColor As String
Sub Page_Load()
If Not IsPostBack Then
Dim Colors As New ArrayList()
Colors.Add("Red")
Colors.Add("Green")
Colors.Add("Blue")
Color.DataSource = Colors
DataBind()
Color.SelectedIndex = 0
End If
Output.Text = "The value for FontColor is " & _
Color.SelectedItem.Value & "."
Output.ForeColor = _
System.Drawing.Color.FromName(Color.SelectedItem.Value)
End Sub
Collection DataBinding Example
Choose a color from the list for the font color: