主题：OpenQQ问题

1. 点击配置处OpenQQ黑白图标，不弹出登录窗口，显示错误（见附件图片）

此主题相关图片如下：错误提示.png

此主题相关图片如下：运行错误.png

2. 从窗口设计应用路径登录IP后，OPenQQ可以正常使用，但配置栏图标又只能看到一小点（见附件图片）

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

具体写了什么代码，贴出来看看

AfterOpenProject

 

'------启动登录窗口-------

Forms("登录窗口").Open()

Connected

 

'--------在菜单提示新消息--OpenQQ客户端的设计--P3012d5---

ConfigBar.Items("OpenQQ").SmallImage = GetImage("online.ico")

 

Disconnected

 

'------在菜单提示新消息--OpenQQ客户端的设计--P3012d6---

'这样在OpenQQ离线后,菜单按钮的图标会自动改为offline.ico.

ConfigBar.Items("OpenQQ").SmallImage = GetImage("offline.ico")

 

Client_ReceivedMessage

 

'----------收到来自OpenQQ的信息--------------

Dim dr As DataRow = DataTables("信息").AddNew

dr("发送者") = iif(e.UserName > "",e.UserName,"服务器")

dr("时间") = Date.Now()

dr("信息") = e.Message

Client_UserChangePassword

 

Forms("修改密码").Show()

登录窗口_AfterLoad

 

e.Form.Controls("btnChat").Enabled = QQClient.Ready

 

登录窗口_btnChat_Click

 

If  QQClient.Ready Then

    QQClient.OpenChatWindow()

End If

 

登录窗口_btnLogin_Click

 

'------在菜单提示新消息--OpenQQ客户端的设计--P3012d4---

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 =""

QQClient.Password = ""

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

    e.Form.Controls("btnChat").Enabled = True

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

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

        msg = msg & QQClient.ServerMessage

    End If

    ConfigBar.Items("OpenQQ").SmallImage = GetImage("online.ico")

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

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

    e.Form.Controls("btnChat").Enabled = False

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

End If