Foxtable(狐表)用户栏目专家坐堂 → 请问openQQ标题是否可改?


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

主题:请问openQQ标题是否可改?

帅哥哟,离线,有人找我吗?
苍风霁月
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:703 积分:7047 威望:0 精华:0 注册:2012/11/4 23:10:00
请问openQQ标题是否可改?  发帖心情 Post By:2018/10/8 7:55:00 [只看该作者]

如题,现在openQQ拿出去用,别人说才发布版本,怎么是过期的,这个应该与时俱进哦??

若不能改,强烈建议狐爸优化!

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/8 8:44:00 [只看该作者]

方法一:打开窗口代码

 

If  QQClient.Ready Then
    QQClient.OpenChatWindow()
End If

Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    If frm.Name ="frmTalker"
        frm.text ="xxxx 公司聊天软件"
    End If
End If

 

方法二:做一个计划管理,定时执行下面的代码

 

Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    If frm.Name ="frmTalker"
        frm.text ="xxxx 公司聊天软件"
    End If
End If

 

 

方法三:

 

For Each frm As System.Windows.Forms.Form In Application.OpenForms
    If frm.name = "frmTalker" Then
        frm.text ="xxxx 公司聊天软件"
    End If
Next


 回到顶部
帅哥哟,离线,有人找我吗?
苍风霁月
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:703 积分:7047 威望:0 精华:0 注册:2012/11/4 23:10:00
  发帖心情 Post By:2018/10/8 10:21:00 [只看该作者]

有方法就好,谢谢

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


加好友 发短信
等级:三尾狐 帖子:703 积分:7047 威望:0 精华:0 注册:2012/11/4 23:10:00
  发帖心情 Post By:2020/12/27 22:18:00 [只看该作者]

用上述方法,现在不能更改openQQ标题了?请问是更新后期版本的问题么?还有什么办法处理?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106900 积分:543713 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/27 22:29:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=81990&replyID=898715&skin=1

 回到顶部
帅哥哟,离线,有人找我吗?
苍风霁月
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:703 积分:7047 威望:0 精华:0 注册:2012/11/4 23:10:00
  发帖心情 Post By:2020/12/27 22:34:00 [只看该作者]

方法更简洁了,谢谢!

 回到顶部