| 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，设备场景的句柄 |
| lpszFamily |
String，欲枚举的字体家族。如指定 vbNullString，可枚举出每种可用字体家族中的一种字体 |
| lpEnumFontFamProc |
Long，欲调用的函数地址。这个地址是用 AddressOf
运算符为来自一个标准模块的函数进行操作，或者利用某个回调控件得到 |
| lParam |
Long，指定希望传递给回调函数的一个用户自定义值 |
| 注解 |
这个函数取代了API函数 EnumFonts，因为它能对TureType字体样式说明进行控制
只有实际存在的字体才会列举出来，那些可由GDI合成的字体不会列出 |