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函数: |
|
示例 | |
Call AddFontResource("myfont.ttf") Call SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) |
Top |