以文本方式查看主题

-  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=98225)
--  作者：zcgmxf
--  发布时间：2017/3/26 19:00:00
--  [求助] 修改openqq 标题
老师，将内置聊天窗口openQQ 修改为  自己的聊天系统名称的帮助怎么找不到了？谢谢！
--  作者：菜鸟王中王
--  发布时间：2017/3/26 21:10:00
--  
同问
--  作者：有点色
--  发布时间：2017/3/26 23: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
--  作者：Engineer1
--  发布时间：2017/11/1 20:27:00
--  
老师要是更改那个蝴蝶图标怎么弄，想换成自己公司的logo
--  作者：有点甜
--  发布时间：2017/11/1 21:26:00
--  

参考代码

 

For Each frm As System.Windows.Forms.Form In Application.OpenForms
    If frm.name = "frmTalker" Then
        frm.icon = new icon("d:\\test.ico")
    End If
Next
--  作者：zcgmxf
--  发布时间：2020/6/2 23:06:00
--  
老师，上面的代码现在怎么不能修改左上角的标题了？以前是可以的，可以改为  xxx单位聊天平台。谢谢
--  作者：有点蓝
--  发布时间：2020/6/2 23:19:00
--  
参考：http://www.foxtable.com/webhelp/topics/2993.htm