Foxtable(狐表)用户栏目专家坐堂 → [求助]修改OPENQQ聊天窗口名称?


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

主题:[求助]修改OPENQQ聊天窗口名称?

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


加好友 发短信
等级:幼狐 帖子:107 积分:1009 威望:0 精华:0 注册:2016/1/26 21:44:00
[求助]修改OPENQQ聊天窗口名称?  发帖心情 Post By:2016/3/9 19:20:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20160309192142.png
图片点击可在新窗口打开查看



如何修改OPENQQ聊天窗口名称?

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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/3/10 8:27:00 [只看该作者]

没有办法修改


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/10 9:47: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


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


加好友 发短信
等级:幼狐 帖子:107 积分:1009 威望:0 精华:0 注册:2016/1/26 21:44:00
  发帖心情 Post By:2016/3/10 11:47:00 [只看该作者]

好的,谢谢了!图片点击可在新窗口打开查看

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


加好友 发短信
等级:一尾狐 帖子:458 积分:3814 威望:0 精华:0 注册:2016/8/21 3:43:00
  发帖心情 Post By:2018/4/23 19:43:00 [只看该作者]

窗口代码在哪里呢?

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/4/23 20:17:00 [只看该作者]

添加一个按钮,按钮里 放代码

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


加好友 发短信
等级:六尾狐 帖子:1433 积分:10763 威望:0 精华:0 注册:2013/3/29 10:23:00
  发帖心情 Post By:2019/8/19 16:52: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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2019/8/19 17:06:00 [只看该作者]

新版本已经提供了这个功能:

2019年6月8日更新:

1、框架更换为.NET FrameWork 4.0
2、OpenQQ的内置聊天窗口可以设置标题和图标了,QQClient的OpenChatWindow改进后的语法为:

OpenChatWindow()

OpenChatWindow(Caption)
OpenChatWindow(Caption,IconFile)
 

参数说明:

Caption:  用于指定内置聊天窗口标题
IconFile: 用于指定内置聊天窗口的图标文件,必须为Icon格式,如果文件已经事先复制到管理项目的Images子目录下,则只需指定文件名即可,否则需要包括路径。


 回到顶部