AddFontResource

AddFontResource

VB聲明

Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long

說明

在Windows系統(tǒng)中添加一種字體資源。添加完畢后，該字體即可由任何Windows應(yīng)用程序調(diào)用

返回值

Long，添加的字體數(shù)量，零表示失敗。會設(shè)置GetLastError

參數(shù)表

參數(shù)

類型及說明

lpFileName

String，字體資源文件的文件名。可以是.FON， .FNT， .TTF 或 .FOT文件

注解

添加了一種資源后必須調(diào)用下述API函數(shù)：

di% = SendMessageBynum(HWND_BROADCAST, WM_FONTCHANGE, x, y)

其中，HWND_BROADCAST、WM_FONTCHANGE使用來自API32.TXT文件的值。這樣便可告訴所有Windows應(yīng)用程序字體列表已發(fā)生了變化

示例

Call AddFontResource("myfont.ttf")

Call SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)

Top