GFSystemMetrics/GFSystemMetricsmod.bas

Attribute VB_Name = "GFSystemMetricsmod"
Option Explicit
'(c)2001 by Louis. Collection of SystemMetrics and SystemColor constants.
'
'NOTE: the GetSystemMetrics() function retrieves various system metrics and
'system configuration settings.
'
'System metrics are the dimensions (widths and heights) of Windows display elements.
'All dimensions retrieved by GetSystemMetrics() are in pixels.
'
'GFGetSystemMetrics
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
'GFGetSystemColor
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
'GFGetSystemMetrics
'
'NOTE: the following SystemMetrics constants are the complete collection of
'the VB 5.0 API viewer. Look up in VC++ help what they are used for.
'
Public Const SM_CMETRICS = 44
Public Const SM_CMOUSEBUTTONS = 43
Public Const SM_CXBORDER = 5
Public Const SM_CXCURSOR = 13
Public Const SM_CXDLGFRAME = 7
Public Const SM_CXDOUBLECLK = 36
Public Const SM_CXFIXEDFRAME = SM_CXDLGFRAME
Public Const SM_CXFRAME = 32
Public Const SM_CXFULLSCREEN = 16
Public Const SM_CXHSCROLL = 21
Public Const SM_CXHTHUMB = 10
Public Const SM_CXICON = 11
Public Const SM_CXICONSPACING = 38
Public Const SM_CXMIN = 28
Public Const SM_CXMINTRACK = 34
Public Const SM_CXSCREEN = 0
Public Const SM_CXSIZE = 30
Public Const SM_CXSIZEFRAME = SM_CXFRAME
Public Const SM_CXVSCROLL = 2
Public Const SM_CYBORDER = 6
Public Const SM_CYCAPTION = 4
Public Const SM_CYCURSOR = 14
Public Const SM_CYDLGFRAME = 8
Public Const SM_CYDOUBLECLK = 37
Public Const SM_CYFIXEDFRAME = SM_CYDLGFRAME
Public Const SM_CYFRAME = 33
Public Const SM_CYFULLSCREEN = 17
Public Const SM_CYHSCROLL = 3
Public Const SM_CYICON = 12
Public Const SM_CYICONSPACING = 39
Public Const SM_CYKANJIWINDOW = 18
Public Const SM_CYMENU = 15
Public Const SM_CYMIN = 29
Public Const SM_CYMINTRACK = 35
Public Const SM_CYSCREEN = 1
Public Const SM_CYSIZE = 31
Public Const SM_CYSIZEFRAME = SM_CYFRAME
Public Const SM_CYVSCROLL = 20
Public Const SM_CYVTHUMB = 9
Public Const SM_DBCSENABLED = 42
Public Const SM_DEBUG = 22
Public Const SM_MENUDROPALIGNMENT = 40
Public Const SM_MOUSEPRESENT = 19
Public Const SM_PENWINDOWS = 41
Public Const SM_SWAPBUTTON = 23
'end of GFGetSystemMetrics
'GFGetSystemColor
Public Const COLOR_SCROLLBAR = 0
Public Const COLOR_BACKGROUND = 1
Public Const COLOR_ACTIVECAPTION = 2
Public Const COLOR_INACTIVECAPTION = 3
Public Const COLOR_MENU = 4
Public Const COLOR_WINDOW = 5
Public Const COLOR_WINDOWFRAME = 6
Public Const COLOR_MENUTEXT = 7
Public Const COLOR_WINDOWTEXT = 8
Public Const COLOR_CAPTIONTEXT = 9
Public Const COLOR_ACTIVEBORDER = 10
Public Const COLOR_INACTIVEBORDER = 11
Public Const COLOR_APPWORKSPACE = 12
Public Const COLOR_HIGHLIGHT = 13
Public Const COLOR_HIGHLIGHTTEXT = 14
Public Const COLOR_BTNFACE = 15
Public Const COLOR_BTNSHADOW = 16
Public Const COLOR_GRAYTEXT = 17
Public Const COLOR_BTNTEXT = 18
Public Const COLOR_INACTIVECAPTIONTEXT = 19
Public Const COLOR_BTNHIGHLIGHT = 20
'end of GFGetSystemColor

Public Function GFGetSystemMetrics(ByVal SystemMetricsConstant As Long) As Long
    'on error resume next
    GFGetSystemMetrics = GetSystemMetrics(SystemMetricsConstant)
End Function

Public Function GFGetSystemColor(ByVal SystemColorConstant As Long) As Long
    'on error resume next
    GFGetSystemColor = GetSysColor(SystemColorConstant)
End Function


[END OF FILE]