VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
返回 发表评论(0) 首页 - API手册 - AddFontResource
 

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)