精华区文章阅读

发信人: bloom (├┝┞┟┠┢┣�), 信区: VB
标  题: AddFontResource(文本和字体)(转载)
发信站: 哈工大紫丁香 (2000年09月07日18:34:51 星期四), 转信

【以下文字转载自 cnTemp 讨论区】
【原文由 catchy 所发表】
发信人: yucheng (无话可说), 信区: VisualBasic
发信站: BBS 水木清华站 (Sat Apr  8 00:56:24 2000) WWW-POST

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)

--

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: casi.bbs@smth.org]
--
※ 转载:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: 202.118.247.254]

VB 版 (精华区)