openqq的内置聊天窗口能否用代码关闭 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → openqq的内置聊天窗口能否用代码关闭

共有2160人关注过本帖树形打印复制链接主题：openqq的内置聊天窗口能否用代码关闭

kao_go

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：579 积分：4940 威望：0 精华：0 注册：2014/4/29 14:32:00

openqq的内置聊天窗口能否用代码关闭 发帖心情

Post By：2016/5/29 10:39:00 [显示全部帖子]

openqq的内置聊天窗口能否用代码关闭，在属性里面只看到打开内置聊天窗口的代码

kao_go

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：579 积分：4940 威望：0 精华：0 注册：2014/4/29 14:32:00

Post By：2016/5/30 11:34:00 [显示全部帖子]

'如果OPENQQ已经打开则关闭,如果关闭则打开

If QQClient.Ready Then

If ShowAppWindow("OpenQQ",5) = False Then '如果关闭失败,说明窗口被关闭,则打开,关闭成功则关闭

MessageBox.Show("111")

QQClient.OpenChatWindow

End If

Else

MessageBox.Show("QQClient未登陆成功!不能打开内置聊天窗口", "警告", MessageBoxButtons.OK, MessageBoxIcon.Warning)

End If

红色那一段，不管我关闭内置聊天窗口还是最小化，一直都在执行，窗口有被关闭成功，可是又被打开？

[此贴子已经被作者于2016/5/30 11:38:09编辑过]

kao_go

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：579 积分：4940 威望：0 精华：0 注册：2014/4/29 14:32:00

Post By：2016/5/30 13:21:00 [显示全部帖子]

已解决，谢谢大红袍老师图片点击可在新窗口打开查看

'如果OPENQQ已经打开则关闭,如果关闭则打开

If QQClient.Ready Then

If ShowAppWindow("OpenQQ",1) = False Then '如果打开失败,说明窗口被关闭,则打开,打开成功则关闭

QQClient.OpenChatWindow

Else

ShowAppWindow("OpenQQ",5)

End If

Else

MessageBox.Show("QQClient未登陆成功!不能打开内置聊天窗口", "警告", MessageBoxButtons.OK, MessageBoxIcon.Warning)

End If

主题：openqq的内置聊天窗口能否用代码关闭