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 可以显示 但不是我想要的样子 求大神解决
'Clipboard.SetText RichTextBox1.TextRTF, vbCFRTF
' RichTextBox2.TextRTF = RichTextBox1.TextRTF
RichTextBox2.Text = "我说的话: " + RichTextBox1.Text + vbCrLf + RichTextBox2.Text
RichTextBox1.TextRTF = ""
End Sub点击发送 只有文字 没有图片 这个注释代码RichTextBox2.TextRTF = RichTextBox1.TextRTF 可以显示 但不是我想要的样子 求大神解决
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货