以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问openQQ标题是否可改?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125819)
--  作者：苍风霁月
--  发布时间：2018/10/8 7:55:00
--  请问openQQ标题是否可改?
如题，现在openQQ拿出去用，别人说才发布版本，怎么是过期的，这个应该与时俱进哦??

若不能改，强烈建议狐爸优化！
--  作者：有点甜
--  发布时间：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
--  作者：苍风霁月
--  发布时间：2018/10/8 10:21:00
--  
有方法就好，谢谢
--  作者：苍风霁月
--  发布时间：2020/12/27 22:18:00
--  
用上述方法，现在不能更改openQQ标题了？请问是更新后期版本的问题么？还有什么办法处理？
--  作者：有点蓝
--  发布时间：2020/12/27 22:29:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=81990&replyID=898715&skin=1
--  作者：苍风霁月
--  发布时间：2020/12/27 22:34:00
--  
方法更简洁了，谢谢！