又一個RichTextBox問題, 可是前一個還沒有人能回答

Question

我已經解決了!!!!
Public Const SB_VERT = 1
Public Const SB_HORZ = 0
Public Declare Function ShowScrollBar Lib "user32" _
(ByVal hWnd As Long, ByVal wBar As Long, ByVal bShow As Long) As LongPublic Sub ShowScrollBars(theTextbox As Object)
    Dim hWnd As Long
    
    hWnd = theTextbox.hWnd
    ShowScrollBar hWnd, SB_VERT, 1
    ShowScrollBar hWnd, SB_HORZ, 1
End Sub

Answer 1

遍历可以采用循环，使用RichTextBox的Find方法。
然后设定RichTextBox的SelStart和Sellenth,这样就可以设置颜色RichTextBox.selcolor

Answer 2

to turbochen(turbochen)
  请问你这个api是什么意思？可以得到什么结果，我没有看到你把要找的字符串传进去呀，也没有返回值。对不起，我实在是很菜，看不懂