call sub изменить имя пользователя цвет

Question

Я хочу изменить цвет имени пользователя USER внутри RitchTextBox, я использую этот код ниже, чтобы вызвать SUB, но весь текст теперь красным?

UPDATE

Sub AddMessage(txtUsername As String, txtSend As String) 
    box.SelectionColor = Color.Red 
    box.AppendText(vbCrLf & txtUsername & "$ ") 
    box.SelectionColor = Color.Black 
    box.AppendText(txtSend) 
End Sub 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSend.Click 

    ' Shell("net send " & txtcomputer.Text & " " & txtmessage.Text) 


    Try 
     If txtPCIPadd.Text = "" Or txtUsername.Text = "" Or txtSend.Text = "" Then 
      MsgBox("wright a message!", "MsgBox") 
     Else 
      client = New TcpClient(txtPCIPadd.Text, 44444) 
      Dim writer As New StreamWriter(client.GetStream()) 

      txttempmsg.Text = (txtSend.Text) 
      writer.Write(txtUsername.Text + " @ " + txtSend.Text) 
      AddMessage(txtUsername.Text, txttempmsg.Text + vbCrLf) 
      'txtmsg.Text="You:" + txtmessage.Text) 
      writer.Flush() 
      txtSend.Text = "" 
     End If 
    Catch ex As Exception 
     MsgBox(ex.Message) 
    End Try 
End Sub 

Answer 1

Если у вас есть проблемы при попытке получить что-то, чтобы работать в вашей программе. Легче создать тестовый пример, который затем можно использовать для выяснения того, что происходит, не имея дело с большим количеством других переменных в вашей более крупной программе. В вашем случае я создал приложение VB Winforms, добавил RichTextBox, два TextBox и кнопку. Поступая таким образом, я могу показать, что функция работает.

Public Class Form1 
    Sub AddMessage(txtUsername As String, txtSend As String) 
     box.SelectionColor = Color.Red 
     box.AppendText(vbCrLf & txtUsername & " :") 'Note added colon 
     box.SelectionColor = Color.Black 
     box.AppendText(txtSend) 'Note changed variable name to parameter name 
    End Sub 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     AddMessage(txtUsername.Text, txttempmsg.Text) 
    End Sub 

End Class 

Пример: