Dec 222017
 
The DLL allows Visual Basic to call Windodws API function EnumFonts.
File ENUMFO.ZIP from The Programmer’s Corner in
Category BASIC Language
The DLL allows Visual Basic to call Windodws API function EnumFonts.
File Name File Size Zip Size Zip Type
ENUMFONT.C 2802 967 deflated
ENUMFONT.DEF 229 161 deflated
ENUMFONT.DLL 5567 2401 deflated
ENUMFONT.FRM 6181 3313 deflated
ENUMFONT.PRJ 4883 901 deflated
ENUMTEST.EXE 13163 6079 deflated
ENUMTEST.MAK 64 57 deflated
GLOBAL.BAS 4863 1580 deflated
READ.ME 3105 1202 deflated
TPCREAD.ME 199 165 deflated

Download File ENUMFO.ZIP Here

Contents of the READ.ME file


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.





 December 22, 2017  Add comments

Leave a Reply