<%@ Page Language="VB" %>
Dim ColorList(6) as String
Dim FontList as new ArrayList()
Dim QuoteList as new Hashtable()
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")
QuoteList.Add ("Quotation", "Quotation. ")
QuoteList.Add ("Joke", "Joke")
QuoteList.Add ("Wisdom", "Wisdom")
QuoteList.Add ("Saying", "Saying")
If Not Page.IsPostback
Dim ColorName as String
For Each ColorName in ColorList
ddlColorList.Items.Add(ColorName)
Next
ddlFontList.DataSource = FontList
ddlFontList.DataBind()
ddlQuoteList.DataSource = QuoteList.Keys
ddlQuoteList.DataBind()
End If
End Sub
Sub btnSelectColor_Click(sender As Object, e As EventArgs)
lblOutputMessage.Text = QuoteList(ddlQuoteList.SelectedItem.Text)
lblOutputMessage.ForeColor = _
System.Drawing.Color.FromName(ddlColorList.SelectedItem.Text)
lblOutputMessage.Font.Name = _
ddlFontList.SelectedItem.Text
End Sub
Select a color from the list:
Then select a font sytle from the list:
Finally, choose your output message: