VB RichTextBox 每行文字设置不同颜色，效果如以上截图所示。
- VBScript code复制代码
Private Sub Command1_Click() Call setRT(RichTextBox1, "测试一下：") Call setRT(RichTextBox1, "新兴网络", vbRed, True) Call setRT(RichTextBox1, "http://www.newxing.com", vbBlue, False) Call setRT(RichTextBox1, "嘿嘿~~!", RGB(255, 36, 215), False) End Sub Private Sub setRT(RichText As RichTextBox, strText As String, Optional Color As Long = vbBlack, Optional IsBold As Boolean = False) RichText.SelStart = Len(RichText.Text) RichText.SelColor = Color RichText.SelBold = IsBold RichText.SelText = strText & vbCrLf End Sub