Windows设备场景函数 - AddFontResource

最新推荐文章于 2021-04-29 10:48:42 发布

最新推荐文章于 2021-04-29 10:48:42 发布 · 248 阅读

本文介绍了一个Visual Basic声明，用于在Windows系统中添加字体资源。通过调用AddFontResource函数，并指定字体文件路径，可以在系统中注册字体。文章还提供了如何通知系统字体已更改的方法。

VB声明
Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
说明
在Windows系统中添加一种字体资源。添加完毕后，该字体即可由任何Windows应用程序调用
返回值
Long，添加的字体数量，零表示失败。会设置GetLastError
参数表
参数	类型及说明
lpFileName	String，字体资源文件的文件名。可以是.FON， .FNT， .TTF 或 .FOT文件
注解
添加了一种资源后必须调用下述API函数： di% = SendMessageBynum(HWND_BROADCAST, WM_FONTCHANGE, x, y) 其中，HWND_BROADCAST、WM_FONTCHANGE使用来自API32.TXT文件的值。这样便可告诉所有Windows应用程序字体列表已发生了变化
示例
Call AddFontResource("myfont.ttf") Call SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)