在VB2010中有没有简单的方法为单个单词添加颜色？

Question

我一直在尝试研究它，这可能不赞成，但我不想学习如何在VB中做所有事情，因为我只是在做5-10分钟的事情程序让自己更轻松一点。对此提前抱歉。

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

我只是想知道如何让单个表单的字体像＆＃34;这些三个 字＆＃34;

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

感谢。

Answer 1

就像你不想学习如何，但有Html的概念，那么我认为最适合你的需求的解决方案是使用第三方用户控件 Html Renderer ，可以呈现html / css代码。

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

Answer 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)