如何獲得雙顯示器是可用或獲得全寬度，包括雙顯示器在VB6

Question

我面臨雙監視器在VB6問題，請幫我找出以下任何一個。

1. 要麼連接雙顯示器或不連接？
2. 獲取屏幕的全寬（主屏+擴展顯示器屏幕）

目前我使用在VB6中現有的屬性。

Screen.Width & Screen.Height它給我只有主監視器的寬度和高度。

Answer 1

你將不得不使用Windows API來確定一個多顯示器設置的虛擬屏幕尺寸：

Private Const SM_CXVIRTUALSCREEN = 78 
Private Const SM_CYVIRTUALSCREEN = 79 
Private Const SM_CMONITORS = 80 
Private Const SM_SAMEDISPLAYFORMAT = 81 

Private Declare Function GetSystemMetrics Lib "user32" (_ 
    ByVal nIndex As Long) As Long 

Public Property Get VirtualScreenWidth() As Long 
    VirtualScreenWidth = GetSystemMetrics(SM_CXVIRTUALSCREEN) 
End Property 
Public Property Get VirtualScreenHeight() As Long 
    VirtualScreenHeight = GetSystemMetrics(SM_CYVIRTUALSCREEN) 
End Property 
Public Property Get DisplayMonitorCount() As Long 
    DisplayMonitorCount = GetSystemMetrics(SM_CMONITORS) 
End Property 
Public Property Get AllMonitorsSame() As Long 
    AllMonitorsSame = GetSystemMetrics(SM_SAMEDISPLAYFORMAT) 
End Property 

從vbAccelerator.com