Private Sub Command1_Click()

Winsock1.SendData Text2.Text

Dim n

n = Time()

If Text1.Text <> "" Then

   Text1.Text = "n & Chr(13) & Chr(10) & "我说:" & Text2.Text"
   
   
Else

   Text1.Text = "Chr(13) & Chr(10) & n & Chr(13) & Chr(10) + Text2.Text"
   
End If

End Sub

Private Sub Command2_Click()

Tools1.ScreenShot_Save

End Sub

Text1.Text = "n & Chr(13) & Chr(10) & "我说:" & Text2.Text"
应该为：Text1.Text = n & Chr(13) & Chr(10) & "我说:" & Text2.Text

Text1.Text = "Chr(13) & Chr(10) & n & Chr(13) & Chr(10) + Text2.Text"
应该为：Text1.Text = Chr(13) & Chr(10) & n & Chr(13) & Chr(10) & Text2.Text

搞清楚变量与字符串的区别。

你这样Text1的输出就变成了n & Chr(13) & Chr(10) & "对方说:" & Text2.Text

你运行一下看看结果再说！变量、对象与字符串的连接你好好看看吧！
如果你要输出 “n & Chr(13) & Chr(10) & "对方说:" & Text2.Text”这样的字符串，这个也有错误！
应该是 Text1.Text = "n & Chr(13) & Chr(10) & ""我说:"" & Text2.Text"  ，注意使用双引号。

[此贴子已经被作者于2018-11-3 12:20编辑过]