VB2010の単一の単語に色を追加する簡単な方法はありますか？

Question

私はこれを少し研究しようとしていましたが、これは嫌に思われるかもしれませんが、VBですべてをやる方法を学びたくはありません。自分自身のために少し簡単です。それでは、事前に申し訳ありません。

とにかく、色や書式を追加するだけで、読みやすくするなどの作業が簡単になります。私はもともと、読み取り専用の属性を持つテキストボックスを使っていましたが、それで良いフォーマットを追加できないことがわかりました。ラベルは、ラベルに1つの色を付けることができる点で似ていました。 RichTextBoxは次のアイデアだったし、動作している間は、私が必要としているもののためのかなりの仕事のように思える。私はちょうど単一のフォームを作成する方法についてのアイデアをしたい

はそれがbbconeとHTMLで超簡単だ

「これら 言葉」のようなフォントを持っている、と私は最善の方法を想像することはできませんVBでは、1つの文字列に対して約10行が必要です。

ありがとうございました。

Answer 1

あなたはどのように勉強したいが、HTML形式の概念を持っていないと同じように、私は/ HTMLをレンダリングすることができ、Html Renderer、あなたのニーズに最適なソリューションは、このサードパーティのユーザー・コントロールを使用することであると思いますCSSコード。

別のアプローチのコメントで述べたようにWebBrowserを使用することです、しかし、それは（非常に）遅くなります、あるいはまた、あなたは、Microsoftがそのドキュメントrenderizationに、より焦点を当てて、指定MSHTML OCXを使用することができますあなたがRichTextBoxが多すぎると指定しているので、あなたは、オンラインドキュメントとMSHTMLメンバーの使用方法を調査する必要があるため、指定したユーザーコントロールよりも使用するのが難しいです。あなたのニーズに合わせた努力。

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)