VB6에서 creatin 텍스트 부분의 색을 서식 지정하기 RichTextBox

Question

그래서이 텍스트 상자는 실제로 게임 채팅입니다. 누군가가 메시지를 입력하면 다음과 같이 나타납니다. UserName : Message

내가 원하는 것은 어떻게 든 UserName 텍스트가 항상 다른 색으로 나타나게하므로 실제 메시지와 다소 구분됩니다. 여기

내가 현재 사용하고있는 코드입니다 :

AddChatMsg 0, userName & ": " & theMsg 'send it to the chatbox 

Dim curColor As Long 'current text color 
Dim userNameLength As Integer 'username length 

userNameLength = Len(UserName) 'store username in integer var 
With MyForm.ChatText 
    curColor = .SelColor 'set curColor 
    .SelLength = userNameLength 'set Length 
    .SelColor = vbRed 'change color 
    .SelText = UserName 'not sure wha this do 
    .SelColor = curColor 'update current color var 
End With 

이 실제로 잘 작동하지만 사용자 이름은 첫 번째 텍스트 줄에 빨간색 :

가 어떻게 그것을해야합니까 모든 라인에서 작동합니까? 또한 글꼴을 굵은 글꼴로 바꿀 수 있다면 정말 멋지게 될 것입니다. 고맙습니다!

Answer 1

사용자 이름과 메시지를 구분 한 다음 색상을 설정하고 개별적으로 작성하십시오 (예 : 사용

AddChatMsg "DonaldTrump", "I like to grab em" 

:로 전화

Sub AddChatMsg(UserName As String, theMsg As String) 
    Dim curColor As Long 'current text color 
    With MyForm.ChatText 
     curColor = .SelColor 
     .SelStart = Len(.Text) 'ensure we are at the end 
     .SelColor = vbRed 
     .SelBold = True 'write in bold 
     .SelText = UserName 
     .SelBold = False 
     .SelColor = curColor 
     .SelText = ": " & theMsg & vbCrLf 
    End With 
End Sub