【正文】 w()) + Chr(10) + + : + + Chr(10) = = Len()End Sub（2）發(fā)送私聊信息。在listviews中點擊相應的用戶名字就可以進行私聊，在登陸的時候已經設置好TCP控件的端口號。代碼如下：Public Sub set_privatechat() For i = 1 To Private_Chat(i). Private_Chat(i). = 8080 + i Private_Chat(i). NextEnd Sub（3）接收在線私聊信息。Private Sub ClientCli_DataArrival(ByVal bytesTotal As Long) str, vbString = amp。 str = Len() 39。If = 1 Then 39。 = True 39。End IfEnd SubPrivate Sub ClientSer_DataArrival(ByVal bytesTotal As Long) str, vbString = amp。 str = Len() 39。If = 1 Then 39。 = True 39。End IfEnd Sub在輸入框中輸入私聊信息時，先判斷是否在線，假如是在線的話直接利用已經和對方連接的TCP控件進行發(fā)送信息。假如是離線用戶的話，利用協議將封裝好的離線信息發(fā)送給服務器，在通過服務器發(fā)送給離線的用戶。離線信息協議：%**1發(fā)送者賬號**1**2接收者賬號**2**$$離線的信息**$$%代碼如下：Private Sub Command1_Click() Dim str As String If Len() = 0 Then MsgBox (發(fā)送內容不能為空！) Exit Sub End If str = amp。 amp。 Time amp。 Chr(13) amp。 Chr(10) amp。 str = str amp。 Chr(13) amp。 Chr(10) amp。 Chr(13) amp。 Chr(10) If = 7 Then str 39。MsgBox 已連接上對方 ElseIf = 7 Then str End If If 7 And 7 Then 39。離線信息設置 % + **1 + + **1 + **2 + + **2 + **$$ + str + **$$ + % DoEvents End If = amp。 str = Len() = End Sub接收離線私聊信息。當收到服務器的離線信息時，對發(fā)送過來的字符串進行信息提取，提取出發(fā)送者、接收者和信息。Function check_outlinemessage(message As String) sender_where1 = 0 reciever_where1 = 0 outmessage_where1 = 0 sender_where2 = 0 reciever_where2 = 0 outmessage_where2 = 0 If InStr(message, **2) 0 Then Do sender_where1 = InStr(sender_where2 + 1, message, **1) sender_where2 = InStr(sender_where1 + 1, message, **1) sender = Mid(message, sender_where1 + 3, sender_where2 sender_where1 3) outmessage_where1 = InStr(outmessage_where2 + 1, message, **$$) outmessage_where2 = InStr(outmessage_where1 + 1, message, **$$) outmessage = Mid(message, outmessage_where1 + 4, outmessage_where2 outmessage_where1 4) For n = 1 To If (n).Text = sender Then Private_Chat(n). = Private_Chat(n). amp。 outmessage Private_Chat(n). = Len(Private_Chat(n).) (n).ForeColor = vbRed (n).(1).ForeColor = vbRed (n).(2).ForeColor = vbRed End If Next Loop Until InStr(sender_where2 + 1, message, **1) = 0 End IfEnd Function（1）讀取數據庫中的聊天信息。添加VB的控件ADO，ADO控件建立起讀取聊天記錄的桌面型數據庫access，讀取數據庫中信息。代碼如下：Public As Public rs As Sub adddata()Set = New = Provider=。Data Source= amp。 amp。 \。Persist Security Info=FalseSet rs = (select * from data)End Sub當按下群聊天記錄的時候彈出對應的RichTextBox控件如下圖（2）將群聊天信息加入到數據庫。提取$$$與$$$之間的群聊天信息 If InStr(sData, $$$) 0 Then group_chat1 = InStr(sData, $$$) group_chat2 = InStr(group_chat1 + 1, sData, $$$) ssData = Mid(sData, group_chat1 + 3, group_chat2 group_chat1 3) 39。============================================插入聊天記錄 a = CStr(Now()) + Chr(10) + ssData + Chr(10) Set rs = (insert into data (tcp_data) values (39。