UtterAccess HomeUtterAccess Wiki

Welcome Guest ( Log In | Register )

Custom Search
Edit Discussion
> CreateFontIndirect    
CODE
Private Const LF_FACESIZE = 32

Private Type LOGFONT
       lfHeight As Long
       lfWidth As Long
       lfEscapement As Long
       lfOrientation As Long
       lfWeight As Long
       lfItalic As Byte
       lfUnderline As Byte
       lfStrikeOut As Byte
       lfCharSet As Byte
       lfOutPrecision As Byte
       lfClipPrecision As Byte
       lfQuality As Byte
       lfPitchAndFamily As Byte
       lfFaceName As String * LF_FACESIZE
End Type

Private Declare PtrSafe Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" ( _
   lpLogFont As LOGFONT _
) As LongPtr

NOTE: The code reflects a possible number(s) of declarations. Depending on your specific needs, you may want different syntax. For details on how to declare an API procedure, consult API article. For pre-VBA7 (pre-Access 2010) compatible syntax, there are several sites that already documents the same API in more details. ALLAPI at mentalis.org is one such resource.

MSDN Reference: CreateFontIndirect
See other pages that uses CreateFontIndirect

Edit Discussion
Custom Search
Thank you for your support!
This page has been accessed 1,928 times.  This page was last modified 14:16, 14 May 2011 by BananaRepublic.   Disclaimers