<%@ Page Language="VB" %>
<html>
<head>
<title>Collection DataBinding Example</title>
<script runat="server">
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
</script>
</head>
<body>
<h1>Collection DataBinding Example</h1>
<form runat="server">
Choose a color from the list for the font color:
<asp:dropdownlist id="Color" autopostback="True" runat="server"/>
<br/>
<asp:label id="Output" runat="server"/>
</form>
</body>
</html>