在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