指定全部显示不同颜色：
 
 
 
  
        public void SetTextContent(string text, ColorEnum color)
        {
            Font font = new Font("微软雅黑", 14, FontStyle.Bold);
            richTextBox1.Font = font;
            richTextBox1.Text = text;
            richTextBox1.ReadOnly = true;
            layoutControlItem2.Selected = true;
            SendKeys.Send("{Tab}");  //向活动应用程序发送击键 注意格式：Send("{Tab}");中的{}
            switch (color)
            {
                case ColorEnum.Blue:
                    this.Text = "警告信息";
                    richTextBox1.ForeColor = Color.Blue;
                    break;
                case ColorEnum.Red:
                    this.Text = "错误信息";
                    richTextBox1.ForeColor = Color.Red;
                    break;
                default:
                    this.Text = "提示信息";
                    richTextBox1.ForeColor = Color.Black;
                    break;
            }
        }
 
 
 
 
 
  
    public enum ColorEnum
    {
        Black = 0,
        Blue = 1,
        Red = 2
    }
 
 
 
 
 
 
 
指定内容中指定文字高亮显示：
 
 
 
  
        private void SetHighlightContent(string text)
        {
            ColorEnum color = ColorEnum.Black;
            string content = string.Empty;
            List<string> findList = new List<string>();
            if (text.IndexOf("#Red#", StringComparison.Ordinal) > 0)
            {
                color = ColorEnum.Red;
                var contentArray = text.Split(new[] { "#Red#" }, StringSplitOptions.None);
                content = contentArray[0];
                var findstrs = contentArray[1];
                findList = GetFindList(findstrs);
            }
            else if (text.IndexOf("#Blue#", StringComparison.Ordinal) > 0)
            {
                color = ColorEnum.Blue;
                var contentArray = text.Split(new[] { "#Blue#" }, StringSplitOptions.None);
                content = contentArray[0];
                var findstrs = contentArray[1];
                findList = GetFindList(findstrs);
            }
            SetHighlight(content, findList, color);
        }

        /// <summary>
        /// 多个要高亮关键词显示的用'&'连接
        /// </summary>
        /// <param name="findstrs"></param>
        /// <returns></returns>
        private List<string> GetFindList(string findstrs)
        {
            List<string> findList;
            if (findstrs.IndexOf("&", StringComparison.Ordinal) > 0)
            {
                findList = findstrs.Split('&').ToList();
            }
            else
            {
                findList = new List<string>() { findstrs };
            }
            return findList;
        }

        private void SetHighlight(string content, List<string> findList, ColorEnum color)
        {
            if (!string.IsNullOrEmpty(content))
            {
                if (findList.IsHasRow())
                {
                    Font font = new Font("微软雅黑", 14, FontStyle.Bold);
                    richTextBox1.Font = font;
                    richTextBox1.Text = content;
                    this.Text = @"提示信息";
                    richTextBox1.ReadOnly = true;
                    foreach (var findItem in findList)
                    {
                        List<int> findStrIndexes = GetFindStrIndexes(content, findItem);
                        foreach (var itemindex in findStrIndexes)
                        {
                            richTextBox1.Select(itemindex, findItem.Length);
                            switch (color)
                            {
                                case ColorEnum.Blue:
                                    richTextBox1.SelectionColor = Color.Blue;
                                    break;
                                case ColorEnum.Red:
                                    richTextBox1.SelectionColor = Color.Red;
                                    break;
                            }
                        }
                    }
                    richTextBox1.SelectionStart = richTextBox1.Text.Length; //取消选中
                    layoutControlItem2.Selected = true;
                    SendKeys.Send("{Tab}"); //向活动应用程序发送击键 注意格式：Send("{Tab}");中的{}
                }
                else
                {
                    SetTextContent(content, color);
                }
            }
        }

        private List<int> GetFindStrIndexes(string content, string findStr)
        {
            List<int> result = new List<int>();
            int start = 0;
            while (start < content.Length)
            {
                int index = content.IndexOf(findStr, start, StringComparison.Ordinal);
                if (index >= 0)
                {
                    result.Add(index);
                    start = index + findStr.Length;
                }
                else
                {
                    break;
                }
            }
            return result;
        }
 
 
 
 
参考：
 
 
http://www.cnblogs.com/KardelXiao/p/4236045.html （C#）RichTextBox控件 链接跳转设置
http://blog.csdn.net/crazytaliban/article/details/52002657 RichTextBox用法——设置指定字符串的颜色

 
 
 
Option Explicit

Dim cn()
Dim value()
Dim name_()

Private Sub Form_Load()
    cn = Array( _
"艾利斯兰 aliceblue", "古董白  antiquewhite", "浅绿色  aqua", "碧绿色  aquamarine", "天蓝色  azure", "米色   beige", "桔黄色  bisque", "黑色   black", "白杏色  blanchedalmond", "蓝色   blue", _
"紫罗兰色 blueviolet", "褐色   brown", "实木色  burlywood", "军兰色  cadetblue", "黄绿色  chartreuse", "巧可力色 chocolate", "珊瑚色  coral", "菊兰色  cornflowerblue", "米绸色  cornsilk", "暗深红色 crimson", _
"青色   cyan", "暗蓝色  darkblue", "暗青色  darkcyan", "暗金黄色 darkgoldenrod", "暗灰色  darkgray", "暗绿色  darkgreen", "暗黄褐色 darkkhaki", "暗洋红  darkmagenta", "暗橄榄绿 darkolivegreen", "暗桔黄色 darkorange", _
"暗紫色  darkorchid", "暗红色  darkred", "暗肉色  darksalmon", "暗海兰色 darkseagreen", "暗灰蓝色 darkslateblue", "墨绿色  darkslategray", "暗宝石绿 darkturquoise", "暗紫罗兰色darkviolet", "深粉红色 deeppink", "深天蓝色 deepskyblue", _
"暗灰色  dimgray", "闪兰色  dodgerblue", "火砖色  firebrick", "花白色  floralwhite", "森林绿  forestgreen", "紫红色  fuchsia", "淡灰色  gainsboro", "幽灵白  ghostwhite", "金色   gold", "金麒麟色 goldenrod", _
"灰色   gray", "绿色   green", "黄绿色  greenyellow", "蜜色   honeydew", "热粉红色 hotpink", "印第安红 indianred", "靛青色  indigo", "象牙色  ivory", "黄褐色  khaki", "淡紫色  lavender", _
"淡紫红  lavenderblush", "草绿色  lawngreen", "柠檬绸色 lemonchiffon", "亮蓝色  lightblue", "亮珊瑚色 lightcoral", "亮青色  lightcyan", "亮金黄色 lightgoldenrodyellow", "亮绿色  lightgreen", "亮灰色  lightgrey", "亮粉红色 lightpink", _
"亮肉色  lightsalmon", "亮海蓝色 lightseagreen", "亮天蓝色 lightskyblue", "亮蓝灰  lightslategray", "亮钢兰色 lightsteelblue", "亮黄色  lightyellow", "酸橙色  lime", "橙绿以  limegreen", "亚麻色  linen", "红紫色  magenta", _
"粟色   maroon", "间绿色  mediumaquamarine", "间兰色  mediumblue", "间紫色  mediumorchid", "间紫色  mediumpurple", "间海蓝  mediumseagreen", "间暗蓝色 mediumslateblue", "间春绿色 mediumspringgreen", "间绿宝石 mediumturquoise", "间紫罗兰色mediumvioletred", _
"中灰兰色 midnightblue", "薄荷色  mintcream", "浅玫瑰色 mistyrose", "鹿皮色  moccasin", "纳瓦白  navajowhite", "海军色  navy", "老花色  oldlace", "橄榄色  olive", "深绿褐色 olivedrab", "橙色   orange", _
"红橙色  orangered", "淡紫色  orchid", "苍麒麟色 palegoldenrod", "苍绿色  palegreen", "苍宝石绿 paleturquoise", "苍紫罗兰色palevioletred", "番木色  papayawhip", "桃色   peachpuff", "秘鲁色  peru", "粉红色  pink", _
"洋李色  plum", "粉蓝色  powderblue", "紫色   purple", "红色   red", "褐玫瑰红 rosybrown", "皇家蓝  royalblue", "重褐色  saddlebrown", "鲜肉色  salmon", "沙褐色  sandybrown", "海绿色  seagreen", _
"海贝色  seashell", "赭色   sienna", "银色   silver", "天蓝色  skyblue", "石蓝色  slateblue", "灰石色  slategray", "雪白色  snow", "春绿色  springgreen", "钢兰色  steelblue", "茶色   tan", _
"水鸭色  teal", "蓟色   thistle", "西红柿色 tomato", "青绿色  turquoise", "紫罗兰色 violet", "浅黄色  wheat", "白色   white", "烟白色  whitesmoke", "黄色   yellow", "黄绿色  yellowgreen" _
                                                                                 )
    value = Array( _
            "aliceblue F0F8FF", "antiquewhite FAEBD7", "aqua 00FFFF", "aquamarine 7FFFD4", "azure F0FFFF", "beige F5F5DC", "bisque FFE4C4", "black 000000", "blanchedalmond FFEBCD", "blue 0000FF", _
"blueviolet 8A2BE2", "brown A52A2A", "burlywood DEB887", "cadetblue 5F9EA0", "chartreuse 7FFF00", "chocolate D2691E", "coral FF7F50", "cornflowerblue 6495ED", "cornsilk FFF8DC", "crimson DC143C", _
"cyan 00FFFF", "darkblue 00008B", "darkcyan 008B8B", "darkgoldenrod B8860B", "darkgray A9A9A9", "darkgreen 006400", "darkkhaki BDB76B", "darkmagenta 8B008B", "darkolivegreen 556B2F", "darkorange FF8C00", _
"darkorchid 9932CC", "darkred 8B0000", "darksalmon E9967A", "darkseagreen 8FBC8F", "darkslateblue 483D8B", "darkslategray 2F4F4F", "darkturquoise 00CED1", "darkviolet 9400D3", "deeppink FF1493", "deepskyblue 00BFFF", _
"dimgray 696969", "dodgerblue 1E90FF", "firebrick B22222", "floralwhite FFFAF0", "forestgreen 228B22", "fuchsia FF00FF", "gainsboro DCDCDC", "ghostwhite F8F8FF", "gold FFD700", "goldenrod DAA520", _
"gray 808080", "green 008000", "greenyellow ADFF2F", "honeydew F0FFF0", "hotpink FF69B4", "indianred CD5C5C", "indigo 4B0082", "ivory FFFFF0", "khaki F0E68C", "lavender E6E6FA", _
"lavenderblush FFF0F5", "lawngreen 7CFC00", "lemonchiffon FFFACD", "lightblue ADD8E6", "lightcoral F08080", "lightcyan E0FFFF", "lightgoldenrodyellow FAFAD2", "lightgreen 90EE90", "lightgrey D3D3D3", "lightpink FFB6C1", _
"lightsalmon FFA07A", "lightseagreen 20B2AA", "lightskyblue 87CEFA", "lightslategray 778899", "lightsteelblue B0C4DE", "lightyellow FFFFE0", "lime 00FF00", "limegreen 32CD32", "linen FAF0E6", "magenta FF00FF", _
"maroon 800000", "mediumaquamarine 66CDAA", "mediumblue 0000CD", "mediumorchid BA55D3", "mediumpurple 9370DB", "mediumseagreen 3CB371", "mediumslateblue 7B68EE", "mediumspringgreen 00FA9A", "mediumturquoise 48D1CC", "mediumvioletred C71585", _
"midnightblue 191970", "mintcream F5FFFA", "mistyrose FFE4E1", "moccasin FFE4B5", "navajowhite FFDEAD", "navy 000080", "oldlace FDF5E6", "olive 808000", "olivedrab 6B8E23", "orange FFA500", _
"orangered FF4500", "orchid DA70D6", "palegoldenrod EEE8AA", "palegreen 98FB98", "paleturquoise AFEEEE", "palevioletred DB7093", "papayawhip FFEFD5", "peachpuff FFDAB9", "peru CD853F", "pink FFC0CB", _
"plum DDA0DD", "powderblue B0E0E6", "purple 800080", "red FF0000", "rosybrown BC8F8F", "royalblue 4169E1", "saddlebrown 8B4513", "salmon FA8072", "sandybrown F4A460", "seagreen 2E8B57", _
"seashell FFF5EE", "sienna A0522D", "silver C0C0C0", "skyblue 87CEEB", "slateblue 6A5ACD", "slategray 708090", "snow FFFAFA", "springgreen 00FF7F", "steelblue 4682B4", "tan D2B48C", _
"teal 008080", "thistle D8BFD8", "tomato FF6347", "turquoise 40E0D0", "violet EE82EE", "wheat F5DEB3", "white FFFFFF", "whitesmoke F5F5F5", "yellow FFFF00", "yellowgreen 9ACD32" _
    )
    
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    
    Op(0).Caption = 取中文名(0)
    Op(0).BackColor = Val(取值(取英文名(Op(0).Caption)))
    
    For i = 0 To 35

        For j = 0 To 3
            If i = 0 And j = 0 Then
            Else
                k = i * 4 + j
                If k = 140 Then GoTo ExitSub
                Load Op(k)
                With Op(k)
                    .Left = Op(0).Left + j * 3400
                    .Top = Op(0).Top + i * 280
                    .Caption = 取中文名(k)
                    .BackColor = Val(取值(取英文名(.Caption)))
    
                    .Visible = True
                End With
            End If
        Next

    Next
ExitSub:

    Text3 = ""
    List1.Clear

    For i = 0 To UBound(cn)
        List1.AddItem "dim " & 取英文名(取中文名(i)) & " = &H00" & Hex(Val(取值(取英文名(取中文名(i))))) & "& '" & 取中文名(i) & vbCrLf
    Next
End Sub

Private Sub List1_Click()
    Text3 = List1.List(List1.ListIndex)
    Op((List1.ListIndex)).value = True
End Sub

Private Sub Op_Click(Index As Integer)
    Me.BackColor = Val(取值(取英文名(Op(Index).Caption)))
    Label1.BackColor = BackColor
    If BackColor Then
        Label2.BackColor = BackColor
        Frame1.BackColor = BackColor
        Text1.BackColor = BackColor
        Text2.BackColor = BackColor
        Text3.BackColor = BackColor
        List1.BackColor = BackColor
    End If

    Text1 = 取英文名(Op(Index).Caption)
    Text2 = Hex(BackColor)
    List1.ListIndex = Index
End Sub

Private Function 取中文名(i As Integer) As String
Dim tmp
tmp = Split(cn(i), " ")
取中文名 = tmp(0)
End Function

Private Function 取英文名(s As String) As String
Dim tmp
Dim i As Integer
For i = 0 To UBound(cn)
tmp = Split(cn(i), " ")
If s = tmp(0) Then
取英文名 = tmp(UBound(tmp))
Exit Function
End If
Next
End Function

Private Function 取值(s As String) As String
Dim tmp
Dim i As Integer
Dim a, b, c
For i = 0 To UBound(value)
tmp = Split(value(i), " ")
If s = tmp(0) Then
取值 = "&H00000000" & tmp(UBound(tmp)) & "&"

a = Left(Right(取值, 3), 2)
b = Left(Right(取值, 5), 2)
c = Left(Right(取值, 7), 2)
a = a & b & c

取值 = "&H00" & a & "&"
Exit Function
End If
Next
End Function


 

        '==========================改变字体
        Dim myFont As System.Drawing.Font

        Dim strName As String = ListBox1.Text
        Dim myFontFamily As System.Drawing.FontFamily
        myFontFamily = New FontFamily(strName)

        Dim myFontStyle As FontStyle
        Dim bolBold = CheckBox1.Checked
        If bolBold Then
            myFontStyle = myFontStyle Or FontStyle.Bold
        End If

        Dim bolItdic = CheckBox2.Checked
        If bolItdic Then
            myFontStyle = myFontStyle Or FontStyle.Italic
        End If

        Dim bolUnderline = CheckBox3.Checked
        If bolUnderline Then
            myFontStyle = myFontStyle Or FontStyle.Underline
        End If

        Dim bolStrikeout = CheckBox4.Checked
        If bolStrikeout Then
            myFontStyle = myFontStyle Or FontStyle.Strikeout
        End If

        Dim sngSize = ComboBox11.Text
        Dim myColor As Color

        myFont = New System.Drawing.Font(myFontFamily, sngSize, myFontStyle, System.Drawing.GraphicsUnit.Point)
        Label69.Font = myFont
        myColor = Label77.BackColor
        Label69.ForeColor = myColor
 

  

 
 
代码如下：
 
 
 
  
'SetListViewBGColor(ListView控件名称,要设置的背景颜色行号,颜色值-默认：&HB6B4FF)
 
  
Public Sub SetListViewBGColor(ByRef ListView As ListView, _
                              ByRef Index As Long, _
                              Optional BGColor As Long = &HB6B4FF)
    'author:www.newxing.com
    Dim lineTop As Long, lineHeight As Integer
    Static Pic As PictureBox
    If Pic Is Nothing Then Set Pic = Controls.Add("VB.PictureBox", "picbg")
    lineHeight = ListView.ListItems(Index).Height
    lineTop = lineHeight * (Index - 1)
 
  
    With Pic
        .Cls
        .AutoRedraw = True
        .Visible = False
        .ScaleMode = vbTwips
        .Font = ListView.Font
        .BorderStyle = 1
        .Appearance = 0
        .Height = lineHeight * ListView.ListItems.Count + lineHeight
        .Width = ListView.Width
    End With
 
  
    Pic.Line (0, lineTop)-(Pic.Width, lineTop + lineHeight), BGColor, BF
    ListView.Picture = Pic.Image
 
  
End Sub

 
 

 

 
摘自：网络整理
 
 

  
 
相关文章参考：
  
 

   
 
  
 
※VB 单击Listview控件某列表头进行排序
  
 
※VB Listview导出到CSV文件函数
  
 
※VB 设置Listview中指定一行的背景颜色
  
 
※vb Listview扁平表头的列表框
  
 

   
 
  
 
★
 
 V
 B
 部
 分
 相关
 文
 章
 推
 荐
 ：★ 
 

  
 
☆VB 读写TXT文本文件函数
 
 
☆VB 提取TextBox 文本框中指定一行字符串
 
 
☆VB 获取汉字拼音的首字母
 
 
☆VB 汉字字符串转换成拼音
 
 
☆VB判断指定名字的进程是否存在函数
 
 
☆VB 两种方法实现热键
 
 
☆VB 使用SendMessage枚举文件与目录
 
 
☆VB 二进制数组与十六进制字符串相互转换
 
 
☆VB 二进制数据读写实例
 
 
☆VB 进制转换大全(十进制、十六进制、八进制、二进制、二进制流)互转
 
 
☆VB 判断是否文本文件
 
 
☆VB 读取UTF-8编码文件函数
 
 
☆VB 按指定编码格式写入文本文件
 
 
☆VB UTF-8 URL编码函数
 
 
☆VB 实现UTF-8 与GB2312互转
 
 
☆VB 设置ListView中指定一行的背景颜色
 
 
☆VB SendMessage向其他程序窗口发送字符串消息实例
 
 
☆VB Listview导出到CSV文件函数
 
 
☆vb卸载所有窗体
 
 
☆VB中Null, Empty, Nothing, and vbNullString的区别
 
 
☆利用API函数计算程序运行时间VB
 
 
☆获取快捷方式原文件路径vb路径
 
 
☆利用VB函数Dir()实现递归搜索目录
 
 
☆VB数组的清除和重新定义
 
 
☆用RtlAdjustPrivilege来调整进程权限(VB6.0代码)
 
 
☆获取对象的接口信息(方法/属性/事件)(VB6代码)
 
 
☆VB6中给数组赋值的限制
 
 
☆[vb]一些窗口消息的详解
 
 
☆VB直接播放EXE文件中的声音文件
 
 
☆VB中利用CopyMemory使用指针
 
 
☆VB读写注册表的三种方法
 
 
☆[VB]SaveSetting 语句 和 DeleteSetting 语句 
 
 
☆VB APP对象属性一览表 + 灵活使用VB的APP对象 
 
 
☆[vb]SendMessageA函数 
 
 
☆使用VB绘制抛物线动画曲线 
 
 
☆关于vb中的容器 
 
 
☆[vb]利用WScript.Shell对象隐藏cmd命令行运行 
 
 
☆浅析VB For Each.Next语句 
 
 
☆VB中窗体模块、标准模块、类模块的区别 
 
 
☆引用 VB类模块 
 
 
☆VB中什么是类，类模块有什么作用 
 
 
☆VB SendKeys 语句 
 
 
☆VB 全局热键 
 
 
☆用VB轻松调用其他程序 
 
 
☆vb读取txt文件到textbox 
 
 
☆如何去优化你的VB程序3 
 
 
☆如何去优化你的VB程序2 
 
 
☆如何去优化你的VB程序1 
 
 
☆[VB]在状态栏中显示帮助信息 
 
 
☆[VB]把屏幕保存为图像 
 
 
☆Mp3Play.ocx控件让音乐之声响起来 
 
 

 
 
 

 
 更多精彩>>>