HTMLタグのcollarを変更するには (ID:118778)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >卒業さくひんでVB.NETを扱っています 学校ではプログラムのことを作品と言うんですか、会社で使ったらぶっ飛ばされそうですね。 閑話休題 単にこれではいけないの。 RichTextBox1.SelectionStart = n - 1 'タグの始め それと Option Strict On にしておこうね。 n とｔは Integer で十分。 Dim n As Integer Dim t As Integer 色々有るけど、HTMLの色づけは『<>』の中だけの方が見やすいかも。 長い文章の場合InStrを使った方が速くなります。 Dim StartPos, EndPos As Integer EndPos = 1 Do StartPos = InStr(EndPos, s, "<") If StartPos <> 0 Then EndPos = InStr(StartPos, s, ">") If EndPos <> 0 Then RichTextBox1.SelectionStart = StartPos - 1 RichTextBox1.SelectionLength = EndPos - StartPos + 1 'セレクトの長さを決める。 RichTextBox1.SelectionColor = Color.Blue 'タグを青にする End If End If Loop While (StartPos <> 0)