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

我一直在研究它，这可能会让人不悦，但我不想学习如何在VB中做所有事情，因为我只是在做一个5-10分钟的程序来做一些事情对自己来说容易一点。所以提前抱歉。在VB2010中有没有简单的方法给单个单词添加颜色？

无论如何，我只是想添加颜色或任何格式，使东西更容易阅读或类似。我原本是在用只读属性做文本框，并发现你无法添加好的格式。就标签而言，您可以添加一种颜色的标签。 RichTextBox是下一个想法，虽然它的工作原理，但对于我所需要的，似乎有相当多的工作。

我只想如何使一个单一形式的想法都一样“这话”

这是一个与bbcone和HTML超级简单的字体，我无法想象的最好办法在VB中，一行文本需要大约10行。

谢谢。

来源

2016-03-20 Yoshimtu

使用'WebBrowser'控制和修改它的'DocumentText'属性。这样你就可以用HTML代码编写它。 –

你可以写一个所有者绘制的控件，在那里你可以做所有事情！通过这种方式，可以使用GDI +创建标签的外观和设计。但它不会在10分钟内完成，你将需要几分钟更多.....其他想法是覆盖标签中的绘画事件，并且这样做。这在你的时间框架内是可能的。 – nabuchodonossor

就像你不想学习如何，但具备HTML的概念，那么我认为你需要的最好的解决办法是使用这个第三方用户控制，Html Renderer，它可以呈现HTML/CSS代码。

另一种方法是使用WebBrowser在评论中提到，不过，这将是（非常）慢，或者你也可以使用微软指定更侧重于记录renderization的MSHTML OCX任务，但比指定的用户控制更难使用，因为您需要调查MSHTML成员的在线文档和用法，而且您似乎不想这样做，因为您指定RichTextBox有太多努力满足您的需求。

来源

2016-03-20 12:07:40 ElektroStudios

我有有一定的文字中有一个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)

来源

2016-03-20 18:51:12

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

回答

相关问题