''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Copyright ©1996-2011 VBnet/Randy Birch, All Rights Reserved.
' Some pages may also contain other copyrights by the author.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Distribution: You can freely use this code in your own
' applications, but you may not reproduce
' or publish this code on any web site,
' online service, or distribute as source
' on any media without express permission.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Const SM_SAMEDISPLAYFORMAT As Long = 81
Private Const SM_CMONITORS As Long = 80
Private Declare Function GetSystemMetrics Lib "user32" _
(ByVal nIndex As Long) As Long
Private Function DesktopsSameColourFormat() As Boolean
'Check if all display monitors have
'the same color format. Call returns
'True if they do, or FALSE otherwise.
'Note that two displays can have the same
'bit depth, but different color formats.
'For example, the red, green, and blue
'pixels can be encoded with different
'numbers of bits, or those bits can be
'located in different places in a pixel's
'color value.
'This method checks for multiple monitors
'before determining whether the same color.
'If the system has only 1 monitor, just
'return True.
If IsMultiMonitorSystem() Then
DesktopsSameColourFormat = GetSystemMetrics(SM_SAMEDISPLAYFORMAT) = 1
Else
DesktopsSameColourFormat = True
End If
End Function
Private Function IsMultiMonitorSystem() As Boolean
'Returns True if a multi-monitor system
IsMultiMonitorSystem = GetSystemMetrics(SM_CMONITORS) > 1
End Function
|
