以文本方式查看主题

-  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=84379)
--  作者：ericotaku
--  发布时间：2016/4/29 15:24:00
--  [求助]OpenQQ右下角弹窗和聊天窗口的字体能改吗？
OpenQQ右下角的弹窗的字体，想改成别的字体，不想用默认的，从哪里改呢？
还有就是打开OpenQQ聊天窗口这些显示的字体能换吗？
--  作者：大红袍
--  发布时间：2016/4/29 15:56:00
--  

不能改。

 

如果确实要做，你可以做一个计划任务，然后输入代码（不过测试的效果也不是太好）

 

Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    If frm.name = "frmTalker" Then
       
        For Each c As object In frm.controls("SplitContainer1").panel1.controls
            c.font = new font("宋体", 15)
        Next
        For Each c As object In frm.controls("SplitContainer1").panel2.controls
            c.font = new font("宋体", 15)
        Next
    End If
    If frm.name = "frmPopmessage" Then
        For Each c As object In frm.controls
            c.font = new font("宋体", 15)
        Next
    End If
End If