textboxの文字の色について (ID:82445)

名前

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

本文 テキストボックスに表示する文字の色を 特定の文字だった場合に、その文字だけを 文字色を変えたいのですが、 どのようにやればいいのかわかりません。 プログラム例は Private stra as String Private Sub Form_Load() stra = "ABCDE" Text1.Text = stra End Sub Private Sub Timer1_Timer() Dim strb As String Dim count As Integer Dim i As Integer count = Len(stra) ' 文字数を調べる For i = 1 To count strb = Mid(stra, i, 1) If strb = "A" Then ↑ここで、例えば文字が"A" だった場合に、この"A"という文字だけを 文字色を変えて、それ以降の文字は、ForeColor のままで表示したいのですが End Sub