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


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

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

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部