在ItemDataBound中FindControl(label,HyperLink) 定义字体的色彩!(:)简单的问题)

 1  If (e.Item.ItemType = ListItemType.AlternatingItem Or e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.EditItem) Then
 2            Dim dc_name As HyperLink = CType(e.Item.FindControl("dc_name"), HyperLink)
 3            Select Case dc_name.Text
 4                Case "新闻"
 5                    dc_name.ForeColor = dc_name.ForeColor.FromName("#0000FF")
 6                Case "娱乐"
 7                    dc_name.ForeColor = dc_name.ForeColor.FromName("#FF6600")
 8                Case "体育"
 9                    dc_name.ForeColor = dc_name.ForeColor.FromName("#FF6600")
10                Case "I T"
11                    dc_name.ForeColor = dc_name.ForeColor.FromName("#0000FF")
12                Case "体育"
13                    dc_name.ForeColor = dc_name.ForeColor.FromName("#FF6600")
14                Case "图片"
15                    dc_name.ForeColor = dc_name.ForeColor.FromName("#FF0066")
16                Case "文化"
17                    dc_name.ForeColor = dc_name.ForeColor.FromName("#CC0000")
18                Case "影音"
19                    dc_name.ForeColor = dc_name.ForeColor.FromName("#CC00CC")
20                Case "生活"
21                    dc_name.ForeColor = dc_name.ForeColor.FromName("#FF6600")
22                Case "财经"
23                    dc_name.ForeColor = dc_name.ForeColor.FromName("#009900")
24                Case "军事"
25                    dc_name.ForeColor = dc_name.ForeColor.FromName("#0000FF")
26                Case "技术"
27                    dc_name.ForeColor = dc_name.ForeColor.FromName("#666666")
28                Case "情感"
29                    dc_name.ForeColor = dc_name.ForeColor.FromName("#FF0066")
30                Case "游戏"
31                    dc_name.ForeColor = dc_name.ForeColor.FromName("#FF6600")
32                Case "商机"
33                    dc_name.ForeColor = dc_name.ForeColor.FromName("#0000FF")
34                Case "就业"
35                    dc_name.ForeColor = dc_name.ForeColor.FromName("#CC6600")
36                Case "两性"
37                    dc_name.ForeColor = dc_name.ForeColor.FromName("#FF0066")
38                Case "体育"
39                    dc_name.ForeColor = dc_name.ForeColor.FromName("#FF6600")
40                Case "其他"
41                    dc_name.ForeColor = dc_name.ForeColor.FromName("#666666")
42            End Select