Private Sub Command1_Click()

    Winsock1.SendData RichTextBox1.Text
    
    
     'Clipboard.SetText RichTextBox1.TextRTF, vbCFRTF
     
     ' RichTextBox2.TextRTF = RichTextBox1.TextRTF

    
      RichTextBox2.Text = "ÎòËμμÄ»°: " + RichTextBox1.Text + vbCrLf + RichTextBox2.Text
     
      RichTextBox1.TextRTF = ""
End Sub

点击发送 只有文字 没有图片 这个RichTextBox2.TextRTF = RichTextBox1.TextRTF 可以显示 但不是我想要的样子 求大神解决

RichTextBox1.Text       这个属性只取文本，不取格式和 图像。


显示部分，我感觉使用 HTML 来做更好一点。没头绪。

风版主是不是疏忽了？richtext是可以编辑图片的，不过，我没涉及，也不知道详情，还望其他版主抽空琢磨下。

如果本地和远程机器内都有相同的表情库，那好办，建一个索引。winsock控件传索引值。直接在富文本框内显示。
如果是某端自定义的表情，那要通过WINSOCK传图片文件再显示到富文本框中。