vb制作基础聊天的窗口 一个输入框 一个输出框 如何输出能看到不同字体的效果

Question

vb制作基础聊天的窗口 一个输入框 一个输出框 如何输出能看到不同字体的效果，如题。选修作业，急急急求救

Answer 1

输出用 RichTextBox。下面是变换粗体的例子，其它格式自己看帮助，反正都是以 Sel 开头的属性。
Option ExplicitPrivate Sub Output(ByVal Text As String, ByVal Bold As Boolean)
    With RichTextBox1
        .SelStart = &H10000
        .SelBold = Bold
        .SelText = Text & vbCrLf
    End With
End SubPrivate Sub Command1_Click()
    Output "标题", True
    Output "一般文本", False
End Sub