VB2010有没有简单的方法给单个单词添加颜色？答案

【问题标题】：Is there any easy way to add color to single words in VB2010?VB2010有没有简单的方法给单个单词添加颜色？
【发布时间】：2016-07-06 21:01:02
【问题描述】：

我一直在尝试对其进行一些研究，这可能会令人不悦，但我不想学习如何在 VB 中做所有事情，因为我只是在做一个 5-10 分钟的程序来制作一些东西对自己来说更容易一些。非常抱歉，提前。

无论如何，我只是想添加颜色或任何格式，以使内容更易于阅读等。我最初是用只读属性做文本框，发现你不能用它添加好的格式。标签在您可以添加一种颜色的标签方面是相似的。 RichTextBox 是下一个想法，虽然它有效，但对于我需要的东西来说似乎需要做很多工作。

我只是想知道如何使单个表单具有像“这些三个单词”这样的字体

使用 bbcone 和 html 非常简单，我无法想象 VB 中最好的方法是一串文本大约需要 10 行。

谢谢。

【问题讨论】：

使用WebBrowser控件并修改它的DocumentText属性。这样你就可以用 HTML 代码编写它。
您可以编写一个所有者绘制的控件，在这里您可以做任何事情！通过这种方式，可以使用 GDI+ 为标签创建您喜欢的外观和设计。但这不会在 10 分钟内完成，您将需要几分钟......其他想法是覆盖标签中的绘画事件，并这样做。这在您的时间范围内是可能的。

标签： html .net vb.net text-rendering text-coloring

【解决方案1】：

就像您不想学习如何，但对 Html 有概念，那么我认为满足您需求的最佳解决方案是使用此第 3 方用户控件，Html Renderer ，可以渲染html/css代码。

另一种方法是使用 cmets 中提到的 WebBrowser，但是，它会（非常）慢，或者您也可以使用 Microsoft 指定的更专注于文档呈现任务的 MSHTML ocx，但比指定的用户控件更难使用，因为您需要调查MSHTML 成员的在线文档和使用情况，而且您似乎不想这样做，因为您指定了RichTextBox为您的需求付出了太多努力。

【讨论】：

【解决方案2】：

我有一个 Richtextbox1，其中包含一些文本 - 我使用下面的代码搜索文本并将特定单词更改为不同的字体/样式和颜色：-

 DIM TZZ as String
 TZZ = RichTextBox1.Text
        TZZ = UCase(TZZ)


        Dim x As Single

        For X = 1 To Len(TZZ)


            Dim y As Single = InStr(TZZ, "CHANGES MADE")

            If y > 0 Then

                Dim intLength As Integer = 12
                'select the text
                RichTextBox1.Select(y - 1, intLength)

                RichTextBox1.SelectionFont = New System.Drawing.Font("Tahoma", 10, FontStyle.Bold Or FontStyle.Italic)
                RichTextBox1.SelectionColor = Color.Red




                Mid(TZZ, y, 12) = "123456789012"
                X = y
            End If

        Next X

        RichTextBox1.Select(0, 0)

【讨论】：