- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]修改OPENQQ聊天窗口名称？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81990)
-- 发布时间：2016/3/9 19:20:00
-- [求助]修改OPENQQ聊天窗口名称？
此主题相关图片如下：qq图片20160309192142.png
-- 发布时间：2016/3/10 8:27:00
--
没有办法修改
-- 发布时间：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
-- 发布时间：2016/3/10 11:47:00
--
好的，谢谢了！
-- 发布时间：2018/4/23 19:43:00
--
窗口代码在哪里呢？
-- 发布时间：2018/4/23 20:17:00
--
添加一个按钮，按钮里 放代码
-- 发布时间：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
-- 发布时间：2019/8/19 17:06:00
--
新版本已经提供了这个功能：
2、OpenQQ的内置聊天窗口可以设置标题和图标了，QQClient的OpenChatWindow改进后的语法为：
OpenChatWindow()
OpenChatWindow(Caption)
OpenChatWindow(Caption,IconFile)
参数说明：
Caption: 用于指定内置聊天窗口标题
IconFile: 用于指定内置聊天窗口的图标文件，必须为Icon格式，如果文件已经事先复制到管理项目的Images子目录下,则只需指定文件名即可,否则需要包括路径。