Visual Basic Core Snippet Routines
   Returns the number of display monitors on the desktop in a multi-monitor system.      
           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_CMONITORS As Long = 80
Private Declare Function GetSystemMetrics Lib "user32" _
   (ByVal nIndex As Long) As Long
Private Function GetMonitorCount() As Long

  'returns the number of display
  'monitors on the desktop in a
  'multi-monitor system.
   GetMonitorCount = GetSystemMetrics(SM_CMONITORS)

End Function

 Calling Syntax
   dwNumMonitors = GetMonitorCount()

 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