2
我面临双监视器在VB6问题,请帮我找出以下任何一个。如何获得双显示器是可用或获得全宽度,包括双显示器在VB6
- 要么连接双显示器或不连接?
- 获取屏幕的全宽(主屏+扩展显示器屏幕)
目前我使用在VB6中现有的属性。
Screen.Width
& Screen.Height
它给我只有主监视器的宽度和高度。
我面临双监视器在VB6问题,请帮我找出以下任何一个。如何获得双显示器是可用或获得全宽度,包括双显示器在VB6
目前我使用在VB6中现有的属性。
Screen.Width
& Screen.Height
它给我只有主监视器的宽度和高度。
你将不得不使用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
非常感谢你的大师....我打算用C++ MFC应用程序来做,并尝试添加到VB中。无论如何,非常感谢你... –
这里是一个[好文章](HTTP:// VB .mvps.org/articles/vsm20090302.pdf)由Karl Peterson编写的VB6中的多个监视器编写,其中包含一些[随时可用的代码](http://vb.mvps.org/samples/Monitors/)可以放到你的项目中。 – MarkJ