Visual Basic Core Snippet Routines
   Returns the maximum width (in pixels) of all monitors on the desktop. If only one monitor, returns the screen width.      
           Updated:   Monday December 26, 2011   
click to copy code:  

   Applies to:   VB4-32, VB5, VB6   
OS restrictions:   Win 98/Me, 2000/XP  
 Code Snippet
' 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_CXVIRTUALSCREEN As Long = 78
Private Const SM_CMONITORS As Long = 80
Private Declare Function GetSystemMetrics Lib "user32" _
   (ByVal nIndex As Long) As Long
Private Function GetDesktopMaximumWidth() As Long

  'Return the maximum width of
  'all monitors on the desktop. If
  'only one monitor, return screen
   If IsMultiMonitorSystem() Then
      GetDesktopMaximumWidth = GetSystemMetrics(SM_CXVIRTUALSCREEN)
      GetDesktopMaximumWidth = Screen.Width \ Screen.TwipsPerPixelX
   End If

End Function

Private Function IsMultiMonitorSystem() As Boolean

  'Returns True if a multi-monitor system
   IsMultiMonitorSystem = GetSystemMetrics(SM_CMONITORS) > 1

End Function

 Calling Syntax
   dwMaxWidth = GetDesktopMaximumWidth()

 Comments / Related
demo in use:   EnumDisplayMonitors: Enumerating System Monitor Info
Related:   Core: DesktopsSameColourFormat
Core: GetDesktopMaximumHeight
Core: GetDesktopMaximumWidth
Core: GetMonitorByPoint
Core: GetMontitorByRect
Core: GetMonitorByWindow
Core: GetMonitorCount


PayPal Link
Make payments with PayPal - it's fast, free and secure!


Copyright 1996-2011 VBnet and Randy Birch. All Rights Reserved.
Terms of Use  |  Your Privacy


Hit Counter