AllAPI Network - The KPD-Team

Allapi Network

 API List

API Resources
 Tips & Tricks
 VB Tutorials
 Error Lookup
Misc Stuff
 VB examples
 VB Tools
 VB Links
 Top Downloads
This Site
 Search Engine
 Contact Form

Donate to

Finding out the size of the font being used by the system

Do you need to know whether the system is using large fonts? Use this simple procedure to return a Boolean value. Add these declarations:


Public Declare Function GetDesktopWindow Lib _
"user32" () As Long

Public Declare Function GetDC Lib "user32" (ByVal _
hwnd As Long) As Long

Public Declare Function GetDeviceCaps Lib "gdi32" _
(ByVal hdc As Long, ByVal nIndex As Long) As Long

Public Declare Function ReleaseDC Lib "user32" _
(ByVal hwnd As Long, ByVal hdc As Long) As Long

Public Const LOGPIXELSX = 88

Add the following code to a module or form

Public Function IsScreenFontSmall() As Boolean 
Dim hWndDesk As Long 
Dim hDCDesk As Long 
Dim logPix As Long 
Dim r As Long 
hWndDesk = GetDesktopWindow() 
hDCDesk = GetDC(hWndDesk) 
logPix = GetDeviceCaps(hDCDesk, LOGPIXELSX) 
r = ReleaseDC(hWndDesk, hDCDesk) 
IsScreenFontSmall = (logPix = 96 )
End Function

The method of this is easy:
1) Get the HWnd for the desktop
2) Find out the logical pixels in the height of the font
3) If this is equal to 96, then small fonts are used, otherwise, it is something else.



Copyright © 1998-2007, The Team - Privacy statement
Did you find a bug on this page? Tell us!
This site is located at