Enumfonts call from VB
Copyright (C) Telelink Systems 1991, All rights reserved
Phone: (916) 332-2671 Fax: (916) 332-2529 Cserve: 70523,2574

Written by Erez Carmel, Sacramento, California

Description:

The DLL allows Visual Basic to call Windodws API function EnumFonts.
The same function is called multiple times, as described here:

1. Call VBEnumFonts to find how many typefaces are there
2. Allocate an array to accept typefaces
3. Call VBEnumFonts to get the typefaces
4. For each typeface, call VBEnumFonts to find how many fonts are available.
Then allocate 3 arrays of the appropriate size, and call VBEnumFonts to
get information about the fonts.


The interface is declared by:

Declare Function VBEnumFonts Lib "enumfont.dll" (ByVal hDC%, ByVal lpFaceName As Any, lpLogFontArray As Any, lpTextMetricArray As Any, nFontTypeArray As Any, ByVal nArraySize%) As Integer


Where:

hDC% Is the context handle to the default printer, typically
provided by Printer.hDC

lpFaceName Is either a null, or the name of the desired typeface. If
Null, the function will return one font for each available typeface.
Reminder -- Null in VB is indicated by "byval 0&"

lpLogFontArray Is either a null, or the first element of an array of type
LOGFONT. The array should be large enought to accept as
many items as specified by the last parameter.

lpTextMetricArray Is either a null, or the first element of an array of type
TEXEMETRIC. The array should be large enough to accept
As many elelment as specified by the last parameter.

nFontTypeArray Is either a null, or the first element of an array of type
integer. The array should be large enough to accept as
many elements as specified by the last parameter.

nArraySize% Is the number of elemnets expected, e.g the size of the
three arrays. Can be 0, in which case no data will be
transfered to the arrays. The function will return data
up to the number of elements specified.

Function Returns: The number of available fonts which meet the
specification. If lpFaceName is null, this would be
the number of typefaces. If lpFaceName specifies a typeface,
this will be the number of fonts under that typeface.

-----

You are free to use this code and incorporate it in your programs.
If you find it useful, a $7.50 payment will be appreciated. In return,
you will be informed of future changes/enhancements.

------

The author makes no warranties, express or implied, oral or written,
including any implied warranties of merchantability or fitness for a
particular use. In no event will the author be liable for any damages
whatsoever arising from the use of this software.