<%@ Page Language="VB" %>
Dim ColorList(6) as String
Dim FontList as new ArrayList()
Sub Page_Load
ColorList(0) = "Red"
ColorList(1) = "Orange"
ColorList(2) = "Yellow"
ColorList(3) = "Green"
ColorList(4) = "Blue"
ColorList(5) = "Indigo"
ColorList(6) = "Violet"
FontList.Add("Times New Roman")
FontList.Add("Arial")
FontList.Add("Verdana")
FontList.Add("Comic Sans MS")
If Not Page.IsPostback
Dim ColorName as String
For Each ColorName in ColorList
ddlColorList.Items.Add(ColorName)
Next
ddlFontList.DataSource = FontList
ddlFontList.DataBind()
End If
End Sub
Sub btnSelectColor_Click(sender As Object, e As EventArgs)
lblOutputMessage.Text = "You selected " & _
ddlColorList.SelectedItem.Value & " text written in " & _
ddlFontList.SelectedItem.Value
lblOutputMessage.ForeColor = _
System.Drawing.Color.FromName(ddlColorList.SelectedItem.Text)
lblOutputMessage.Font.Name = _
ddlFontList.SelectedItem.Text
End Sub
Sub btnAddFont_Click(sender As Object, e As EventArgs)
FontList.Add(txtAddFont.Text)
ddlFontList.DataSource = FontList
ddlFontList.DataBind()
End Sub
Select a color from the list:
Then select a font sytle from the list:
Enter a new font for the list: