|
|
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
Const LOGPIXELSX = 88
Public Function IsScreenFontSmall() As Boolean
Dim hWndDesk As Long, hDCDesk As Long
Dim logPix As Long, r As Long
'Get the handle of the desktop window
hWndDesk = GetDesktopWindow()
'Get the desktop window's device context
hDCDesk = GetDC(hWndDesk)
'Get the width of the screen
logPix = GetDeviceCaps(hDCDesk, LOGPIXELSX)
'Release the device context
r = ReleaseDC(hWndDesk, hDCDesk)
IsScreenFontSmall = (logPix = 96)
End Function
Private Sub Form_Load()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
If IsScreenFontSmall = True Then
MsgBox "You're using Small Fonts"
Else
MsgBox "You're using Large Fonts"
End If
End Sub
|
|
