＋设为首页 ＋添加到收藏夹
各位高手 小弟是个VB新手.今天在用winsock控件写聊天程序的时候遇到了一个问题,请高手帮忙解决一下,谢了先.
我想实现跟QQ聊天那样 可以看到自己发的言 又能看到别人发的言 并且在txtoutput框里可以向上滚动看到聊天记录
现在就可以实现一方发过来 另一方只显示对方发过来的那一句话 而看不到原先的对话内容
请达人指点
我写的代码如下:(服务器端的)
Option Explicit
Dim loading As String
Private Sub Command1_Click()
Me.tcpserver.SendData txtinput.Text
txtinput.Text = ""
txtinput.SetFocus
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Me.tcpserver.LocalPort = 1001
Me.tcpserver.Listen
loading = "正在等待数据的传入..."
txtoutput.Text = loading
End Sub
Private Sub tcpserver_ConnectionRequest(ByVal requestID As Long)
If Me.tcpserver.State <> sckClosed Then
Me.tcpserver.Close
Me.tcpserver.Accept requestID
End If
End Sub
Private Sub tcpserver_DataArrival(ByVal bytesTotal As Long)
Dim strdata As String
Dim temp As String
Dim i As Date
i = Now()
Me.tcpserver.GetData strdata
txtoutput.Text = "阿红:" & strdata & Space(1) & i
End Sub
把倒数第2行： txtoutput.Text = "阿红:" & strdata & Space(1) & i
改为： txtoutput.Text =txtoutput.Text & "阿红:" & strdata & Space(1) & i
字符串拼接的失误，下次注意
