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


  共有2163人关注过本帖树形打印复制链接

主题: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的内置聊天窗口能否用代码关闭,在属性里面只看到打开内置聊天窗口的代码

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/29 23:08:00 [只看该作者]

 用这个神器吧。

 

http://www.foxtable.com/help/topics/2713.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
kao_go
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/30 11:43:00 [只看该作者]

 一直在执行?你弄了计时器了么?

 

 ShowAppWindow("OpenQQ",5) 如果是关闭的话,不会返回true的,你可以这样写

 

ShowAppWindow("OpenQQ 2016",5)

msgbox(ShowAppWindow("OpenQQ 2016",1))


 回到顶部
帅哥哟,离线,有人找我吗?
kao_go
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部