110,536
社区成员
发帖
与我相关
我的任务
分享
<Extension()>
Public Sub AppendRichText(rtb As RichTextBox, text As String, color As System.Drawing.Color, font As System.Drawing.Font)
rtb.Select(rtb.TextLength, 0)
rtb.SelectionColor = color
rtb.SelectionFont = font
rtb.AppendText(text)
rtb.SelectionColor = rtb.ForeColor
rtb.SelectionFont = rtb.Font
End Sub