字符颜色

Question

77s 88j 99k这一串字符,我想把s换成是红色s   j换成是绿色的  k换成是蓝色的.
如何编程
谢了
 

Answer 1

你用的是TextBox 还是 RTF？TextBox好像是达不到这种要求的说

Answer 2

vb 中的textbox 应该可以吧.

Answer 3

TextBox 改的是效应了整段字串吧？！
目前我都没有做过。
不过你要更改颜色，可以用 Text1.ForeColor = RGB(255,0,0) '设定Text1为红色
这样子是整段更改的。。

Answer 4

原理我想应该是先查找,如果有s则把颜色设为红色 然后打 s 然后把颜色改回 然后再查找 j 把颜色设为绿色然后打 j.....

Answer 5

你认为下图是 Text1 还是 RichTextBox1 ?Text1 你就别想啦.....

Answer 6

very good .怎么搞?有源程序吗?
谢了
cbm666

Answer 7

'添加 Command1  RichTextBox1Dim i%, jj%, ColorNo%, aa$, KeyWord$
Private Sub Form_Activate()
    aa = "77s 88j 99k 77s 88j 99k 77s 88j 99k 77s 88j 99k 77s 88j 99k 77s 88j 99k"
    RichTextBox1.Text = aa
End SubPrivate Sub Command1_Click()
   For i = 1 To 3
      KeyWord = Choose(i, "s", "j", "k")
      ColorNo = Choose(i, 12, 10, 9)
      jj = 0
      Do
         DoEvents
         jj = InStr(jj + 1, aa, KeyWord)
         If jj = 0 Then Exit Do
         RichTextBox1.SelStart = jj - 1
         RichTextBox1.SelLength = Len(KeyWord)
         RichTextBox1.SelColor = QBColor(ColorNo)
      Loop
   Next i
End Sub

Answer 8

楼主本身都不知道什么是TextBox和RichTextBox。
哎无语了。。

Answer 9

'这是 6F 的代码Dim i%, aa$
Private Sub Form_Activate()
   aa = "77s 88j 99k 77s 88j 99k 77s 88j 99k 77s 88j 99k 77s 88j 99k 77s 88j 99k"
   RichTextBox1.Text = aa
End SubPrivate Sub Command1_Click()
   Randomize
   For i = 1 To Len(aa)
      'DoEvents
      RichTextBox1.SelStart = i
      RichTextBox1.SelLength = 1
      RichTextBox1.SelColor = QBColor(Int(Rnd * 15)) '°×É«²»Òª
   Next i
End Sub

Answer 10

哪里添加RichTextBox1 
找不到这个控件,不好意思,水平太差

Answer 11

按 CTRL+T，然后找出 Microsoft Rich TextBox Control 6.0 ，再打勾勾就可以使用了。