求助：VB语法高亮控件"rtbSyntax"怎么使用？

Question

我把控件发上来，请知道用法的说一下，也可以发源码！本人万分感激....        我使用的时候，在打开跟查找的时候提示：无效属性值！请帮忙解决..   截图：
       
            控件源码： 名称：rtbSyntax   跟RichTextBox1一样Option ExplicitConst COMMENT = "'"Const DELIMITER = vbTab & " ,(){}[]-+*%/='~!&|\<>?:;."Const RESERVED As String = " And Call Case Const Dim Do Each Else ElseIf Empty End Eqv Erase Error Exit Explicit False For Function If Imp In Is Loop Mod Next Not Nothing Null On Option Or Private Public Randomize ReDim Resume Select Set Step Sub Then To True Until Wend While Xor "
Const FUNC_OBJ As String = " Anchor Array Asc Atn CBool CByte CCur CDate CDbl Chr CInt CLng Cos CreateObject CSng CStr Date DateAdd DateDiff DatePart DateSerial DateValue Day Dictionary Document Element Err Exp FileSystemObject  Filter Fix Int Form FormatCurrency FormatDateTime FormatNumber FormatPercent GetObject Hex History Hour InputBox InStr InstrRev IsArray IsDate IsEmpty IsNull IsNumeric IsObject Join LBound LCase Left Len Link LoadPicture Location Log LTrim RTrim Trim Mid Minute Month MonthName MsgBox Navigator Now Oct Replace Right Rnd Round ScriptEngine ScriptEngineBuildVersion ScriptEngineMajorVersion ScriptEngineMinorVersion Second Sgn Sin Space Split Sqr StrComp String StrReverse Tan Time TextStream TimeSerial TimeValue TypeName UBound UCase VarType Weekday WeekDayName Window Year "
Const KEYWORD_PAD As String = " "Const RGB_COMMENT As String = "0,128,0"
Const RGB_STRING As String = "255,0,255"
Const RGB_RESERVED As String = "0,0,255"
Const RGB_FUNC_OBJ As String = "255,0,0"
Const RGB_DELIMITER As String = "0,0,0"
Const RGB_NORMAL As String = "0,0,0"Enum SyntaxTypes
    ColorComment = 0
    ColorString = 1
    ColorReserved = 2
    ColorFuncObj = 3
    ColorDelimiter = 4
    ColorNormal = 5
End Enum

Answer 1

接上：
Private mbInChange As Boolean
Private mrgbComment As Long
Private mrgbString As Long
Private mrgbReserved As Long
Private mrgbFuncObj As Long
Private mrgbDelimiter As Long
Private mrgbNormal As Long
Private Const WM_SETREDRAW = &HB
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private mlPrevSelStart As Long
Private mlCurSelStart As Long
Const m_def_ForeColor = 0
Const m_def_hWnd = 0
Dim m_ForeColor As Long
Dim m_hWnd As Long
Event Change() 'MappingInfo=rtb,rtb,-1,Change
Event Click() 'MappingInfo=rtb,rtb,-1,Click
Event DblClick() 'MappingInfo=rtb,rtb,-1,DblClick
Event KeyDown(KeyCode As Integer, Shift As Integer) 'MappingInfo=rtb,rtb,-1,KeyDown
Event KeyUp(KeyCode As Integer, Shift As Integer) 'MappingInfo=rtb,rtb,-1,KeyUp
Event KeyPress(KeyAscii As Integer) 'MappingInfo=rtb,rtb,-1,KeyPress
Event MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) 'MappingInfo=rtb,rtb,-1,MouseDown
Event MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) 'MappingInfo=rtb,rtb,-1,MouseMove
Event MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) 'MappingInfo=rtb,rtb,-1,MouseUp
Event SelChange() 'MappingInfo=rtb,rtb,-1,SelChangePrivate Sub UserControl_Initialize()
    rtb.Top = 0
    rtb.Left = 0
    
    InitParser
    mlPrevSelStart = 0
End SubPrivate Sub InitParser()
    Dim vArr
    
    vArr = Split(RGB_COMMENT, ",")
    mrgbComment = RGB(vArr(0), vArr(1), vArr(2))
    
    vArr = Split(RGB_STRING, ",")
    mrgbString = RGB(vArr(0), vArr(1), vArr(2))
    
    vArr = Split(RGB_RESERVED, ",")
    mrgbReserved = RGB(vArr(0), vArr(1), vArr(2))
    
    vArr = Split(RGB_FUNC_OBJ, ",")
    mrgbFuncObj = RGB(vArr(0), vArr(1), vArr(2))
    
    vArr = Split(RGB_DELIMITER, ",")
    mrgbDelimiter = RGB(vArr(0), vArr(1), vArr(2))
    
    vArr = Split(RGB_NORMAL, ",")
    mrgbNormal = RGB(vArr(0), vArr(1), vArr(2))
    
End Sub'
' Sub rtb_Change
' Determine the changed region and feed to the parser.
'
Private Sub rtb_Change()
    RaiseEvent Change
    
    If mbInChange = True Then
        ' change is being blocked or deferred
        GoTo ExitSub
    End If
    
    ' suppress change events generated during this change event
    '
    mbInChange = "True"
    
        
    Dim srtbText As String      ' working string
    ' add final cariage return so last line is processed
    srtbText = rtb.Text & vbCrLf
    
    ' preserve selection and restore at end
    '
    Dim lOrigSelStart As Long
    Dim lOrigSelLength As Long
    lOrigSelStart = rtb.SelStart
    lOrigSelLength = rtb.SelLength
    
    
    Dim lStartPos As Long
    Dim lEndPos As Long
    
    If mlPrevSelStart < rtb.SelStart Then
        lStartPos = mlPrevSelStart
        lEndPos = rtb.SelStart
    Else
        lStartPos = rtb.SelStart
        lEndPos = mlPrevSelStart
    End If
    
    
    If lStartPos > 1 Then
        ' set start position to beginning of line
        If InStrRev(srtbText, vbCrLf, lStartPos - 1) > 0 Then
            lStartPos = InStrRev(srtbText, vbCrLf, lStartPos - 1) + Len(vbCrLf) - 1
        Else
            lStartPos = 0
        End If
    Else
        lStartPos = 0
    End If
    
    ' set end position to end of line
    If InStr(lEndPos + 1, srtbText, vbCrLf) > 0 Then
        lEndPos = InStr(rtb.SelStart + 1, srtbText, vbCrLf) - 1
    Else
        lEndPos = Len(srtbText) - 1
    End If
    
    
    Dim x As Long
    
    'prevent textbox from repainting
    x = SendMessage(rtb.hWnd, WM_SETREDRAW, 0, 0)
    
    ' send affected text to the parser, along with its position in the
    ' RichTextBox
    If lStartPos <> lEndPos Then
        ParseLines Mid(srtbText, lStartPos + 1, lEndPos - lStartPos), rtb, lStartPos
    End If
    
    rtb.SelStart = lOrigSelStart
    rtb.SelLength = lOrigSelLength    'allow texbox to repaint
    x = SendMessage(rtb.hWnd, WM_SETREDRAW, 1, 0)
    'force repaint
    rtb.Refresh
    
    mbInChange = False
    
ExitSub:
    
End SubPrivate Sub rtb_SelChange()
    RaiseEvent SelChange    mlPrevSelStart = mlCurSelStart
    mlCurSelStart = rtb.SelStart
    End SubPrivate Sub rtb_KeyDown(KeyCode As Integer, Shift As Integer)
    RaiseEvent KeyDown(KeyCode, Shift)    If KeyCode = Asc(vbTab) Then  ' TAB key was pressed.
      ' Ignore the TAB key, so focus doesn't leave the control
      KeyCode = 0
      
      ' Replace selected text with the tab character
      rtb.SelText = vbTab
    End If
End Sub

Answer 2

继续;
Public Sub HighlightRefresh()
    'prevent textbox from repainting
    Dim x As Long
    x = SendMessage(rtb.hWnd, WM_SETREDRAW, 0, 0)    Dim lOrigSelStart As Long
    Dim lOrigSelLength As Long
    lOrigSelStart = rtb.SelStart
    lOrigSelLength = rtb.SelLength    mlPrevSelStart = 0
    rtb.SelStart = Len(rtb.Text)
    rtb_Change
    rtb.SelStart = lOrigSelStart
    rtb.SelLength = lOrigSelStart    'allow texbox to repaint
    x = SendMessage(rtb.hWnd, WM_SETREDRAW, 1, 0)
    'force repaint
    rtb.Refresh
End SubPrivate Sub ParseLines(ByVal s As String, rtb As RichTextBox, ByVal RTBPos As Long)
    Dim lStartPos As Long
    Dim lEndPos As Long
    
    lStartPos = 1
    
    s = s & vbCrLf
    lEndPos = InStr(lStartPos, s, vbCrLf)
    Do While lEndPos > 0
        ParseLine Mid(s, lStartPos, lEndPos - lStartPos), rtb, RTBPos + lStartPos - 1
        lStartPos = lEndPos + Len(vbCrLf)
        lEndPos = InStr(lStartPos, s, vbCrLf)
    Loop
    
        
        
End SubPrivate Sub ParseLine(ByVal s As String, rtb As RichTextBox, ByVal RTBPos As Long)
    'Debug.Print s
    
    Dim bInString As Boolean    ' are we in a quoted string?
    bInString = False
    
    Dim bInWord As Boolean      ' are we in a word? (not a string, comment,
                                ' or delimiter)
    bInWord = False
    
    Dim sCurString As String        ' the current set of characters
    Dim lCurStringStart As Long     '   - where it starts
    Dim sCurChar As String          ' the current character
    
    Dim i As Long
    
    For i = 1 To Len(s)
        sCurChar = Mid(s, i, 1)
        If sCurChar = COMMENT Then
            ' if comment character occurs within a quoted string, it doesn't
            ' count
            If Not bInString Then
                ' this is a comment. we are done with the line
                If bInWord Then
                    ' before we encounterd the comment we were processing a word
                    Highlight rtb, ParseWord(sCurString), lCurStringStart + RTBPos - 1, i - lCurStringStart
                    sCurString = ""
                    bInWord = False
                End If
            
                Highlight rtb, ColorComment, i + RTBPos - 1, Len(s) - i + 1
                GoTo ExitSub    ' rest of line is comment
            End If
        End If
        
        If sCurChar = """" Then
            ' if not already in a string, then this quote begins a string
            ' otherwise, we are in a string, and this quote ends it
            If bInString Then
                sCurString = sCurString & sCurChar
                Highlight rtb, ColorString, lCurStringStart + RTBPos - 1, i - lCurStringStart + 1
                sCurString = ""
                bInString = False
            Else
                If bInWord Then
                    ' before we encounterd the string we were processing a word
                    Highlight rtb, ParseWord(sCurString), lCurStringStart + RTBPos - 1, i - lCurStringStart
                    sCurString = ""
                    bInWord = False
                End If
                
                bInString = True
                sCurString = sCurChar
                lCurStringStart = i
            End If
            
            GoTo Next_i ' get next character
        End If
                
        If InStr(1, DELIMITER, sCurChar) > 0 Then
            If bInWord Then
                ' before we encounterd the delimiter we were processing a word
                Highlight rtb, ParseWord(sCurString), lCurStringStart + RTBPos - 1, i - lCurStringStart
                sCurString = ""
                bInWord = False
            End If
            
            Highlight rtb, ColorDelimiter, i + RTBPos - 1, 1
            GoTo Next_i
        End If
            
        If (Not bInWord) And (Not bInString) Then
            bInWord = True
            sCurString = sCurChar
            lCurStringStart = i
            
            GoTo Next_i ' get next character
        End If
            
        ' add current character to the "word" we are in the middle of
        sCurString = sCurString & sCurChar
Next_i:     ' VB style continue
    Next
    
    If bInString Then
        ' before we encounterd the end of the line we were processing a string
        Highlight rtb, ColorString, lCurStringStart + RTBPos - 1, i - lCurStringStart
    ElseIf bInWord Then
        ' before we encounterd the end of the line we were processing a word
        Highlight rtb, ParseWord(sCurString), lCurStringStart + RTBPos - 1, i - lCurStringStart
    End IfExitSub:
    Exit Sub
End Sub

Answer 3

在继续：
Private Function ParseWord(ByVal Word As String) As SyntaxTypes
    If InStr(1, RESERVED, KEYWORD_PAD & Word & KEYWORD_PAD, vbTextCompare) > 0 Then
        ParseWord = ColorReserved
    ElseIf InStr(1, FUNC_OBJ, KEYWORD_PAD & Word & KEYWORD_PAD, vbTextCompare) > 0 Then
        ParseWord = ColorFuncObj
    Else
        ParseWord = ColorNormal
    End If
End FunctionPrivate Sub Highlight(rtb As RichTextBox, SyntaxType As SyntaxTypes, StartPos As Long, Length As Long)
        rtb.SelStart = StartPos
        rtb.SelLength = Length
    
    Select Case SyntaxType
        Case SyntaxTypes.ColorComment
            rtb.SelColor = mrgbComment
        Case SyntaxTypes.ColorString
            rtb.SelColor = mrgbString
        Case SyntaxTypes.ColorReserved
            rtb.SelColor = mrgbReserved
        Case SyntaxTypes.ColorFuncObj
            rtb.SelColor = mrgbFuncObj
        Case SyntaxTypes.ColorDelimiter
            rtb.SelColor = mrgbDelimiter
        Case Else
            rtb.SelColor = mrgbNormal
    End SelectEnd SubPrivate Sub UserControl_Resize()
    rtb.Width = UserControl.ScaleWidth
    rtb.Height = UserControl.ScaleHeight
End Sub
Public Property Get AutoVerbMenu() As Boolean
    AutoVerbMenu = rtb.AutoVerbMenu
End PropertyPublic Property Let AutoVerbMenu(ByVal New_AutoVerbMenu As Boolean)
    rtb.AutoVerbMenu() = New_AutoVerbMenu
    PropertyChanged "AutoVerbMenu"
End PropertyPublic Property Get BackColor() As OLE_COLOR
    BackColor = rtb.BackColor
End PropertyPublic Property Let BackColor(ByVal New_BackColor As OLE_COLOR)
    rtb.BackColor() = New_BackColor
    PropertyChanged "BackColor"
End PropertyPublic Property Get ForeColor() As Long
    ForeColor = m_ForeColor
End PropertyPublic Property Let ForeColor(ByVal New_ForeColor As Long)
    m_ForeColor = New_ForeColor
    PropertyChanged "ForeColor"
End PropertyPublic Property Get BorderStyle() As BorderStyleConstants
    BorderStyle = rtb.BorderStyle
End PropertyPublic Property Let BorderStyle(ByVal New_BorderStyle As BorderStyleConstants)
    rtb.BorderStyle() = New_BorderStyle
    PropertyChanged "BorderStyle"
End PropertyPublic Property Get BulletIndent() As Single
    BulletIndent = rtb.BulletIndent
End PropertyPublic Property Let BulletIndent(ByVal New_BulletIndent As Single)
    rtb.BulletIndent() = New_BulletIndent
    PropertyChanged "BulletIndent"
End PropertyPublic Property Get Enabled() As Boolean
    Enabled = rtb.Enabled
End PropertyPublic Property Let Enabled(ByVal New_Enabled As Boolean)
    rtb.Enabled() = New_Enabled
    PropertyChanged "Enabled"
End PropertyPublic Property Get FileName() As String
    FileName = rtb.FileName
End PropertyPublic Property Let FileName(ByVal New_FileName As String)
    rtb.FileName() = New_FileName
    
    PropertyChanged "FileName"
End PropertyPublic Property Get Font() As Font
    Set Font = rtb.Font
End PropertyPublic Property Set Font(ByVal New_Font As Font)
    Set rtb.Font = New_Font
    PropertyChanged "Font"
End PropertyPublic Property Get HideSelection() As Boolean
    HideSelection = rtb.HideSelection
End PropertyPublic Property Let HideSelection(ByVal New_HideSelection As Boolean)
    rtb.HideSelection() = New_HideSelection
    PropertyChanged "HideSelection"
End PropertyPublic Property Get hWnd() As Long
    hWnd = m_hWnd
End PropertyPublic Property Let hWnd(ByVal New_hWnd As Long)
    m_hWnd = New_hWnd
    PropertyChanged "hWnd"
End PropertyPublic Property Get Locked() As Boolean
    Locked = rtb.Locked
End PropertyPublic Property Let Locked(ByVal New_Locked As Boolean)
    rtb.Locked() = New_Locked
    PropertyChanged "Locked"
End PropertyPublic Property Get MaxLength() As Long
    MaxLength = rtb.MaxLength
End PropertyPublic Property Let MaxLength(ByVal New_MaxLength As Long)
    rtb.MaxLength() = New_MaxLength
    PropertyChanged "MaxLength"
End PropertyPublic Property Get MouseIcon() As Picture
    Set MouseIcon = rtb.MouseIcon
End PropertyPublic Property Set MouseIcon(ByVal New_MouseIcon As Picture)
    Set rtb.MouseIcon = New_MouseIcon
    PropertyChanged "MouseIcon"
End PropertyPublic Property Get MousePointer() As MousePointerConstants
    MousePointer = rtb.MousePointer
End PropertyPublic Property Let MousePointer(ByVal New_MousePointer As MousePointerConstants)
    rtb.MousePointer() = New_MousePointer
    PropertyChanged "MousePointer"
End PropertyPublic Property Get RightMargin() As Single
    RightMargin = rtb.RightMargin
End PropertyPublic Property Let RightMargin(ByVal New_RightMargin As Single)
    rtb.RightMargin() = New_RightMargin
    PropertyChanged "RightMargin"
End PropertyPublic Property Get Text() As String
    Text = rtb.Text
End PropertyPublic Property Let Text(ByVal New_Text As String)
    mbInChange = True
    rtb.Text() = New_Text
    mbInChange = False
    HighlightRefresh
    
    PropertyChanged "Text"
End PropertyPublic Function Find(ByVal bstrString As String, Optional ByVal vStart As Variant, Optional ByVal vEnd As Variant, Optional ByVal vOptions As Variant) As Long
    Find = rtb.Find(bstrString, vStart, vEnd, vOptions)
End FunctionPublic Function GetLineFromChar(ByVal lChar As Long) As Long
    GetLineFromChar = rtb.GetLineFromChar(lChar)
End FunctionPublic Sub LoadFile(ByVal bstrFilename As String, Optional ByVal vFileType As Variant)
    rtb.LoadFile bstrFilename, vFileType
End SubPublic Sub Refresh()
    rtb.Refresh
End SubPublic Sub SaveFile(ByVal bstrFilename As String, Optional ByVal vFlags As Variant)
    rtb.SaveFile bstrFilename, vFlags
End SubPublic Sub SelPrint(ByVal lHDC As Long, Optional ByVal vStartDoc As Variant)
    rtb.SelPrint lHDC, vStartDoc
End SubPublic Sub Span(ByVal bstrCharacterSet As String, Optional ByVal vForward As Variant, Optional ByVal vNegate As Variant)
    rtb.Span bstrCharacterSet, vForward, vNegate
End SubPublic Sub UpTo(ByVal bstrCharacterSet As String, Optional ByVal vForward As Variant, Optional ByVal vNegate As Variant)
    rtb.UpTo bstrCharacterSet, vForward, vNegate
End SubPrivate Sub rtb_Click()
    RaiseEvent Click
End SubPrivate Sub rtb_DblClick()
    RaiseEvent DblClick
End SubPrivate Sub rtb_KeyUp(KeyCode As Integer, Shift As Integer)
    RaiseEvent KeyUp(KeyCode, Shift)
End SubPrivate Sub rtb_KeyPress(KeyAscii As Integer)
    RaiseEvent KeyPress(KeyAscii)
End SubPrivate Sub rtb_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    RaiseEvent MouseDown(Button, Shift, x, y)
End SubPrivate Sub rtb_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    RaiseEvent MouseMove(Button, Shift, x, y)
End SubPrivate Sub rtb_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    RaiseEvent MouseUp(Button, Shift, x, y)
End Sub'Initialize Properties for User Control
Private Sub UserControl_InitProperties()
    m_ForeColor = m_def_ForeColor
    m_hWnd = m_def_hWnd
End Sub

Answer 4

还有：
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    ' prevent parsing while file is loading
    mbInChange = True
    
    rtb.AutoVerbMenu = PropBag.ReadProperty("AutoVerbMenu", False)
    rtb.BackColor = PropBag.ReadProperty("BackColor", &H80000005)
    m_ForeColor = PropBag.ReadProperty("ForeColor", m_def_ForeColor)
    rtb.BorderStyle = PropBag.ReadProperty("BorderStyle", 1)
    rtb.BulletIndent = PropBag.ReadProperty("BulletIndent", 0)
    rtb.Enabled = PropBag.ReadProperty("Enabled", True)
    rtb.FileName = PropBag.ReadProperty("FileName", "")
    Set rtb.Font = PropBag.ReadProperty("Font", Ambient.Font)
    rtb.HideSelection = PropBag.ReadProperty("HideSelection", True)
    m_hWnd = PropBag.ReadProperty("hWnd", m_def_hWnd)
    rtb.Locked = PropBag.ReadProperty("Locked", False)
    rtb.MaxLength = PropBag.ReadProperty("MaxLength", 0)
    Set MouseIcon = PropBag.ReadProperty("MouseIcon", Nothing)
    rtb.MousePointer = PropBag.ReadProperty("MousePointer", 0)
    rtb.RightMargin = PropBag.ReadProperty("RightMargin", 0)
    rtb.Text = PropBag.ReadProperty("Text", "")
    
    mbInChange = False
    HighlightRefresh
    
End SubPrivate Sub UserControl_WriteProperties(PropBag As PropertyBag)    Call PropBag.WriteProperty("AutoVerbMenu", rtb.AutoVerbMenu, False)
    Call PropBag.WriteProperty("BackColor", rtb.BackColor, &H80000005)
    Call PropBag.WriteProperty("ForeColor", m_ForeColor, m_def_ForeColor)
    Call PropBag.WriteProperty("BorderStyle", rtb.BorderStyle, 1)
    Call PropBag.WriteProperty("BulletIndent", rtb.BulletIndent, 0)
    Call PropBag.WriteProperty("Enabled", rtb.Enabled, True)
    Call PropBag.WriteProperty("FileName", rtb.FileName, "")
    Call PropBag.WriteProperty("Font", rtb.Font, Ambient.Font)
    Call PropBag.WriteProperty("HideSelection", rtb.HideSelection, True)
    Call PropBag.WriteProperty("hWnd", m_hWnd, m_def_hWnd)
    Call PropBag.WriteProperty("Locked", rtb.Locked, False)
    Call PropBag.WriteProperty("MaxLength", rtb.MaxLength, 0)
    Call PropBag.WriteProperty("MouseIcon", MouseIcon, Nothing)
    Call PropBag.WriteProperty("MousePointer", rtb.MousePointer, 0)
    Call PropBag.WriteProperty("RightMargin", rtb.RightMargin, 0)
    Call PropBag.WriteProperty("Text", rtb.Text, "")
End SubPublic Property Get SelAlignment() As SelAlignmentConstants
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 394
    End If
    
    SelAlignment = rtb.SelAlignment
End PropertyPublic Property Let SelAlignment(ByVal New_SelAlignment As SelAlignmentConstants)
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 383
    End If
    
    rtb.SelAlignment = New_SelAlignment
End PropertyPublic Property Get SelBold() As Boolean
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 394
    End If
    
    SelBold = rtb.SelBold
End PropertyPublic Property Let SelBold(ByVal New_SelBold As Boolean)
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 383
    End If
    
    rtb.SelBold = New_SelBold
End PropertyPublic Property Get SelItalic() As Boolean
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 394
    End If
    
    SelItalic = rtb.SelItalic
End PropertyPublic Property Let SelItalic(ByVal New_SelItalic As Boolean)
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 383
    End If
    
    rtb.SelItalic = New_SelItalic
End PropertyPublic Property Get SelStrikethru() As Boolean
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 394
    End If
    
    SelStrikethru = rtb.SelStrikethru
End PropertyPublic Property Let SelStrikethru(ByVal New_SelStrikethru As Boolean)
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 383
    End If
    
    rtb.SelStrikethru = New_SelStrikethru
End PropertyPublic Property Get SelUnderline() As Boolean
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 394
    End If
    
    SelUnderline = rtb.SelUnderline
End PropertyPublic Property Let SelUnderline(ByVal New_SelUnderline As Boolean)
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 383
    End If
    
    rtb.SelUnderline = New_SelUnderline
End PropertyPublic Property Get SelBullet() As Variant
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 394
    End If
    
    SelBullet = rtb.SelBullet
End PropertyPublic Property Let SelBullet(ByVal New_SelBullet As Variant)
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 383
    End If
    
    rtb.SelBullet = New_SelBullet
End PropertyPublic Property Get SelCharOffset() As Variant
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 394
    End If
    
    SelCharOffset = rtb.SelCharOffset
End PropertyPublic Property Let SelCharOffset(ByVal New_SelCharOffset As Variant)
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 383
    End If
    
    rtb.SelCharOffset = New_SelCharOffset
End PropertyPublic Property Get SelRTF() As String
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 394
    End If
    
    SelRTF = rtb.SelRTF
End PropertyPublic Property Let SelRTF(ByVal New_SelRTF As String)
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 383
    End If
    
    rtb.SelRTF = New_SelRTF
End PropertyPublic Property Get SelTabCount() As Integer
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 394
    End If
    
    SelTabCount = rtb.SelTabCount
End PropertyPublic Property Let SelTabCount(ByVal New_SelTabCount As Integer)
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 383
    End If
    
    rtb.SelTabCount = New_SelTabCount
End PropertyPublic Property Get SelTabs(Index As Integer) As Integer
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 394
    End If
    
    SelTabs = rtb.SelTabs(Index)
End PropertyPublic Property Let SelTabs(Index As Integer, ByVal New_SelTabs As Integer)
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 383
    End If
    
    rtb.SelTabs(Index) = New_SelTabs
End PropertyPublic Property Get SelColor() As Variant
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 394
    End If
    
    SelColor = rtb.SelColor
End PropertyPublic Property Let SelColor(ByVal New_SelColor As Variant)
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 383
    End If
    
    rtb.SelColor = New_SelColor
End PropertyPublic Property Get SelHangingIndent() As Integer
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 394
    End If
    
    SelHangingIndent = rtb.SelHangingIndent
End PropertyPublic Property Let SelHangingIndent(ByVal New_SelHangingIndent As Integer)
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 383
    End If
    
    rtb.SelHangingIndent = New_SelHangingIndent
End Property

Answer 5

结束：
Public Property Get SelIndent() As Integer
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 394
    End If
    
    SelIndent = rtb.SelIndent
End PropertyPublic Property Let SelIndent(ByVal New_SelIndent As Integer)
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 383
    End If
    
    rtb.SelIndent = New_SelIndent
End PropertyPublic Property Get SelRightIndent() As Integer
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 394
    End If
    
    SelRightIndent = rtb.SelRightIndent
End PropertyPublic Property Let SelRightIndent(ByVal New_SelRightIndent As Integer)
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 383
    End If
    
    rtb.SelRightIndent = New_SelRightIndent
End PropertyPublic Property Get SelLength() As Long
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 394
    End If
    
    SelLength = rtb.SelLength
End PropertyPublic Property Let SelLength(ByVal New_SelLength As Long)
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 383
    End If
    
    rtb.SelLength = New_SelLength
End PropertyPublic Property Get SelStart() As Long
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 394
    End If
    
    SelStart = rtb.SelStart
End PropertyPublic Property Let SelStart(ByVal New_SelStart As Long)
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 383
    End If
    
    rtb.SelStart = New_SelStart
End PropertyPublic Property Get SelText() As String
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 394
    End If
    
    SelText = rtb.SelText
End PropertyPublic Property Let SelText(ByVal New_SelText As String)
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 383
    End If
    
    rtb.SelText = New_SelText
End PropertyPublic Property Get SelProtected() As Variant
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 394
    End If
    
    SelProtected = rtb.SelProtected
End PropertyPublic Property Let SelProtected(ByVal New_SelProtected As Variant)
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 383
    End If
    
    rtb.SelProtected = New_SelProtected
End PropertyPublic Property Get TextRTF() As String
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 394
    End If
    TextRTF = rtb.TextRTF
End PropertyPublic Property Let TextRTF(ByVal New_TextRTF As String)
    ' prevent display in property browser
    If Ambient.UserMode = False Then
        Err.Raise 383
    End If
        
    mbInChange = True
    rtb.TextRTF = New_TextRTF
    mbInChange = False
    
    HighlightRefreshEnd Property

Answer 6

代码太多了，给个控件下载地址：http://dldx.csdn.net/fd.php?i=464427582081822&s=ea443a02774d7cf30856c0274b406606
知道怎么用的帮忙解决一下，谢谢！！