QQclient报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：截图.png

代码执行到 If QQClient.Start() = True这一句报错，提示菜单中不存在名为“openqq”的项目，可是在菜单中的配置栏存在一个叫openqq的按钮；

另外在菜单的SystemIdle事件增加的代码也提示这个错误，不太清楚怎么改，希望老师能给与提示，谢谢

QQClient.ServerIP = "127.0.0.1" '指定服务器IP地址

QQClient.ServerPort = 52177 '指定服务器登录端口

QQClient.UserName = "生产部.李桂兰"

QQClient.Password = "888"

If QQClient.Start() = True '如果登录成功

Dim msg As String = "恭喜,OpenQQ登录成功!"

If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息

msg = msg & QQClient.ServerMessage

End If

PopMessage(msg,"提示",PopiconEnum.Infomation,5)

Else '如果登录失败,显示服务器返回错误信息

PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)

End If

主题：QQclient报错