老师，.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2017.8.19.1
错误所在事件：启动IMClient
详细错误信息：
An item with the same key has already been added.
不知道什么原因，包括绿色部分后面的代码出现错误，劳烦给看下。
If QQClient.Ready Then
MessageBox.show("QQClient已经启动,请先关闭","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
QQClient.ServerIP = e.Form.Controls("txtIP").Value '指定服务器IP地址
QQClient.ServerPort = e.Form.Controls("txtPort").Value '指定服务器端口
QQClient.UserName = e.Form.Controls("cmbDepartment").Value & "." & e.Form.Controls("txtUserName").Value '指定登录用户名
QQClient.Password = e.Form.Controls("txtPassword").Value
If QQClient.Start() = True '如果登录成功
e.Form.Controls("btnChat").Enabled = True
MessageBox.Show(2)
Dim msg As String = "恭喜,OpenQQ登录成功!"
If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息
MessageBox.Show(3)
msg = msg & QQClient.ServerMessage
End If
MessageBox.Show(4)
popMessage(msg,"提示",PopiconEnum.Infomation,5)
Dim s As String ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents And Settings\Administrator.LICHUN\桌面\QQ\用户数据.mdb;Persist Security Info=False"
If Connections.TryConnect(s) = True Then
Connections.Delete("sjy")
Connections.Add("test",s)
End If
e.Form.Close
Forms("窗口1").Open()
Else '如果登录失败,显示服务器返回错误信息
e.Form.Controls("btnChat").Enabled = False
PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
End If
加好友 
发短信
Post By：2017/9/24 15:22:00 [只看该作者]
