精华区文章阅读

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

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

EnumFontFamilies

VB声明
Declare Function EnumFontFamilies Lib "gdi32" Alias "EnumFontFamiliesA"
(ByVal hdc As Long, ByVal lpszFamily As String, ByVal lpEnumFontFamProc As
Long, ByVal lParam As Long) As Long
说明
列举指定设备可用的字体
返回值
Long，由回调函数返回的前一个值
参数表
参数类型及说明
hdc Long，设备场景的句柄
tring，欲枚举的字体家族。如指定 vbNullString，可枚举出每种可用字体家族中的一种
字体
lpEnumFontFamProc Long，欲调用的函数地址。这个地址是用 AddressOf 运算符为来自
一个标准模块的函数进行操作，或者利用某个回调控件得到
lParam Long，指定希望传递给回调函数的一个用户自定义值
注解
这个函数取代了API函数 EnumFonts，因为它能对TureType字体样式说明进行控制
只有实际存在的字体才会列举出来，那些可由GDI合成的字体不会列出

--

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

VB 版 (精华区)