Make your own free website on Tripod.com

Check Windows Font Size

'Add a module to your project (In the menu choose Project -> Add Module, Then click Open)
'This example will return 'True' if the font size is small, and 'False' If font size is large
'Insert this code to the module :

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

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

'Insert this code to your form:

Private Sub Form_Load()
MsgBox IsScreenFontSmall
End Sub

Go Back